Do you really need to use Image controls (which it sounds like in your
description) ?
If you can just put the graphics on the worksheet, here are 2 methods below.
If you need to use image controls, post back.
The first method uses the more up-to-date Shapes collection, whilst the 2nd
uses the older Pictures collection.
Both are valid. Depends what you want to do with the graphics after.

Private Sub CommandButton3_Click()
Dim PicNames As Variant
Dim WS As Worksheet
Dim Pic As Picture
Dim i As Long

'Note the MultiSelect=True
PicNames = Application.GetOpenFilename("JPG Files (*.jpg), *.jpg", , , ,
True)

If Not IsArray(PicNames) Then Exit Sub

'Set to the required destination
Set WS = Worksheets(1)

For i = LBound(PicNames) To UBound(PicNames)
   WS.Shapes.AddPicture PicNames(i), msoFalse, msoTrue, 10, 10 + 10 * i,
100, 100
Next

'Or
'To reduce flicker when resizing
Application.ScreenUpdating = False
For i = LBound(PicNames) To UBound(PicNames)
   Set Pic = ActiveSheet.Pictures.Insert(PicNames(i))
   With Pic
       .Left = 200
       .Top = 10 + 10 * i
       .Width = .Width / 2
       .Height = .Height / 2
   End With
Next
Application.ScreenUpdating = True

End Sub

NickHK