I want to insert a picture into a shape using vba, but......

[reyusher]

I want to insert a picture into a shape using vba, but i want the picture to be selected manually from the insert picture window, not from url,
so i need the insert picture but only halfway until before the picture is selected, if possible i want to be able to click the shape itself and then it automatically go to insert picture window

 

[JEC]

Put this macro behind every shape, which you want to fill with pictures. Macro works when you click on the shapes (so don't run with F5/F8).

Sub jec()
 With Application.FileDialog(3)
   If .Show Then ActiveSheet.Shapes(Application.Caller).Fill.UserPicture .SelectedItems(1)
 End With
End Sub

 

[reyusher]

Put this macro behind every shape, which you want to fill with pictures. Macro works when you click on the shapes (so don't run with F5/F8).

Sub jec()
 With Application.FileDialog(3)
   If .Show Then ActiveSheet.Shapes(Application.Caller).Fill.UserPicture .SelectedItems(1)
 End With
End Sub

Thank you!!!

 

[JEC]

You're welcome !