vba - 添加金字塔 Smartart

Question

有谁知道如何使用 vsto 在 powerpoint 中添加金字塔智能艺术。我一直在寻找它，但没有任何运气。Vba 中的任何代码也会有所帮助

Answer 1

有趣的问题。为了添加给定类型的 smartart，您需要知道要添加的 smartart 类型的索引。这演示了如何添加智能艺术，并为您提供包含每种智能艺术类型之一的演示文稿。从空白演示文稿开始，然后删除所有幻灯片，包括第一张。然后运行这个：

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 的示例，依此类推。