添加金字塔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的示例，依此类推。