皆さん、こんにちは。今日は、Wordで画像をVBAマクロを使って挿入する方法についてお話しします。普段、Wordを使っていて、「ここに画像を入れたいな」と思うこと、ありますよね。でも、毎回手動で挿入するのはちょっと面倒…。そんな時、VBAマクロを使えば、もっと簡単に画像を挿入できるんです。
VBAマクロって何？
Wordのイメージ
まず、VBAマクロについて簡単に説明しますね。VBAとは、Visual Basic for Applicationsの略で、Microsoft Office製品に組み込まれているプログラミング言語のことです。これを使うと、WordやExcelでの作業を自動化できるんですよ。
画像を挿入するマクロの作り方
では、具体的にどのようにマクロを作成し、画像を挿入するのかを見ていきましょう。
1. マクロの編集画面を開く
まず、Wordを開きます。そして、AltキーとF11キーを同時に押してみてください。すると、VBAの編集画面が表示されます。
2. 新しいマクロを作成する
次に、上部のメニューから挿入をクリックし、標準モジュールを選択します。すると、新しいモジュールが追加され、コードを入力できる画面が表示されます。
3. コードを入力する
以下のコードをそのままコピーして、先ほどの画面に貼り付けてください。
vba
Sub InsertImage()
Dim fd As FileDialog
Dim fileChosen As Integer
Dim img As InlineShape
Dim rng As Range
' ファイルダイアログを表示して画像を選択
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
.Title = "画像を選択してください"
.Filters.Add "画像ファイル", "*.gif; *.jpg; *.jpeg; *.bmp; *.png", 1
.AllowMultiSelect = False
fileChosen = .Show
End With
' 画像が選択されなかった場合、マクロを終了
If fileChosen <> -1 Then
Exit Sub
End If
' 現在のカーソル位置に画像を挿入
Set rng = Selection.Range
Set img = ActiveDocument.InlineShapes.AddPicture(FileName:=fd.SelectedItems(1), LinkToFile:=False, SaveWithDocument:=True, Range:=rng)
img.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
End Sub
このコードは、ユーザーが選択した画像を、現在のカーソル位置に挿入するものです。挿入された画像は中央揃えになります。
4. マクロを実行する
コードを入力したら、編集画面を閉じて、元のWord画面に戻ります。次に、上部のメニューから開発タブをクリックし、その中のマクロを選択します。先ほど作成した「InsertImage」というマクロが表示されているはずです。それを選択して実行をクリックすると、画像を選択するダイアログが表示されます。挿入したい画像を選んでOKを押すと、画像が文書内に挿入されます。
よくある質問や疑問
Q1. 複数の画像を一度に挿入できますか？
はい、可能です。先ほどのコード内の`.AllowMultiSelect = False`を`.AllowMultiSelect = True`に変更すると、複数の画像を選択して一度に挿入することができます。
Q2. 画像のサイズを調整することはできますか？
もちろんです。以下のように、画像の幅と高さを指定することで、サイズを調整できます。
vba
img.Width = 100 ' 幅を100ポイントに設定
img.Height = 100 ' 高さを100ポイントに設定
今すぐ解決したい！どうしたらいい？
いま、あなたを悩ませているITの問題を解決します！
「エラーメッセージ、フリーズ、接続不良…もうイライラしない！」
あなたはこんな経験はありませんか？
✅ ExcelやWordの使い方がわからない💦
✅ 仕事の締め切り直前にパソコンがフリーズ💦
✅ 家族との大切な写真が突然見られなくなった💦
✅ オンライン会議に参加できずに焦った💦
✅ スマホの重くて重要な連絡ができなかった💦
平均的な人は、こうしたパソコンやスマホ関連の問題で年間73時間（約9日分の働く時間！）を無駄にしています。あなたの大切な時間が今この悩んでいる瞬間も失われています。
LINEでメッセージを送れば即時解決！
すでに多くの方が私の公式LINEからお悩みを解決しています。
最新のAIを使った自動応答機能を活用していますので、24時間いつでも即返信いたします。
誰でも無料で使えますので、安心して使えます。
問題は先のばしにするほど深刻化します。
小さなエラーがデータ消失や重大なシステム障害につながることも。解決できずに大切な機会を逃すリスクは、あなたが思う以上に高いのです。
あなたが今困っていて、すぐにでも解決したいのであれば下のボタンをクリックして、LINEからあなたのお困りごとを送って下さい。
ぜひ、あなたの悩みを私に解決させてください。
まとめ
今回は、Wordで画像をVBAマクロを使って挿入する方法をご紹介しました。最初は少し難しく感じるかもしれませんが、一度マスターすれば作業効率がぐっと上がります。ぜひ試してみてくださいね。他にも疑問やお悩み事があればお気軽にLINEからお声掛けください。
コメント