Inserting a picture into shape quickly

[ando185]

I am working with Excel for Mac 2011.

In the SmartArt section they have a picture tab, where you can select from various formats. None of these formats fit my needs. So my question is, can I customize these?

If not, can I add a macro to a shape so that it can do what the picture boxes do, opening the folder to select a photo, and put it into excel in the shape, location, and size of the shape?

 

[patel45]

This is for windows

Sub AddPic()
Dim myPicture As String
    myPicture = Application.GetOpenFilename _
    ("Pictures (*.gif; *.jpg; *.bmp; *.tif),*.gif; *.jpg; *.bmp; *.tif", _
    , "Select Picture to Import")
    ActiveSheet.Shapes.Range("ShapeName").Fill.UserPicture PictureFile:=myPicture
End Sub

 

[ando185]

This is for windows

Sub AddPic()
Dim myPicture As String
    myPicture = Application.GetOpenFilename _
    ("Pictures (*.gif; *.jpg; *.bmp; *.tif),*.gif; *.jpg; *.bmp; *.tif", _
    , "Select Picture to Import")
    ActiveSheet.Shapes.Range("ShapeName").Fill.UserPicture PictureFile:=myPicture
End Sub

This gave me a error. Not sure how to map the mac finder to open up the file...