VBAを使用してPPTでEMFペーストを編集/グループ解除する方法は？

Question

ベルリンのMartinさん（ドイツ - 私の間違った英語を間違えてください）...

私はVBAを使用してPPTでEMFペーストを編集しようとしています。 EMFペーストは、Excelのグラフであり、私は ActiveWindow.Selection.SlideRange.Shapes.PasteSpecialデータ型を使用：= 3（拡張メタファイル）VBAなし

それは簡単です：ちょうど（2×）画像と「グループ解除」を右クリック。これはエラーで実行されますActiveWindow.Selection.ShapeRange.Ungroup.Select

そして 、右の形状（作品を）選択 1：

は、VBAで、私は次のことを試してみました」...グループ化を解除することはできません "。

別のスレッドでは、「解決策」が指定されました：PPT 2007でマクロ記録 - >不可能！ PPT 2003にマクロを記録すると、全く同じことが言えます。 ActiveWindow.Selection.ShapeRange.Ungroup.Select しかし、動作しません。

emfイメージを「オフィスフォーマット」に変換する前に、あるステップがあるはずです（「ungroup」をクリックした後にVBAなしで行う場合は、メッセージボックスが表示されます。 「オフィスフォーマット」）。

VBAでungroupを行うにはどうすればよいですか？

Answer 1

これは、ここに動作します：

Sub UngroupPastedChart() 
Dim oShRange As ShapeRange 
Dim oSh As Shape 
Set oShRange = ActiveWindow.Selection.SlideRange.Shapes.PasteSpecial(ppPasteEnhancedMetafile) 
Set oShRange = oShRange.Ungroup 
Set oShRange = oShRange.Ungroup 
End Sub 

、あなたが最後に選択することがグループ化されていない形状をしたい場合oShRange.Selectを追加します。