Wordで画像をVBAマクロを使って簡単に挿入する方法

パソコンパソコン・スマホ教室
スポンサーリンク

皆さん、こんにちは。今日は、Wordで画像をVBAマクロを使って挿入する方法についてお話しします。普段、Wordを使っていて、「ここに画像を入れたいな」と思うこと、ありますよね。でも、毎回手動で挿入するのはちょっと面倒…。そんな時、VBAマクロを使えば、もっと簡単に画像を挿入できるんです。

スポンサーリンク

VBAマクロって何?

Wordのイメージ

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ポイントに設定

今すぐ解決したい!どうしたらいい?

LINE公式

いま、あなたを悩ませているITの問題を解決します!
「エラーメッセージ、フリーズ、接続不良…もうイライラしない!」

あなたはこんな経験はありませんか?

✅ ExcelやWordの使い方がわからない💦
✅ 仕事の締め切り直前にパソコンがフリーズ💦
✅ 家族との大切な写真が突然見られなくなった💦
✅ オンライン会議に参加できずに焦った💦
✅ スマホの重くて重要な連絡ができなかった💦

平均的な人は、こうしたパソコンやスマホ関連の問題で年間73時間(約9日分の働く時間!)を無駄にしています。あなたの大切な時間が今この悩んでいる瞬間も失われています。

LINEでメッセージを送れば即時解決!

すでに多くの方が私の公式LINEからお悩みを解決しています。

最新のAIを使った自動応答機能を活用していますので、24時間いつでも即返信いたします。

誰でも無料で使えますので、安心して使えます。

問題は先のばしにするほど深刻化します。

小さなエラーがデータ消失重大なシステム障害につながることも。解決できずに大切な機会を逃すリスクは、あなたが思う以上に高いのです。

あなたが今困っていて、すぐにでも解決したいのであれば下のボタンをクリックして、LINEからあなたのお困りごとを送って下さい。

相談しに行く

ぜひ、あなたの悩みを私に解決させてください。

まとめ

今回は、Wordで画像をVBAマクロを使って挿入する方法をご紹介しました。最初は少し難しく感じるかもしれませんが、一度マスターすれば作業効率がぐっと上がります。ぜひ試してみてくださいね。他にも疑問やお悩み事があればお気軽にLINEからお声掛けください。

コメント

タイトルとURLをコピーしました