EXCELer

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