一つのワード文章内で同じ画像を何度も使っていますが、ファイルのサイズが大きくなります。画像を挿入するときにリンクとして挿入すると、サイズは少なくなりますが、ワード文章をメールやUSBメモリステックなどで移動すると画像が(当然)表示されません。
そこで、最初の一枚目だけを普通に挿入して、2つ目以降は、この同じ文書内の一枚目の画像へのリンクとして挿入するにはどうすればいいでしょうか。
(最終的にはVBAで画像入りの文章を生成しますので、VBAでの方法でもかまいません)
こんなんで出来ました。
Sub copySelectPictureAsLink() Selection.Copy Selection.MoveRight ActiveWindow.ActivePane.Selection.PasteSpecial Link:=True, DataType:=wdPasteMetafilePicture, _ Placement:=wdInLine, DisplayAsIcon:=False End Sub
手動の場合は、編集→形式を指定して貼り付け で リンク貼り付けにチェックし、"windosメタファイル"などで貼り付ければよいでしょう。
行けそうな感じなのですが。。。
手動の場合、選択したものが図の場合は、リンク貼り付けのチェックが灰色になっていてチェックできません。
VBAの場合は、図をコピーしたあと、PasteSpecialメソッドをlink:=Trueで呼ぶとエラーになりました。(5342「指定した種類のデータは使用できません」)