当サイトの記事にはプロモーションが含まれています。

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

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

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

スポンサーリンク

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で使用する方法をご紹介します。

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

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

よくある質問や疑問

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

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

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

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

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

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

まとめ

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

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

この記事を書いた人
この記事を書いた人

企業の情報システム部門で10年以上、PC・アカウント・社内ネットワーク・Microsoft 365/Google Workspace運用を担当。年間数百件の問い合わせ対応(PC不調、メール送受信、Excel/Word資料、Teams会議、スマホ連携など)を通じて、初心者がつまずくポイントを「再現→原因切り分け→最短解決」の手順に落とし込んできました

現場や身近で実際に起きたトラブルをベースに、手順だけでなく「なぜそうなるか」「失敗しやすい落とし穴」「安全な設定(セキュリティ)」まで含めて解説します。

相談窓口(問い合わせ/LINE等)を設け、記事で解決しないケースも個別にサポートしていますので「パソコンが急に動かなくなった」「スマホの設定がわからない」などの悩みは一人で抱え込まず、お気軽にご相談ください。

【お問い合わせは下記URLから】
https://m32006400n.xsrv.jp/inquiry-form/

【公式LINEは下記URLから】
https://lin.ee/t8TDjcj

uri uriをフォローする
スポンサーリンク
よかったらシェアしてね! /
uri uriをフォローする

コメント

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