Caros ,boa tarde!
Ajudem-me, por favor. Não consigo manipular o nome de uma imagem. O objetivo é o seguinte: Há um formulário (Userform) com várias imagens, essas devem ser alteradas conforme o status que estiver em uma célula numa aba do excel… Por exemplo: se o status for “DESCANSO” a imagem se torna um computador amarelo, se o status for “TREINAMENTO” a imagem se torna uma computador laranja… entre outras cores variando conforme o status…
Então tentei fazer o seguinte. Ler a primeira linha preenchida até a ultima, sendo que em cada uma célula, devo comparar o status e alterar a imagem, porém, por se tratar de central de atendimento, existem vários computadores, ou seja, varias imagens dentro do form…
Dim cam As String
Dim i As Integer
Dim pc As Image
Set pc = New Image
cam = ThisWorkbook.Path
i = 3
While Not IsEmpty(Planilha3.Range(“D” & i).Value)
pc = "img_" & Planilha3.Range("D" & i).Value 'Manipular o name do obj imagem (ERRO)
If Planilha3.Range("E" & i).Value = "DESCANSO" Then
pc.Picture = LoadPicture(cam & "\img\pc_amarelo.jpg") 'define o diretório da imagem
End If
i = i+1
Wend
como devo fazer para manipular o nome do objeto imagem??
pc = “img_” & Planilha3.Range(“D” & i).Value
tendo em vista que são várias imagens e fica inviável fazer uma linha de código para cada uma.
o name padrão de cada uma delas é: “img_XXXXXX” onde X equivale a um numero sequencial e já listado na planilha.