VBA Excel автоматизированный c изменить размер и ограничить несколько фигур на листе

Question

Следуя моему предыдущему запросу:

VBA Excel automati c изменение размера изображения и границы

сейчас я пытаюсь применить эту функцию для более чем 1 изображения на мой лист:

Мой код выглядит следующим образом:

 Public Sub ResizeCab()

   Dim targetSheet As Worksheet
   Dim targetRange1 As Range, targetRange2 As Range
   Dim targetShape As Shape

   Set targetSheet = ThisWorkbook.ActiveSheet

   Set targetRange1 = targetSheet.Range("B3:L24")
   Set targetRange2 = targetSheet.Range("B25:L46")


   For Each targetShape In targetSheet.Shapes

    If targetShape.Name Like "*Picture*" Then
        SizeToRange targetShape, targetRange1, targetRange2
    End If

   Next targetShape

  End Sub

  Private Sub SizeToRange(ByVal targetShape As Shape, ByVal Target As Range)


         With targetShape

          .LockAspectRatio = msoFalse
          .Left = Target.Left + 10
          .Top = Target.Top - 5
          .Width = Target.Width
          .Height = Target.Height
          .ZOrder msoSendToBack
         End With

        With targetShape.Line
           .Visible = msoTrue
           .ForeColor.RGB = RGB(0, 0, 0)
           .ForeColor.TintAndShade = 0
           .ForeColor.Brightness = 0
           .Transparency = 0
           .Visible = msoTrue
           .Weight = 1
        End With

        End Sub

В строке SizeToRange targetShape, targetRange1, targetRange2 Я получаю сообщение об ошибке:

Неверное количество аргументов или недопустимое присвоение свойства

Я хотел бы, чтобы мои 2 (или более) импортированных изображения были изменены с рамкой. Это возможно?