Inserting a picture into a shape macro issues

[exel123]

I am trying to insert pictures into shapes in a spread sheet I have. I would like for the macro to bring up the file explorer and allow me to manually select the picture instead of specifying the image name in the macro. Any help would be greatly appreciated!

 

[jolivanes]

This works for me.
Change references where required

Sub Fill_Oval()
Dim strFilePath As String
    With Application.FileDialog(msoFileDialogFilePicker)
        If .Show <> 0 Then
            strFilePath = .SelectedItems(1)
            With ActiveSheet.Shapes("Oval 4").Fill
                .Visible = msoTrue
                .UserPicture strFilePath
            End With
        End If
    End With
End Sub

 

[exel123]

Thank you this works great!

 

[jolivanes]

Thank you for letting us know.
In your first post you mentioned pictures and shapes (multiple of each)
If you have the folder name where the pictures are stored (C:\Users\PeterPuck\Pictures) in cell D1 and
the names of the shapes in column J starting at J2 (header in J1) and
the picture names, in this case without extension, in column O on the same line as the representing shapes,
following will fill all the shapes with the corresponding pictures.
If you want to use it, change references where required.

Sub InsertPics_In_Shapes()
  Dim i As Long, lr As Long
  lr = Range("J" & Rows.Count).End(xlUp).Row
  For i = 2 To lr
    ActiveSheet.Shapes(Range("J" & i).Value).Fill.UserPicture Range("D1").Value & "\" & Range("O" & i).Value & ".jpg"
  Next i
End Sub