[VBA] reassigning a picture

[pit84]

Hi

I have two pictures, Picture 1 and Picture 2. I Need a macro that will allow me to assign picture from Picture 1 to Picture 2. If I use shapes with picture fill, I can use PickUp and Apply, yet, I'd rather use pictures. Is there a way to do something similar with pictures?

Thx for help

 

[pit84]

Alternatively, how can I call picture selection wizard by clicking on a shape?

Let's say, I assign a macro to a shape:

Sub test()
Dim shp as shape
Set shp = ActiveSheet.Shapes(Application.Caller)

... code that would invoke wizard to look for picture on HDD...
end sub