是否可以使用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。 –

回答