1

EPS 画像のグループ化を解除し、その過程で Microsoft Office 描画オブジェクトに変換することは、次のように PowerPoint で可能です。

oShp.Ungroup

そしてExcelは次のようになります：

Selection.ShapeRange.Ungroup

しかし、Word で取得できる最も近いもの (ドキュメントでインライン以外の図形が選択されている場合) は次のとおりです。

ActiveWindow.Selection.ShapeRange(1).Ungroup

これにより、「実行時エラー '-2147024891 (80070005)': グループがロックされており、グループ化を解除できません」というエラーが返されます。

しかし、ドキュメント内の EPS 画像を右クリックして [グループ解除] を選択すると、それを Microsoft Office 描画オブジェクトに変換し、もう一度グループを解除して個々の図形を取得できます。

VBAでこれを行う方法が必要ですか?

4

1 に答える 1

0

形状が「グループ」かどうかを確認する必要があります

これを試して。

Sub Sample()
    Dim shp As Shape

    For Each shp In ActiveDocument.Shapes
        If shp.Type = msoGroup Then shp.Ungroup
    Next
End Sub
于 2013-10-22T19:26:45.853 に答える