Notifications
Clear all

Loop em objetos do tipo Image

4 Posts
2 Usuários
0 Reactions
886 Visualizações
depoisteconto
(@depoisteconto)
Posts: 183
Estimable Member
Topic starter
 

Boa noite!

Para apagar a figura de um objeto Image uso o comando abaixo:

With Image1
.Picture = Nothing
.BackColor = RGB(255, 255, 255)
End With 

Mas eu preciso fazer isso com 20 objetos Image, fica ruim repetir o comando 20 vezes. Pensei em atribuir uma variável para substituir o nº 1, então faria um loop com For, mas não sei como atribuir essa variável ao objeto.

Tem alguma outra forma de fazer um loop nos 20 objetos? ou terei que repetir o código 20 vezes?

Valeu.

At

 
Postado : 08/09/2013 5:07 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Esses "objetos" estão em uma planilha ou em um formulário?

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 08/09/2013 6:38 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Se for controles no Formulário, eu acho que sim, devido ao seu post anterior sobre imagem, de uma olhada no Tópico abaixo, deve esclarrecer, se pesquisar pelos posts do GUMA deverá encontrar a panilha completa.

Atualizar Imagem no Form
viewtopic.php?f=10&t=8220&start=10

[]d

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 08/09/2013 7:25 pm
depoisteconto
(@depoisteconto)
Posts: 183
Estimable Member
Topic starter
 

Esses "objetos" estão em uma planilha ou em um formulário?

Valeu Reinaldo, será aplicado em um userform mesmo.

Se for controles no Formulário, eu acho que sim, devido ao seu post anterior sobre imagem, de uma olhada no Tópico abaixo, deve esclarrecer, se pesquisar pelos posts do GUMA deverá encontrar a panilha completa.

Atualizar Imagem no Form
viewtopic.php?f=10&t=8220&start=10

[]d

Valeu Mauro essa isso mesmo.

For x = 1 To 20

Me.Controls("Image" & x).Picture = Nothing
Me.Controls("Image" & x).BackColor = RGB(255, 255, 255)

Next
 
Postado : 09/09/2013 5:25 pm