Word VBAで画像を指定位置に挿入する方法｜初心者でもできる簡単マクロ解説

2025.06.23

Word文書に画像を挿入する際、手動で行うと手間がかかりますよね。特に、同じ位置に複数の画像を挿入したい場合、VBA（Visual Basic for Applications）を使うと効率的です。今回は、初心者の方でもわかりやすいように、画像を指定した位置に挿入するVBAマクロの作成方法をご紹介します。

画像を挿入する位置を指定する方法
1. 文書の末尾に画像を挿入する
2. 特定のページに画像を挿入する
画像のサイズや配置を調整する方法
1. 画像のサイズを変更する
2. 画像を中央に配置する
今すぐ解決したい！どうしたらいい？
まとめ

画像を挿入する位置を指定する方法

Wordのイメージ

Word VBAで画像を挿入する際、挿入位置を指定することができます。例えば、文書の末尾や特定のページに画像を挿入したい場合です。

文書の末尾に画像を挿入する

文書の末尾に画像を挿入するには、以下のようなVBAコードを使用します。

vba

Sub InsertImageAtEnd()

    Dim imgPath As String

    imgPath = "C:\path\to\your\image.jpg" ' 画像のパスを指定

    Selection.EndKey Unit:=wdStory ' 文書の末尾にカーソルを移動

    Selection.InlineShapes.AddPicture FileName:=imgPath, LinkToFile:=False, SaveWithDocument:=True

End Sub

このコードでは、`Selection.EndKey Unit:=wdStory`でカーソルを文書の末尾に移動し、`Selection.InlineShapes.AddPicture`で画像を挿入しています。

特定のページに画像を挿入する

特定のページに画像を挿入するには、以下のようなコードを使用します。

vba

Sub InsertImageAtPage()

    Dim imgPath As String

    imgPath = "C:\path\to\your\image.jpg" ' 画像のパスを指定

    Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=2 ' 2ページ目に移動

    Selection.InlineShapes.AddPicture FileName:=imgPath, LinkToFile:=False, SaveWithDocument:=True

End Sub

このコードでは、`Selection.GoTo`で2ページ目に移動し、画像を挿入しています。

画像のサイズや配置を調整する方法

挿入した画像のサイズや配置を調整することも可能です。

画像のサイズを変更する

画像のサイズを変更するには、以下のようなコードを使用します。

vba

Sub ResizeImage()

    Dim img As InlineShape

    Set img = Selection.InlineShapes(1) ' 最初の画像を取得

    img.LockAspectRatio = msoTrue ' アスペクト比を固定

    img.Width = CentimetersToPoints(10) ' 幅を10cmに設定

End Sub

このコードでは、`LockAspectRatio`でアスペクト比を固定し、`Width`で幅を設定しています。

画像を中央に配置する

画像を中央に配置するには、以下のようなコードを使用します。

vba

Sub CenterImage()

    Dim img As InlineShape

    Set img = Selection.InlineShapes(1) ' 最初の画像を取得

    img.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter ' 中央揃えに設定

End Sub

このコードでは、`ParagraphFormat.Alignment`で画像を中央揃えに設定しています。