This macros below allowed me to insert a picture that I choose into Cell G1
at the correct heigth and with in 2003. Now in 2007 it does not put it into
the cell I want so the placement on the Excel sheet is wrong and I have to
drag it to the desired cell. Any Ideas?

Sub InsertPicture()
Dim myPicture As String, MyObj As Object

Range("g1").Select

myPicture = Application.GetOpenFilename _
("Pictures (*.gif; *.jpg; *.bmp; *.tif),*.gif; *.jpg; *.bmp; *.tif", _
, "Select Picture to Import")

If myPicture = "False" Then Exit Sub

Set MyObj = ActiveSheet.Pictures.Insert(myPicture)

With MyObj
With .ShapeRange
.LockAspectRatio = msoFalse
.Height = 198
.Width = 280
End With
.Placement = x1MoveAndSize

End With

End Sub