GUJ Discussões   :   últimos tópicos   |   categorias   |   GUJ Respostas

[VBA] Manipulando o nome do objeto Imagem (Image1)

#1

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.

0 Likes