Разделите линии стандартной формы powerpoint

Question

Я хотел бы разбить стандартную форму PowerPoint на отдельные строки, чтобы я мог полностью контролировать, как и когда они появляются при использовании анимации. Таким образом, я хотел бы видеть, что форма сверху (стандартная форма PowerPoint) разлагается в приведенной ниже (без пространства betwen линий.

Я надеюсь, что кто-то имеет какие-то творческие идеи.

Answer 1

Это может помочь начать. Посмотрите документацию на различных свойств/методов для получения дополнительной информации.

Sub thing() 

    Dim oSh As Shape 
    Dim x As Long 
    Dim pointsArray() 

    Set oSh = ActiveWindow.Selection.ShapeRange(1) 
    With oSh 
     Debug.Print .Nodes.Count 

     With .Nodes 
      For x = 1 To .Count 

       Debug.Print "X = " & .Item(x).Points(1, 1) 
       Debug.Print "Y = " & .Item(x).Points(1, 2) 

      Next 
     End With 

    End With 

End Sub