Here is the coding for a Macro I made to insert a picture and resize it:
Sub GetPic()
'
' Resize Macro
' Macro recorded 10/14/2010 by Zachary Zito
'
Dim myPicture As String
myPicture = Application.GetOpenFilename _
("Pictures (*.gif; *.jpg; *.bmp; *.tif),*.gif; *.jpg; *.bmp; *.tif", , "Select...