Bom dia!!

Se poder explicar melhor...

Att

Tenho 5 objetos do tipo Image em um Userform, no meu código eu atribuo imagens de um diretório nesses objetos, até aí tudo bem.

So que eu queria fazer um If, tipo:

If Image1.Picture = "" then

O problema é que não sei como perguntar se o Image está com uma imagem ou não.

Tentei assim também: If Image1.Pictures = Nothing then

Mas não dá certo.

At

Boa tarde depoisteconto,

Tenta algo assim:
If Image1.Pictures = Empty then
ou
If Image1.Pictures is Nothing then
ou
If Image1.Pictures is Empty then

Qualquer coisa da o grito.
Abraço

Boa tarde depoisteconto,

Tenta algo assim:
If Image1.Pictures = Empty then
ou
If Image1.Pictures is Nothing then
ou
If Image1.Pictures is Empty then

Qualquer coisa da o grito.
Abraço

aaaaaaaaaaaaaaaaaaaaaaaaaa...rsrs gritei.

Não funciona.

Alguma outra tentativa?

At

Tente :

If Me.Controls("Image1").Pictures = Nothing Then

[]s

Tente :

If Me.Controls("Image1").Pictures = Nothing Then

[]s

Não funciona, dá erro "Uso Inválido do Objeto"

Tentei assim também If Me.Controls("Image1").Pictures Is Nothing Then mas não funciona.

Engraçado é que quando depuramos o código, o valor atribuído para um Image sem figura é Nothing, logo, deveria ler assim né.

Continuo pesquisando, se souberem outra alternativa, agradeço.

Que negócio difícil.

At

Tente :
If Me.Controls("Image1").Pictures = Nothing Then
[]s

Não funciona, dá erro "Uso Inválido do Objeto"
Tentei assim também If Me.Controls("Image1").Pictures Is Nothing Then mas não funciona.
Engraçado é que quando depuramos o código, o valor atribuído para um Image sem figura é Nothing, logo, deveria ler assim né.
Continuo pesquisando, se souberem outra alternativa, agradeço.
Que negócio difícil.
At

Até onde sei as instruções estão corretas, o ideal é anexar seu modelo para uma analise melhor.

[]s

Tente :
If Me.Controls("Image1").Pictures = Nothing Then
[]s

Não funciona, dá erro "Uso Inválido do Objeto"
Tentei assim também If Me.Controls("Image1").Pictures Is Nothing Then mas não funciona.
Engraçado é que quando depuramos o código, o valor atribuído para um Image sem figura é Nothing, logo, deveria ler assim né.
Continuo pesquisando, se souberem outra alternativa, agradeço.
Que negócio difícil.
At

Até onde sei as instruções estão corretas, o ideal é anexar seu modelo para uma analise melhor.

[]s

Segue anexo.

Obrigado.

At

Na sintaxe deve ser utilizado Picture não Pictures

Private Sub CommandButton1_Click()

If Me.Controls("Image1").Picture Is Nothing Then

MsgBox "Disponível!"

End If

End Sub

Na sintaxe deve ser utilizado Picture não Pictures

Private Sub CommandButton1_Click()

If Me.Controls("Image1").Picture Is Nothing Then

MsgBox "Disponível!"

End If

End Sub

Eita...

s retirado, problema solucionado.

Obrigado a todos.

At