Wordで全てまたは複数の画像をリサイズするにはどうすればよいですか？

Author: Sun Last Modified: 2025-05-23

インターネットや他のファイルから画像をコピーまたはインポートすると、これらの画像のサイズは大幅に異なる場合があります。1枚ずつ画像をリサイズすることは一般的な作業ですが、複数の画像に対して行うと非常に時間がかかることがあります。このチュートリアルでは、まず1枚の画像をリサイズすることから始め、その後、複数の画像を効率的にリサイズするための手法をいくつかご紹介します。

Wordで手動で画像をリサイズする

Kutools for Wordを使用して複数の画像を一度にリサイズする

VBAを使用して画像を特定の寸法にリサイズする

Wordで手動で画像をリサイズする

サイズ変更ハンドルを表示するために画像を選択します。
目的の寸法に合うまで、サイズ変更ハンドルのいずれかをドラッグします。

注意: この方法では、複数の画像を同時にリサイズすることはできません。各画像を個別にリサイズする必要があります。

Kutools for Wordを使用してすべての画像を一括でリサイズする

Kutools for Wordの「画像をリサイズ」機能を使用することで、Word内の各画像を手動でリサイズするよりも時間を節約し、ドキュメント内のすべての画像を簡単にリサイズできます。この機能により、複数の画像を迅速かつ効率的にリサイズすることが可能です。

Kutools for Wordについて、AI 🤖を搭載し、100 以上の便利な機能を提供して作業を簡素化します。

今すぐダウンロード

すべての画像を元のサイズの一定の割合にリサイズするには：
- Kutools Plus→リサイズをクリックし、ドロップダウンリストから6つのパーセンテージのうちの1つを選択します。例えば、すべての画像を元のサイズの半分にリサイズする場合は50％を選択します。
すべての画像を選択した画像のサイズに合わせて調整するには：
1. モデルとなるサイズとして使用する画像を選択します。
2. Kutools Plus→リサイズ→選択に基づいてすべての画像をリサイズをクリックします。すべての画像が選択された画像と同じサイズにリサイズされます。
より具体的なオプションが必要な場合は、Kutools Plus→リサイズ→カスタマイズをクリックして、高度なリサイズ設定にアクセスします。

Kutools for Wordの「画像をリサイズ」機能に関する詳細情報は、こちらをクリックして完全なガイドを読み、ステップバイステップの指示をご覧ください。

Kutools for Word は、作業を効率化し、文書処理スキルを向上させる究極の Word アドインです。今すぐ入手してください！

VBAを使用して画像を特定の寸法にリサイズする

以下のVBAコードを使用すると、理想的なサイズに画像をリサイズできます。以下の例では、高さ1.78インチ、幅3.17インチに画像をリサイズする方法を示しています。

リサイズしたい画像を選択してください。
Alt + F11を押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

クリック モジュール から挿入タブを選び、次のVBAコードをコピーして モジュール ウィンドウに貼り付けます。

Sub ResizePics()
Dim shp As Word.Shape
Dim ishp As Word.InlineShape
If Word.Selection.Type <> wdSelectionInlineShape And _
Word.Selection.Type <> wdSelectionShape Then
    Exit Sub
End If
If Word.Selection.Type = wdSelectionInlineShape Then
    Set ishp = Word.Selection.Range.InlineShapes(1)
    ishp.LockAspectRatio = False
    ishp.Height = InchesToPoints(1.78)
    ishp.Width = InchesToPoints(3.17)
Else
    If Word.Selection.Type = wdSelectionShape Then
        Set shp = Word.Selection.ShapeRange(1)
        shp.LockAspectRatio = False
        shp.Height = InchesToPoints(1.78)
        shp.Width = InchesToPoints(3.17)
    End If
End If
End Sub

注意: 上記のコードでは、ishp.Height = InchesToPoints(1.78) および shp.Width = InchesToPoints(3.17) が画像の高さと幅をインチ単位で定義しています。必要に応じてこれらの値を変更できます。

「実行」ボタンをクリックするか、F5キーを押してVBAコードを実行します。選択した画像が指定された寸法にリサイズされます。

このVBAコードは便利ですが、すべてまたは複数の画像を一度にリサイズすることはできません。Word文書とMicrosoft Visual Basic for Applicationsウィンドウを行ったり来たりして、各画像を選択してリサイズする必要があり、これは時間がかかることがあります。このような場合には、Kutoolsの方法を使用してください。