Word文書に埋め込まれたMS-Office Drawing Objectsをイメージファイルに保存するという単純な要件があります。次のコードは、Powerpointからの画像抽出に使用されました。しかし、ActivePresentationをActiveDocumentに変更すると、MS-Wordではうまくいきません。シェイプオブジェクトではエクスポートメソッドを使用できませんでした。何か案は?VBAを使用してWordシェイプを画像に保存するにはどうすればよいですか?
Dim oPPTShap as Shape
For k = 1 To .Slides(intSlide).Shapes.Count
Set oPPTShape = ActivePresentation.Slides(intSlide).Shapes(k)
oPPTShape.Export "C:\images\s" & k & ".bmp", ppShapeFormatBMP
Next
Word VBAのオブジェクトモデルには、「エクスポート」機能が含まれていないため、Wordでは右クリックしてもファイルを保存することはできません。とにかく、あなたがリンクしたソリューションは、私が必要なものを正確に行いました、ありがとう! – Treb