
Sub AddPic1()
Dim myPicture As String
ActiveSheet.Shapes(Application.Caller).Select
myPicture = Application.GetOpenFilename _
("Pictures (*.gif; *.jpg; *.bmp; *.tif),*.gif; *.jpg; *.bmp; *.tif", _
, "Select Picture to Import")
Selection.ShapeRange.Fill.UserPicture _
myPicture
End Sub
|
