-PR-
解決
済み

ワードVBAで画像を挿入

  • 暇なときにでも
  • 質問No.65198
  • 閲覧数2075
  • ありがとう数2
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 47% (767/1609)

ワードVBAのことですが、文書の中に図形のボックスが何個か並んでいます(2列で)。それぞれのボックスの中に、同じ画像をボタン1発で挿入するということを簡単なVBAで実現できるものでしょうか。

#同じ画像を全部のボックスに挿入したい。

#ワードのVBAの経験なしです。
#できるとしたら何行くらいの記述でできるものかという難易度も知りたい。
#とても簡単なサンプルコードも教えていただけると尚ありがたいです。
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

質問者が選んだベストアンサー

  • 回答No.1
レベル12

ベストアンサー率 52% (206/389)

s-holmesさんこんにちは。
私も、Wordのvbaは扱うことがないのですが、今回挑戦してみました。
まず、ドキュメント上に、”コントロールツールボックス”のメニューボタンからコマンドボタンを選択して貼り付けます。デフォルトの名前が"CommandButton1"になると思いますが、このボタンを右クリックして、立ち上がるVBEのイベントプロシージャに以下のようなコードを記述しました。

Private Sub CommandButton1_Click()
Dim myf As String
myf = "ここに画像ファイルまでのパスとファイル名を入れる"
With ActiveDocument
For i = 1 To .Shapes.Count
.Shapes(i).Fill.UserPicture myf
Next i
End With
End Sub

一応、Word2000にて動作確認しています。
お礼コメント
s-holmes

お礼率 47% (767/1609)

おおお!出来ました。ちょっと感動だ。
スクリプトの意味はなんとなくわかるという程度ですが、これを機会に少しは勉強してみたいです。ありがとうございました。
投稿日時 - 2001-04-19 06:16:52
-PR-
-PR-
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
このやり方知ってる!同じこと困ったことある。経験を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ