Objeto image

[Irenko]

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?

[Mauro Coutinho]

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 :

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

[Irenko]

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]

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?

Irenko, os objetos Image em uma Planilha podem ser Shapes ou OLEObjects, neste caso adaptamos a rotina acima pra a abaixo :

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

[]s

[Irenko]

Mauro, muito obrigado o problema foi solucionado.