是否可以使用VBA取消组合EPS图片以在Word中创建Microsoft Office绘图对象？

Question

可以在PowerPoint中取消组合EPS图片，将其转换为Microsoft Office绘图对象，如下所示：

oShp.Ungroup

和Excel这样：

Selection.ShapeRange.Ungroup

但是我能在Word中得到的最接近的（在文档中选择了非内联形状）是这样的：

ActiveWindow.Selection.ShapeRange(1).Ungroup

并返回错误“运行时错误'-2147024891（80070005）'：组已锁定且无法取消分组”。

然而，当我右键单击文档中的EPS图片并选择取消组合时，我可以将其转换为Microsoft Office绘图对象，然后再将其取消组合以获得各个形状。

必须有办法在VBA中执行此操作吗？

Answer 1

您需要检查形状是否为“群组”

试试这个。

Sub Sample()
    Dim shp As Shape

    For Each shp In ActiveDocument.Shapes
        If shp.Type = msoGroup Then shp.Ungroup
    Next
End Sub