Как использовать макрос, который увеличивает/уменьшает картинку при щелчке на ней

Sub ZoomImage()
     ' Ìàêðîñ äëÿ óâåëè÷åíèÿ / óìåíüøåíèÿ êàðòèíîê â Excel, ïî ùåë÷êó íà íèõ
    ' © 2013 EducatedFool     ExcelVBA.ru/code/ZoomImages
 
     Const ZOOM_RATIO# = 3    ' êîýôôèöèåíò óâåëè÷åíèÿ èçîáðàæåíèÿ
    Const STEPS_COUNT& = 20    ' êîëè÷åñòâî ïðîìåæóòî÷íûõ øàãîâ ïðè óâåëè÷åíèè
    Const ZOOM_SPEED# = 2   ' ñêîðîñòü óâåëè÷åíèÿ / óìåíüøåíèÿ êàðòèíêè ( îò 0 äî 10)
 
     On Error Resume Next: Err.Clear: Dim sha As Shape, s_sha As Shape, i&
     Set s_sha = ActiveSheet.Shapes(Application.Caller)
     If Err Then Exit Sub    ' âûõîä, åñëè ìàêðîñ âûçâàí íå ùåë÷êîì íà êàðòèíêå
 
     If s_sha.Name Like "BigImage_*" Then    ' ùåë÷îê íà óâåëè÷åííîé êàðòèíêå
        With s_sha
             cx1# = .Left + .Width / 2: cy1# = .Top + .Height / 2
             dw# = .Width / STEPS_COUNT&
             dt# = ZOOM_SPEED# / 50 / STEPS_COUNT&
 
             For i& = 1 To STEPS_COUNT&    ' â öèêëå óìåíüøàåì êàðòèíêó
                t = Timer: .Width = .Width - dw#
                 .Left = cx1# - .Width / 2: .Top = cy1# - .Height / 2
                 While Timer - t < dt#: DoEvents: Wend
             Next i
             .Delete    ' à ïîòîì óäàëÿåì å¸
        End With
 
     Else    ' ùåë÷îê íà èñõîäíîé êàðòèíêå, - ñîçäà¸ì å¸ êîïèþ, è óâåëè÷èâàåì
        For Each sha In ActiveSheet.Shapes
             If sha.Name Like "BigImage_*" Then sha.Delete
         Next
 
         Set sha = s_sha.Duplicate    ' ñîçäàåì êîïèþ êàðòèíêè
        sha.Top = s_sha.Top: sha.Left = s_sha.Left    ' ïîìåùàåì êîïèþ ïîâåðõ èñõîäíîé
        sha.Name = "BigImage_" & Timer    ' ïåðåèìåíîâûâàåì èçîáðàæåíèå
        sha.LockAspectRatio = 1
 
         ' åñëè åñòü çàêðåïë¸ííûå ñòîëáöû è ñòðîêè
        TopRowsHeight# = Range("1:1").RowHeight    ' çàêðåïëåíà ïåðâàÿ ñòðîêà
        LeftColumnsWidth# = 0    ' çàêðåïë¸ííûõ ñòîëáöîâ íåò
 
         With sha
             cx1# = .Left + .Width / 2: cy1# = .Top + .Height / 2
 
             cx2# = Columns(ActiveWindow.ScrollColumn).Left - LeftColumnsWidth# + _
                    ActiveWindow.Width / 2 * 100 / ActiveWindow.Zoom
             cy2# = Rows(ActiveWindow.ScrollRow).Top - TopRowsHeight# + _
                    ActiveWindow.Height / 2 * 100 / ActiveWindow.Zoom
 
             dw# = .Width * (ZOOM_RATIO# - 1) / STEPS_COUNT&
             dx# = (cx2# - cx1#) / STEPS_COUNT&: dy# = (cy2# - cy1#) / STEPS_COUNT&
             cx# = cx1#: cy# = cy1#: dt# = ZOOM_SPEED# / 50 / STEPS_COUNT&
 
             For i& = 1 To STEPS_COUNT&
                 t = Timer: cx# = cx# + dx#: cy# = cy# + dy#
                 .Width = .Width + dw#: .Left = cx# - .Width / 2: .Top = cy# - .Height / 2
                 While Timer - t < dt#: DoEvents: Wend
             Next i
         End With
     End If
End Sub

Sub Назначить_макрос()
    For i = 1 To 1000' примерное количество рисунков на листе
        On Error Resume Next
        ActiveSheet.Pictures(i).OnAction = "ZoomImage"
    Next
End Sub

  Sub Назначить_макрос()
    On Error Resume Next
    For i = 1 To 1000 ' примерное количество рисунков на листе
        ActiveSheet.Pictures(i).OnAction = "ZoomImage"
    Next
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("I:I,J:J,K:K"), Target) Is Nothing Then
    If Application.Dialogs(xlDialogInsertPicture).Show Then
        With Selection
      .ShapeRange.LockAspectRatio = msoFalse
            .Width = Target.Width
            .Height = Target.Height
        End With
    End If
End If
End Sub