پرسش راهنمای در مورد عمومی کردن کد بین چند شی

[میثم مقدم نیا]

سلام
من برای بزرگ نمای عکس ها در اکسل از کد زیر استفاده میکنم

 Sub all_Click() 
 Dim H  As Long 
 Dim w  As Long
 Dim Shp  As Shape
 For Each Shp In ActiveSheet.Shapes
     If Shp.Type = 13 Then
        Shp.Width = Shp.TopLeftCell.Width * 3
        Shp.Height = Shp.TopLeftCell.Height * 3
     End If
 Next Shp
 With ActiveSheet.Shapes(Application.Caller).OLEFormat.Object
        .Width = .TopLeftCell.Width * 6
        .Height = .TopLeftCell.Height * 11
        .ShapeRange.ZOrder msoBringToFront
 End With
 End Sub 

برای چندتا عکس کلیک راست و انتخاب Assign Macro خوبه

حال من میخوام این کد را برای تعداد زیادی عکس مشترک استفاده کنم
تا با کلیک بروی هر عکس بتونم اون را بزرگ کنم
اگه بخوام از روش کلیک راست استفاده کنم خوب زمان بر و خسته کننده است
چطور میشه این کد را برای همه عکس ها عمومی کنم تا با کیلک روی آنها اونا را بزرگ کنم
یا عکس جدید که به فایل اضافه میکنم اتومات از این کد پیروی کنه
امید وارم منظورم را رسونده باشم
لطفا فایل پیوست را ببینید
تصاویر 1 تا 6 از این کد استفاده میکنند

[میثم مقدم نیا]

سلام
دوستان و اساتید محترم کسی نبود یه راهنمایی کنه