image - 是否可以使用 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中必须有办法做到这一点？

score 0 · Accepted Answer

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

尝试这个。

Sub Sample()
    Dim shp As Shape

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

1 回答 1