Página 1 de 1

Erro ao Puxar Imagem UserForm

Enviado: 26 Ago 2019 às 16:37
por 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

Erro ao Puxar Imagem UserForm

Enviado: 26 Ago 2019 às 17:02
por 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

Erro ao Puxar Imagem UserForm

Enviado: 27 Ago 2019 às 10:14
por denisluan
Deu Certo!!!
Muito Obrigado pela ajuda!!!