Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Objeto image
Objeto image
Em um UserForm tenho 04 objetos Image, dois deles tem foto. A dúvia e:
Como mostrar uma MsgBox informando que existe dois objetos image sem foto? Já procurei na net e não encontrei nada paracido, ou seja, nehuma função que faça isso. Alguem pode dar uma ajuda?
Como mostrar uma MsgBox informando que existe dois objetos image sem foto? Já procurei na net e não encontrei nada paracido, ou seja, nehuma função que faça isso. Alguem pode dar uma ajuda?
- Mauro Coutinho
- Jedi
- Mensagens: 1561
- Registrado em: Sáb Mar 13, 2010 8:10 pm
- Localização: São José dos Pinhais - Pr
Re: Objeto image
Irenko, supondo que seus Controles Image estão com os Names originais (Image1, Image2, Image3, Image4) coloque a rotina abaixo no evento Initialze do UserForm ou associe a um CommandButon :
[]s
Código: Selecionar todos
Private Sub UserForm_Initialize()
Dim ctr As Control
Dim ctrName$
'Verifica todos os Controles Image no UserForm
For Each ctr In UserForm1.Controls
ctrName = UCase(ctr.Name)
If Left(ctrName, 5) = "IMAGE" Then
If ctr.Picture Is Nothing Then
MsgBox ctrName & " - Sem Imagem"
End If
End If
Next
End Sub
[]s
Re: Objeto image
Mauro, obrigado pela resposta deu certo só que esbarrei em outra dúvida para esse mesmo código. E se os objetos image estiverem na planilha, como fica?
- Mauro Coutinho
- Jedi
- Mensagens: 1561
- Registrado em: Sáb Mar 13, 2010 8:10 pm
- Localização: São José dos Pinhais - Pr
Re: Objeto image
Irenko, os objetos Image em uma Planilha podem ser Shapes ou OLEObjects, neste caso adaptamos a rotina acima pra a abaixo :Irenko escreveu:Mauro, obrigado pela resposta deu certo só que esbarrei em outra dúvida para esse mesmo código. E se os objetos image estiverem na planilha, como fica?
Código: Selecionar todos
Sub VerificaObjImageNaPlan()
Dim ctr As OLEObject
Dim ctrName$
'Verifica todos os Controles Image na Planilha Ativa
For Each ctr In ActiveSheet.OLEObjects
ctrName = UCase(ctr.Name)
If Left(ctrName, 5) = "IMAGE" Then
If ctr.Object.Picture Is Nothing Then
MsgBox ctrName & " - Sem Imagem"
End If
End If
Next
End Sub