Alguém poderia me dar uma mãozinha? Preciso carregar uma imagem e exibi-la assim que a selecionar no computador. Porem o método Application.GetOpenFilename é chamado no Evento Click do próprio "Image", neste caso, "Image7".
O metodo Application.GetOpenFilename retorna o caminho correto, mas não atualiza a imagem.
Alguém sabe o que ocorre?

Private Sub Image7_Click()
On Error Resume Next
Dim endereco As String
xend = Application.GetOpenFilename(, , "Selecione a Imagem do Produto")
If xend = "" Then
form_Empresa.Image7.Picture = LoadPicture()
Else
Image7.Picture = LoadPicture(xend)
End If
End Sub

Exclui as outras planilhas da pasta e os demais componente para ficar mais leve.Não consegui anexar a planilha por que tem 320 kiB, mas a compartilhei no link:
https://drive.google.com/open?id=1hAv_PFXl95ZnbREymXSZD_xaQuhgX2nt
Mto obg..