Добавить пирамиду Смартарт

Question

Кто-нибудь знает, как добавить SmartArt пирамиды в PowerPoint с помощью VSTO. Я искал это, но не повезло. любой код в Vba также поможет

Answer 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 и т. Д.