Auto Powerclip - Macro please

I have 5 shapes  and 5 images

please can someone automate the powerclip process including the fill proportionally command adding