Freedom Computers

Add an Image using a Macro in Office 2007

With Range("A1")
Set imgIcon = ActiveSheet.Shapes.AddPicture(Filename:="bluelogo.jpg", LinkToFile:=False, SaveWithDocument:=True, Left:=.Left, Top:=.Top, Width:=200, Height:=50)
End With
Set imgIcon = Nothing

EXCEL