ワード文章の、リンクでの画像の挿入についての質問です。


一つのワード文章内で同じ画像を何度も使っていますが、ファイルのサイズが大きくなります。画像を挿入するときにリンクとして挿入すると、サイズは少なくなりますが、ワード文章をメールやUSBメモリステックなどで移動すると画像が(当然)表示されません。

そこで、最初の一枚目だけを普通に挿入して、2つ目以降は、この同じ文書内の一枚目の画像へのリンクとして挿入するにはどうすればいいでしょうか。

(最終的にはVBAで画像入りの文章を生成しますので、VBAでの方法でもかまいません)

回答の条件
  • 1人1回まで
  • 登録:
  • 終了:2008/08/10 23:43:42
※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。

ベストアンサー

id:neuromancer_sho No.1

回答回数28ベストアンサー獲得回数3

ポイント60pt

こんなんで出来ました。

Sub copySelectPictureAsLink()
    Selection.Copy
    Selection.MoveRight
    ActiveWindow.ActivePane.Selection.PasteSpecial Link:=True, DataType:=wdPasteMetafilePicture, _
        Placement:=wdInLine, DisplayAsIcon:=False
    
End Sub

手動の場合は、編集→形式を指定して貼り付け で リンク貼り付けにチェックし、"windosメタファイル"などで貼り付ければよいでしょう。

id:fuentebella

行けそうな感じなのですが。。。

手動の場合、選択したものが図の場合は、リンク貼り付けのチェックが灰色になっていてチェックできません。

VBAの場合は、図をコピーしたあと、PasteSpecialメソッドをlink:=Trueで呼ぶとエラーになりました。(5342「指定した種類のデータは使用できません」)

2008/08/07 00:13:55
  • id:neuromancer_sho
    word2003で、以下の場合は手動・vba共にOKでした。

    ・スクリーンショットをwordに貼り付けたもの
    ・JPGファイルを挿入→図 で挿入したもの

  • id:fuentebella
    図を「位置を固定しない」しないにすれば、リンク貼り付けできました!!
    でも貼り付けた図に不思議な空白部分がついてきています。ありがとうございます。

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

回答リクエストを送信したユーザーはいません