Greetings

Currently i am working on a macro the moment you select the rectangle and click the command button and then it inserts a image into the selected rectangle. The code is as follows and it works:

1.
Sub AddPic()
On Error GoTo cancel:
Picture = Application.GetOpenFilename(".jpg Files (*.jpg), *.jpg")
Selection.ShapeRange.Fill.UserPicture Picture
cancel:
End Sub
Now here is a alternative line of code i tried to use but then the image is not inserted into the rectangle:

2.
Application.GetOpenFilename(ImgFileFormat, MultiSelect:=True)
Ultimately what i want the macro to do, the user must select as many rectangles as they need to insert pictures, they click on the button, they browse for the photos and select them, and then each selected picture is inserted into a rectangle.

I want to ask if anybody knows how to do this because i have struggled now for hours and give up. And i am not very good with DIM and loop commands