小编mic*_*24B的帖子

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

Sub UngroupSmartArt()

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

shapeWithSmartArt.Ungroup

End Sub

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

这对我来说没有任何意义，因为在 powerpoint 本身中很容易做到这一点（右键单击 SmartArt -> Group -> Ungroup）。这让我发疯:)

任何人都可以帮助我取消 SmartArt 元素/形状的分组吗？

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

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