VBA 取消形状组合 (SmartArt)

VBA是Visual Basic for Applications的简称，是一种用于宏编程的语言，常用于Microsoft Office系列软件中。在使用VBA编写代码时，我们可以通过取消形状组合来对SmartArt图形进行操作。本文将介绍如何使用VBA取消形状组合，并提供一个案例代码来帮助读者更好地理解。

vba
Sub CancelShapeGrouping()
    Dim sld As Slide
    Dim shp As Shape
    Set sld = ActivePresentation.Slides(1) '假设要操作的幻灯片是第一张
    For Each shp In sld.Shapes
        If shp.HasSmartArt Then '判断形状是否包含SmartArt图形
            shp.Ungroup '取消形状组合
        End If
    Next shp
End Sub