Word VBAでリンクの設定

質問

Word文書中に画像があります。
しかし、実体は文中ではなくリンクとなっています。

その場合、当然他のPCから参照した場合に画像が参照できません。
そこでVBAを使って画像を文書中に保存させようと思いますが、今のところ手段がわかりません。
手動では『リンクの設定』からできるのですが、その操作をマクロに記録しても何も残らないようです。

実際、可能なのでしょうか？ご存知の方、ご教授ください。
よろしくお願いします。

回答No.1

KenKen_SP

こんにちは。

こんな感じでいけるかもしれない。

Dim obj As Object
For Each obj In ActiveDocument.Fields
　　If obj.Type = wdFieldIncludePicture Then
　　　　If obj.LinkFormat.Type = wdLinkTypePicture Then
　　　　　　obj.Unlink
　　　　End If
　　End If
Next

コピーしたファイルでテストしてみて。

お礼

回答ありがとうございました。
しかし、UnlinkだけではLinkがきれただけで、ファイル内に画像が残りませんでした。

InlineShapesのLinkFormat.SavePictureWithDocumentをtrueにすることで対応できました。

ありがとうございました。