EXCELer Tudo sobre EXCEL em Português
Se pretendermos inserir uma imagem numa folha de cálculo e dentro de uma "Image box control", como no exemplo:
podemos utilizar um pouco de Código:
Option Explicit
Private Sub CommandButton1_Click()
Dim myPictName As Variant
Dim Image1 As Image
myPictName = Application.GetOpenFilename _
(filefilter:="Picture Files,*.jpg;*.bmp;*.tif;*.gif")
If myPictName = False Then
Exit Sub
End If
Me.Image1.Picture = LoadPicture(myPictName)
End Sub