Создайте встроенную картинку из фигуры VBA, вставленной кодом VBA

Question

У меня есть следующий код, который позволяет мне создать свободную форму. Это работает нормально, однако я хотел бы убедиться, что это встроенная картинка (чтобы я мог выделить всю картинку и перетащить ее вокруг.

Sub ArrayLoop(array1, array2)
  Dim i As Long
  For i = LBound(array1) To UBound(array1) - 1
    With ActivePresentation.Slides(1).Shapes.AddLine(BeginX:=array1(i), BeginY:=array2(i), EndX:=array1(i + 1), EndY:=array2(i + 1)).Line
      .DashStyle = msoLineDashDotDot
      .ForeColor.RGB = RGB(50, 0, 128)
    End With
  Next
End Sub

Sub TestArrayLoop()
  Dim C1, C2
  C1 = Array (848.9067,860.2763,859.5809,849.0524,776.9896,776.9896,776.9896,783.0045,783.4444,777.2606,848.9067)
  C2 = Array(424.4964,387.9998,351.0141,317.205,340.3528,340.3528,340.3528,359.4618,380.6804,401.2172,424.4964)


  ArrayLoop C1, C2  
End Sub

Есть мысли о том, что мне следует изменить здесь?