Powerpoint - Сохранить группу как изображение через VBA

Question

Я хотел бы сохранить группу в виде png-изображения.

Я могу экспортировать изображение как полный слайд, но не могу понять, как экспортировать только определенную группу.

Это работает для слайда:

Private Sub CommandButton1_Click()
    neuerText = TextBox1.Value
    ActivePresentation.Slides(1).Export "C:\bla\" & neuerText & ".png", "PNG"
End Sub

а как выбрать только группу? Э.Г.

ActivePresentation.Slides(1).Shapes("Group 1").Export "C:\bla\" & neuerText & ".png", "PNG"

В идеале изображение должно иметь прозрачный фон.

Кто-нибудь знает, как я могу это сделать?

Answer 1

Использование объекта ShapeRange должно работать.

Private Sub CommandButton1_Click()
    neuerText = TextBox1.Value

    Dim myGroup As ShapeRange
    Set myGroup = ActivePresentation.Slides(1).Shapes.Range("Group 1")
    myGroup.Export "C:\bla\" & neuerText & ".png", ppShapeFormatPNG
End Sub