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

取消组合的EPS图片，在这个过程中它转换为微软Office图形对象，可以在PowerPoint如下：是否可以使用VBA取消组合EPS图片以在Word中创建Microsoft Office图形对象？

oShp.Ungroup

和Excel这样的：

Selection.ShapeRange.Ungroup

但最近我可以在Word得到（与该文档中选择的非内联的形状）是这样的：

ActiveWindow.Selection.ShapeRange(1).Ungroup

和这个返回错误“运行时错误“-2147024891（80 070005）'：组被锁定，不能被取消分组“。

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

在VBA中一定有办法做到这一点？

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

试试这个。

Sub Sample() 
    Dim shp As Shape 

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

2013-10-22 19:26:45

这不会工作Siddharth，因为形状是msoPicture类型，因为它在Excel和PowerPoint中取消分组将它转换为Microsoft Office图形对象。看来，Word不能做到这一点！ –

如果我误解了你，我很抱歉。你可以取消它的组合？ –

可以通过Word UI取消组合 - 是的。编程取消组合似乎是一个问题，但仅限于Word。 –

回答