Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Objeto image

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Irenko
Colaborador
Colaborador
Mensagens: 11
Registrado em: Qui Fev 10, 2011 11:36 am

Objeto image

Mensagem por 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?


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Mauro Coutinho
Jedi
Jedi
Mensagens: 1561
Registrado em: Sáb Mar 13, 2010 8:10 pm
Localização: São José dos Pinhais - Pr

Re: Objeto image

Mensagem por 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
Colaborador
Colaborador
Mensagens: 11
Registrado em: Qui Fev 10, 2011 11:36 am

Re: Objeto image

Mensagem por 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?


Avatar do usuário
Mauro Coutinho
Jedi
Jedi
Mensagens: 1561
Registrado em: Sáb Mar 13, 2010 8:10 pm
Localização: São José dos Pinhais - Pr

Re: Objeto image

Mensagem por Mauro Coutinho »

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?
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


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Irenko
Colaborador
Colaborador
Mensagens: 11
Registrado em: Qui Fev 10, 2011 11:36 am

[RESOLVIDO]Re: Objeto image

Mensagem por Irenko »

Mauro, muito obrigado o problema foi solucionado. :D


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder