メインコンテンツへスキップ

Kutools for Office — 1つのスイート、5つのツールで、もっと多くのことを成し遂げましょう。

Wordで画像を挿入して同じサイズにリサイズするにはどうすればよいですか?

Author Xiaoyang Last modified

通常、Word文書に複数の画像を一度に元のサイズで挿入できます。しかし、一貫性があり専門的な見た目を保つために、すべての画像を同じサイズにする必要がある場合もあります。各画像を手動でリサイズするのは時間がかかる作業です。このガイドでは、Word文書に複数の画像を効率的に挿入し、それらを均一にリサイズして、専門的で統一されたレイアウトを実現する方法をご紹介します。

VBAを使用してWordで複数の画像を挿入し、同じサイズにリサイズする

Kutools for Wordを使用してすべての画像を特定の画像に合わせてリサイズする


VBAを使用してWordで複数の画像を挿入し、同じサイズにリサイズする

次のVBAコードを使用すると、複数の画像を挿入し、指定した寸法に一度にリサイズすることができます。以下の手順に従ってください:

  1. ALT + F11キーを押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。
  2. 挿入 > モジュールをクリックし、次のコードをモジュールウィンドウに貼り付けます。
  3. Sub InsertSpecificNumberOfPictureForEachPage()
        Dim xDlg As FileDialog
        Dim xFilePath As String
        Dim xFileName As String
        Dim xMsbBoxRtn As Long
        Dim xPicSize As String
        Dim xShape As InlineShape
        Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
        If xDlg.Show = -1 Then
            xFilePath = xDlg.SelectedItems(1) & "\"
        Else
            Exit Sub
        End If
        xFileName = Dir(xFilePath & "*.*", vbNormal)
        While xFileName <> ""
            If Not (Right(xFileName, 4) = ".png" Or Right(xFileName, 4) = ".bmp" _
            Or Right(xFileName, 4) = ".jpg" Or Right(xFileName, 4) = ".ico") Then
                GoTo LblCtn
            End If
            With Selection
                .InlineShapes.AddPicture xFilePath & xFileName, False, True
                .TypeParagraph
                .Collapse wdCollapsEnd
                .TypeText Left(xFileName, InStrRev(xFileName, ".") - 1)
                .ParagraphFormat.Alignment = wdAlignParagraphCenter
                .TypeParagraph
            End With
    LblCtn:
            xFileName = Dir()
        Wend
        ActiveDocument.InlineShapes(1).Select
        Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
        xMsbBoxRtn = MsgBox("Do you want to resize all pictures?", vbYesNo, "Kutools for Word")
        If xMsbBoxRtn = 6 Then
            xPicSize = InputBox("Input the height and width of the picture, separated by comma", "Kutools for Word", "")
        End If
        For Each xShape In ActiveDocument.InlineShapes
          xShape.Height = Split(xPicSize, ",")(0)
          xShape.Width = Split(xPicSize, ",")(1)
        Next xShape
    End Sub
    
  4. F5キーを押してこのコードを実行します。「参照」ウィンドウが表示されますので、挿入したい画像が含まれているフォルダーを選択して「OK」をクリックします。

    Browse window

  5. 画像をリサイズするかどうかを尋ねるプロンプトが表示されます。「はい」をクリックします。

    Confirmation dialog saying 'Do you want to resize all pictures?'

  6. 表示されるテキストボックスに、カンマで区切って高さと幅(ポイント単位)を入力し、「OK」をクリックします。

    Dialog box to specify size

  7. 挿入されたすべての画像が指定された寸法にリサイズされます。

    All the inserted images are resized


Kutools for Wordを使用してすべての画像を特定の画像に合わせてリサイズする

Word文書に複数の画像が含まれている場合、それらを1つずつリサイズするのは面倒な作業です。Kutools for Wordの「画像をリサイズ」機能を使用すると、すべての画像を特定の1つの画像のサイズに迅速にリサイズできます。

Kutools for WordAI 🤖を搭載し、100 以上の便利な機能を提供して作業を簡素化します。
  1. 1つの画像を目的のサイズに調整して選択します。次に、「Kutools Plus」「リサイズ」「選択に基づいてすべての画像をリサイズ」をクリックします。

    Resize All Images Based on Selection option on the Kutools Plus tab on the ribbon

Word文書内のすべての画像が、選択した画像のサイズに即座にリサイズされます。

All pictures are resized to match the size of the selected picture

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

最高のオフィス生産性ツール

Kutools for Word - 100以上の驚くべき機能でWordの操作体験を向上!

🤖 Kutools AI機能: AIアシスタント / リアルタイムアシスタント / スーパー ポリッシュ(書式維持)/ スーパー トランスレート(書式維持)/ AI編集 / AI校正...

📘 文書マスター: ページの分割 / 文書の結合 / 選択範囲を様々な書式(PDF/TXT/DOC/HTMLなど)でソリューションをエクスポート / 一括PDF変換...

テキスト編集: 複数ファイルを対象に一括検索と置換 /すべての画像をリサイズ / 表の行全体と列を転置 / 表をテキストに変換...

🧹 簡単クリーン:余分なスペース / セクション区切り / テキストボックス / ハイパーリンクをすばやく削除 /さらに多くの削除ツールは「削除」グループでご利用いただけます...

クリエイティブ挿入: 千の区切り文字を挿入 / チェックボックス / ラジオボタン / QRコード / バーコード / 複数の画像 / 詳細は「挿入」グループで発見...

🔍 高精度な選択: 特定のページ図形見出し段落などをピンポイント選択 /さらに多くの 選択 機能でナビゲーションを強化...

スター強化: 任意の範囲へナビゲーション / 定型テキストの自動挿入 / 文書ウィンドウ間の切り替え /11 種の変換ツール...

🌍 40以上の言語に対応: Kutoolsはあなたの言語でお使いいただけます ― 英語、スペイン語、ドイツ語、フランス語、中国語など40言語以上に対応!

Kutools and Kutools Plus tabs on the Word Ribbon
👉これらの機能を試してみたいですか?今すぐKutools for Wordをダウンロード!🚀
 

✨ Kutools for Office –1回のインストールで5つのパワフルツールが使えます!

Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint を含む

📦5つのツール全てが1つのスイートに | 🔗 Microsoft Officeとシームレスに統合 | ⚡ 保存時間・生産性をすぐにアップ

最高のオフィス生産性ツール

Kutools for Word - 100+ のツールでWordをよりパワフルに