vba - ピラミッドスマートアートを追加

Question

vsto を使用してパワーポイントにピラミッド スマートアートを追加する方法を知っている人はいますか。私はそれを探していましたが、運がありません。Vbaのコードも役立ちます

Answer 1

興味深い質問です。特定の種類のスマートアートを追加するには、追加するスマートアートの種類のインデックスを知る必要があります。これは、スマート アートを追加する方法を示しており、各スマート アート タイプの 1 つを含むプレゼンテーションも提供します。空白のプレゼンテーションから始めて、最初のスライドを含むすべてのスライドを削除します。次に、これを実行します。

Sub AddSmartArtDemo()

Dim x As Long
Dim oSl As Slide
With ActivePresentation
    For x = 1 To Application.SmartArtLayouts.Count
        Set oSl = .Slides.AddSlide(x, .Designs(1).SlideMaster.CustomLayouts(6))
        oSl.Shapes.AddSmartArt Application.SmartArtLayouts(x)
    Next
End With

End Sub

完了すると、スライド 1 に SmartArt インデックス 1 の例が表示されます。