Word VBAで画像のサイズ変更とトリミングを一括設定する方法

2025.06.19

パソコンパソコン・スマホ教室

Microsoft Office Word

スポンサーリンク

「Wordで画像を一括でサイズ変更したり、トリミングしたりしたいけれど、どうすればいいのか分からない」という方へ。特にパソコン操作に不安がある方でも、安心してできる方法をご紹介します。これを覚えれば、文書内の複数の画像を一度に整えることができ、作業効率がぐんとアップしますよ。

スポンサーリンク

目次

Word VBAって何？
画像のサイズ変更とトリミングを一括で行うVBAコード
VBAコードの使い方
よくある質問や疑問
今すぐ解決したい！どうしたらいい？
まとめ

Word VBAって何？

Wordのイメージ

Wordのイメージ

まず、VBA（Visual Basic for Applications）とは、Microsoft Office製品を自動化するためのプログラミング言語です。難しそうに聞こえるかもしれませんが、実は簡単な操作で、Wordの作業を自動化できるんです。

例えば、文書内の画像を一括でサイズ変更したり、トリミングしたりする作業をVBAを使って自動化することができます。これにより、手作業で行っていた面倒な作業を短時間で終わらせることができるんですよ。

画像のサイズ変更とトリミングを一括で行うVBAコード

以下のVBAコードを使うことで、文書内のすべての画像に対して、サイズ変更とトリミングを一括で行うことができます。

Sub ResizeAndCropImages()

    Dim shape As shape

    Dim targetWidth As Single

    Dim targetHeight As Single

    Dim cropLeft As Single

    Dim cropTop As Single

    Dim cropRight As Single

    Dim cropBottom As Single
    ' 目標の幅と高さを設定

    targetWidth = 150 ' 単位はポイント

    targetHeight = 100 ' 単位はポイント
    ' トリミングの量を設定

    cropLeft = 10 ' 単位はポイント

    cropTop = 10 ' 単位はポイント

    cropRight = 10 ' 単位はポイント

    cropBottom = 10 ' 単位はポイント
    ' 文書内のすべての図形をループ

    For Each shape In ActiveDocument.Shapes

        If shape.Type = msoPicture Then

            ' サイズを設定

            shape.LockAspectRatio = msoFalse

            shape.Width = targetWidth

            shape.Height = targetHeight

' トリミングを設定 shape.PictureFormat.CropLeft = cropLeft shape.PictureFormat.CropTop = cropTop shape.PictureFormat.CropRight = cropRight shape.PictureFormat.CropBottom = cropBottom End If Next shape End Sub

このコードでは、文書内のすべての画像に対して、指定した幅と高さにサイズ変更し、指定した量だけトリミングを行います。例えば、幅150ポイント、高さ100ポイントにサイズ変更し、左・上・右・下それぞれ10ポイントずつトリミングすることができます。

VBAコードの使い方

VBAコードを実際にWordで使用する方法をご紹介します。

Wordを開きます。
「Alt」キーと「F11」キーを同時に押して、VBAエディタを開きます。
「挿入」メニューから「標準モジュール」を選択します。
新しく開かれたウィンドウに、先ほどのVBAコードを貼り付けます。
「F5」キーを押して、コードを実行します。

これで、文書内のすべての画像が指定したサイズに変更され、トリミングされます。

よくある質問や疑問

Q1: VBAコードを実行すると、すべての画像が同じサイズになりますか？

はい、このコードではすべての画像に対して同じ幅と高さを設定します。異なるサイズにしたい場合は、コードを変更して個別に設定する必要があります。

Q2: トリミングの量を変更するにはどうすればいいですか？

コード内の「cropLeft」「cropTop」「cropRight」「cropBottom」の値を変更することで、トリミングの量を調整できます。例えば、左側のトリミングを20ポイントにしたい場合は、「cropLeft = 20」と設定します。

Q3: VBAコードを実行すると、元の画像が上書きされますか？

いいえ、VBAコードを実行しても、元の画像は上書きされません。ただし、サイズ変更やトリミングを行うと、元の状態に戻すことはできませんので、実行前に文書を保存しておくことをおすすめします。

今すぐ解決したい！どうしたらいい？

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

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

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

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

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

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

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

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

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

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

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

相談しに行く

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

まとめ

Wordで複数の画像を一括でサイズ変更したり、トリミングしたりする作業は、VBAを使うことで簡単に自動化できます。特に、パソコン操作に不安がある方でも、VBAコードを使うことで効率的に作業を進めることができます。

他にも疑問やお悩み事があれば、お気軽にLINEからお声掛けください。

コメント

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