ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

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 » Qui Fev 10, 2011 12:05 pm

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 » Qui Fev 10, 2011 11:36 pm

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


Mauro Coutinho - Exemplos Somente em Office 2003
São José dos Pinhais - Pr
Se sua Duvida foi solucionada . . . .Acrescente [RESOLVIDO] ao título.
Ficou satisfeito com o FORUM ? Divulgue, indicando-o aos colegas !

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

Re: Objeto image

Mensagem por Irenko » Sex Fev 11, 2011 6:51 am

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 » Seg Fev 14, 2011 9:18 pm

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


Mauro Coutinho - Exemplos Somente em Office 2003
São José dos Pinhais - Pr
Se sua Duvida foi solucionada . . . .Acrescente [RESOLVIDO] ao título.
Ficou satisfeito com o FORUM ? Divulgue, indicando-o aos colegas !

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 » Ter Fev 15, 2011 6:21 am

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