Word で複数の画像を挿入し、すべてを同じサイズに統一するにはどうすればよいですか？
通常、Word 文書には複数の画像を一度に元のサイズで挿入できます。しかし、一貫性とプロフェッショナルな見た目を確保するため、すべての画像を同じサイズに統一したい場合もあるでしょう。一枚ずつ手動でリサイズするのは非常に手間がかかります。本ガイドでは、複数の画像を効率よくWord 文書に挿入し、均一にリサイズして、プロフェッショナルで統一感のあるレイアウトを実現する方法をご紹介します。
VBA を使用してWord で複数の画像を挿入し、同じサイズにリサイズする
Kutools for Word を使用して、すべての画像を特定の画像と同じサイズにリサイズする
VBA を使用してWord で複数の画像を挿入し、同じサイズにリサイズする
次の VBA コードを使えば、複数の画像を一括で挿入し、指定したサイズにまとめてリサイズできます。以下の手順に従ってください。
- ALT + F11キーを押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。
- 挿入 > モジュールをクリックし、次のコードをモジュールウィンドウに貼り付けてください。
- F5キーを押してこのコードを実行すると、参照ウィンドウが表示されます。挿入したい画像が含まれるフォルダーを選択し、OKをクリックしてください。
- 画像のサイズ変更を行うかどうか確認するプロンプトが表示されます。はいをクリックしてください。
- 表示されたテキストボックスに、高さと幅をポイント（pt）単位でカンマ区切りで入力し、OKをクリックしてください。
- すべての画像は、挿入時に指定された寸法に自動的にリサイズされます。
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
Kutools for Word を使用して、すべての画像を特定の画像と同じサイズにリサイズする
Word 文書に複数の画像が含まれている場合、1 つずつリサイズするのは面倒ですよね。Kutools for Wordの画像のサイズ変更ユーティリティを使えば、すべての画像を特定の画像と同じサイズに瞬時に一括リサイズできます！
- 目的のサイズに画像を1 つ調整して選択します。次に、KUTOOLS PLUS > サイズ変更 > 選択に基づいてすべての画像をリサイズをクリックします。
Word 文書内のすべての画像が、選択した画像と同じサイズに瞬時にリサイズされます。
最高のオフィス生産性ツール
Kutools for Word– 300 以上の卓越した機能で、Word 体験をさらにレベルアップ！100 の注目の機能！
🤖KUTOOLS AI の機能：AI アシスタント／リアルタイムアシスタント／スーパーポリッシュ（書式を保持）／スーパートランスレート（書式を保持）／AI 編集／AI 校正…
📘ドキュメントマスタリー：ページ分割／文書の結合／選択範囲をさまざまな形式でエクスポート（PDF/TXT/DOC/HTML など）／一括 PDF 変換…
✏コンテンツ編集：複数ファイルにわたって一括検索と置換／すべての画像をリサイズ／表の転置行と列／表をテキストに変換…
🧹手間いらずのクリーンアップ：余分なスペースを一掃／セクション区切り／テキストボックス／ハイパーリンク／その他の削除ツールについては、削除グループをご覧ください…
➕クリエイティブ挿入：以下を挿入桁区切り記号／チェックボックス／ラジオボタン／QR コード／バーコード／複数の画像／詳細は挿入グループで…
🔍精密選択：特定のページ／表／図形／見出し段落／ナビゲーションを強化するにはその他の選択機能を活用…
⭐注目の拡張機能：任意の場所に移動／繰り返しテキストを自動挿入／ドキュメントWindows 間を切り替え／11 変換ツール…
🌍40 以上の言語をサポート：Kutools を好みの言語でお使いいただけます！英語、スペイン語、ドイツ語、フランス語、中国語など、40 以上の言語に対応しています。
Office Tab– Office にタブ付きインターフェースを導入し、作業を大幅に簡単に
- Word、Excel、PowerPoint、Publisher、Access、Visio、Project でタブを使った編集・閲覧機能を有効にします。
- 複数のドキュメントを、新しいウィンドウではなく、同じウィンドウ内の新しいタブで開いたり作成したりできます。
- 日々の生産性を50％も向上させ、毎日数百回のマウスクリックをカットします！
✨ Kutools for Office – 1 回のインストールで、5 つの強力なツールがすぐに使える！
含まれるもの：Office Tab Pro・Kutools for Excel・Kutools for Outlook・Kutools for Word・Kutools for PowerPoint
📦 1 つのスイートですべての5 ツールを入手｜🔗 Microsoft Office とシームレスに連携｜⚡ 保存時間して、すぐに生産性を向上
最高のオフィス生産性ツール
Kutools for Word– Word 向けの100+ツール
- 🤖KUTOOLS AI の機能：AI アシスタント／リアルタイムアシスタント／スーパーポリッシュ／スーパートランスレート／AI 編集／AI 校正
- 📘ドキュメントマスタリー：ページ分割／文書の結合／一括 PDF 変換
- ✏コンテンツ編集：一括検索と置換／すべての画像をリサイズ
- 🧹手間いらずのクリーンアップ：余分なスペースを削除／セクション区切りを削除
- ➕クリエイティブ挿入：桁区切り記号を挿入／チェックボックスを挿入／QR コードを作成
- 🌍40 以上の言語をサポート：Kutools はあなたの言語に対応しています！40 以上の言語をサポート！