標準パワーポイントの形状を分解する

Question

アニメーションを使用するときの表示方法とタイミングを完全に制御できるように、標準のPowerPointシェイプを別々の行に分割したいと思います。このように、私は誰かが、いくつかの創造的なアイデアを持っている願っていますトップ（標準PowerPointの形状）の形状がラインbetwenスペースなし（下の1に分解されること。

見たいのですが。

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