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

 同じサイズの複数の画像をWord文書に挿入するにはどうすればよいですか?

通常、Word文書には、元のサイズの複数の画像を一度に挿入できます。 場合によっては、挿入時にこれらの画像を同じサイズに配置する必要があります。 この記事では、Word文書に同じサイズの複数の画像を挿入する方法について説明します。

VBAコードを使用してWord文書に同じサイズの複数の画像を挿入します

Kutools for Wordを使用して、特定の画像に基づいてすべての画像のサイズを同じサイズに変更します


VBAコードを使用してWord文書に同じサイズの複数の画像を挿入します

次のvbaコードは、複数の画像を挿入し、一度に指定したサイズにサイズ変更するのに役立ちます。次のようにしてください。

1。 を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2に設定します。 OK をクリックします。 インセット > モジュール、モジュールウィンドウに次のコードを貼り付けます。

VBAコード:同じサイズの複数の画像を挿入します:

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

3。 そして、を押します F5 このコードを実行するためのキー、 ブラウズ ウィンドウが表示されたら、挿入する画像が含まれているフォルダを選択してください。スクリーンショットを参照してください。

doc同じサイズの画像を挿入1

4。 次に、をクリックします OK ボタンをクリックすると、画像のサイズを変更するかどうかを通知するプロンプトボックスが表示されます。スクリーンショットを参照してください。

doc同じサイズの画像を挿入2

5に設定します。 OK をクリックします。 はい、および高さと幅のサイズ番号をコンマで区切ってテキストボックスに入力します。スクリーンショットを参照してください。

doc同じサイズの画像を挿入3

6。 そして、 OK、挿入されたすべての画像が同じサイズに再配置されました。スクリーンショットを参照してください。

doc同じサイズの画像を挿入4

Note:単位サイズはVBAコードの池です。


Kutools for Wordを使用して、特定の画像に基づいてすべての画像のサイズを同じサイズに変更します

Word文書に複数の画像が存在する場合は、 Kutools for Wordさん イメージのサイズ変更 ユーティリティを使用すると、特定の画像と同じようにすべての画像のサイズをすばやく変更できます。

Kutools for Word : 100以上の便利なWordアドインがあり、60日以内に制限なしで無料で試すことができます. 

インストールした後 Kutools for Word、次のようにしてください。

1。 XNUMXつの画像を希望のサイズに調整し、それを選択して、[ クツールズプラス > リサイズ > 選択して画像のサイズを変更する、スクリーンショットを参照してください:

2。 また、このWord文書のすべての画像は、選択した画像と同じようにすぐにサイズ変更されています。スクリーンショットを参照してください。

クリックしてKutoolsfor Wordと無料トライアルを今すぐダウンロードしてください!

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

Kutools for Word - Over で単語体験を向上させましょう 100 注目すべき機能!

以下のハイライトされた機能を詳しく見るか、 Kutools for Wordの全機能を探索するにはここをクリックしてください.

📘 ドキュメントマスタリー: 分割ページ  /  ドキュメントをマージする  /  選択内容をさまざまな形式でエクスポート (PDF/TXT/DOC/XLSX)  /  PDFへの一括変換  /  ページを画像としてエクスポート  /  複数のファイルを一度に印刷する ...

コンテンツ編集: バッチ検索と置換 複数のファイルにわたる   /  すべての画像のサイズを変更する   /  テーブルの行と列を転置する  /  表をテキストに変換 ...

🧹 楽にお掃除一掃する 余分なスペース  /  セクションブレーク  /   すべてのヘッダー  /  テキストボックス  /  ハイパーリンク  /  その他の削除ツールについては、削除グループにアクセスしてください

クリエイティブインサート: インセット 千の区切り文字  /  チェックボックス  /  ラジオボタン  /  QRコード  /  バーコード  /  斜線テーブル  /  方程式のキャプション  /  画像キャプション  /  テーブルキャプション  /  複数の写真  /  挿入グループで詳細をご覧ください

🔍 正確な選択: 特定のページを特定する  /  テーブル  /  シェイプ  /  見出し段落  /  選択グループを使用して簡単にナビゲートします

スターの強化: あらゆる場所に素早く移動  /  繰り返しのテキストを自動挿入  /  ドキュメントウィンドウをシームレスに切り替える  /  11 変換ツール ...

Kutools を使用して Word タスクを変換します。 👉 30 日間の試用版を今すぐダウンロード 🚀。

 
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Molto bello e utile! Non mi è chiara solo un a cosa, nel Codice VBA con criterio aumento/diminuisco le dimensioni delle immagini? Percentuale/rapporto? pixel? cm?
GRAZIE!
This comment was minimized by the moderator on the site
Hello, Grasselli
The unit size is pond in the above VBA code.
Thank you!
This comment was minimized by the moderator on the site
thanks for help ... it is very interesting ... big job ... good luck
This comment was minimized by the moderator on the site
Hi, hello
I'm Soda, I'm here to say that, I really learn a lot with your website and information that you give.
Thanks for that :)
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations