Carregar Imagens em VBA

Código enviado por Jonas Ribeiro

Sub Carrega_Imagem()

On Error Resume Next

Dim endereco As String
endereco = Application.GetOpenFilename(, , "Selecione a Imagem do Produto")
If endereco = "" Then
Image1.picture=Loadpicture()
Else
Image1.Picture = LoadPicture(endereco)
End If

End Sub