Este fórum está sendo desativado

[denisluan]

Esta macro puxa a imagem do produto em um Form. As imagens ficam em uma pasta separada.
Porém, alguns produtos não possuem imagem, gostaria que o objeto de imagem do Form (imFoto) retornasse nada, ou seja sem foto, porém quando não encontra um arquivo de imagem está dando erro.


Private Sub cdDT_Change()

Dim imagem
Set endereco = Range("R1")
ultimalinha = Planilha1.Cells(Planilha1.Cells.Rows.Count, "b").End(xlUp).Row

For i = 7 To ultimalinha

If Cells(i, 2) = CDbl(cdDT) Then
cdData = Cells(i, 3)
cdTransportadora = Cells(i, 4)
imagem = endereco & Cells(i, 6)

Set imFoto.Picture = LoadPicture(imagem)
imFoto.PictureSizeMode = fmPictureSizeModeZoom
End If

Next

End Sub

[eduardogrigull]

Tente isso, abaixo de quando voce define a variável "imagem"

Código: Selecionar todos

If Dir(imagem, vbDirectory) <> vbNullString then
            Set imFoto.Picture = LoadPicture(imagem)
             imFoto.PictureSizeMode = fmPictureSizeModeZoom
End if

[denisluan]

Deu Certo!!!
Muito Obrigado pela ajuda!!!