Snasui Excel Forum

Code: Select all

Sub picture_Q5()
   Dim sFile As Variant, r As Range
    Dim imgIcon As Object
    Set r = Range("Q5").MergeArea
    sFile = Application.GetOpenFilename(FileFilter:="Pic Files (*.jpg;*.bmp), *.jpg;*.bmp", _
        Title:="Browse to select a picture")
    If sFile = False Then Exit Sub
    
    Set imgIcon = ActiveSheet.Shapes.AddPicture( _
        Filename:=sFile, _
        LinkToFile:=False, _
        SaveWithDocument:=msoCTrue, _
        Left:=r.Left, _
        Top:=r.Top, _
        Width:=r.Width, _
        Height:=r.Height)

End Sub

Code: Select all

Set imgIcon = ActiveSheet.Shapes.AddPicture( _
        Filename:=sFile, _
        LinkToFile:=True, _
        SaveWithDocument:=False, _
        Left:=r.Left, _
        Top:=r.Top, _
        Width:=r.Width, _
        Height:=r.Height)