VBA取消组合形状（SmartArt）

Question

有谁知道如何通过VBA取消组合SmartArt元素？

Sub UngroupSmartArt()

Dim shapeWithSmartArt As Shape
Set shapeWithSmartArt = ActivePresentation.Slides(2).Shapes(2)

shapeWithSmartArt.Ungroup

End Sub

我收到此代码的错误： “只能为群组访问此成员。”

对我来说没有任何意义，因为很容易在powerpoint本身做到这一点（右键点击SmartArt - ＆gt; Group - ＆gt; Ungroup）。这让我疯狂：）

任何人都可以帮我解开SmartArt元素/形状吗？

我也查看了类似的question，但它无法正常工作，因为与通过powerpoint本身制作的结果相比，未分组的结果不同。

请帮帮我。我真的很感激任何帮助！