ROTINA PARA OBJETO IMAGE

IRENKO 06/12/2013 11:23:38
#431862

Vc tem razão Marcelo, esse tal de VBA é complicado, mas mudando uma coisa ali e outra aqui, chega-se a um resultado.

For i = 1 To 4
For F = 0 To UBound(Cores)
If LCase(ImgLegenda(i).Tag) = Cores(F) Or LbLegenda(i).Tag = Cores(F) Then
ImgLegenda(i).Visible = True
LbLegenda(i).Visible = True
[ô]
LbLegenda(i).Caption = Cores(F)
LbLegenda(i).AutoSize = True
End If
Next F
Next i

Consegui isso, deu certo por enquanto. Vou fazer mais ums testes.

IRENKO 07/12/2013 10:30:11
#431886

Marcelo, sua dica foi de grande valia, com ela acertei todo código! Obrigado companheiro.

MARCELO.TREZE 07/12/2013 17:20:16
#431894

disponha colega.