添加Pyramid Smartart

Question

是否有人知道如何使用vsto在powerpoint中添加金字塔smartart。 我一直在寻找它，但没有任何运气。 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的示例，依此类推。