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

Wordですべて/複数の画像のサイズを変更するにはどうすればよいですか?

インターネットやその他のファイルから画像をコピーまたはインポートする場合、画像のサイズはさまざまです。 写真をXNUMX枚ずつサイズ変更する方法は誰もが知っていますが、一度に同じサイズにサイズ変更したい場合は、どうすればよいでしょうか。 このチュートリアルでは、画像のサイズを変更するいくつかの方法を紹介します。

Wordで画像のサイズを手動で変更する

VBAで画像のサイズを変更する

Kutools for Wordを使用して、複数の画像のサイズを一度に変更します


Wordで画像のサイズを手動で変更する

1。 画像をクリックして画像のサイズ変更ハンドルを表示するには、

2。 画像のサイズ変更ハンドルのXNUMXつにカーソルを置きます。

3。 画像サイズがニーズに合うまで、サイズ変更ハンドルをドラッグします。 スクリーンショットを参照してください:

doc調整画像1

Note:この方法では、一度に複数の画像のサイズを変更することはできません。 すべての画像のサイズが変更されるまで、XNUMXつずつサイズを変更する必要があります。


VBAで画像のサイズを変更する

次のVBAコードを使用すると、画像のサイズを理想的なサイズに変更できます。 あなたはそれを次のように行うことができます:

この例では、画像サイズを高さ1.78​​.3.17インチ、幅XNUMXインチにサイズ変更します。

1。 サイズを変更したい画像を選択してください。

2。 押す Alt + F11 を開く アプリケーション向け Microsoft Visual Basic 窓;

3に設定します。 OK をクリックします。 モジュール from インセット タブで、次のVBAコードをコピーして貼り付けます モジュール 窓;

VBAコード:XNUMXつの画像のサイズを特定のサイズに変更します。

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

4.  ラン ボタンまたは F5 キーを押してVBAコードを実行すると、選択した画像のサイズが必要なサイズに変更されます。

Note:上記のコードでは、  shp.Height = InchesToPoints(1.78)で > shp.Width = InchesToPoints(3.17) 画像の高さと幅ですが、必要に応じてサイズを変更できます。

このVBAコードでは、一度にすべてまたは複数の画像のサイズを変更することもできません。 あなたはWord文書との間を行ったり来たりする必要があります アプリケーション向け Microsoft Visual Basic 画像を選択してコードを適用するウィンドウ。 それは時間がかかりすぎます。


Kutools forWordで画像のサイズを変更する

Kutools for Word 's イメージのサイズ変更 ユーティリティを使用すると、これらの煩わしく時間のかかる操作を取り除き、ドキュメントのすべての画像のサイズをすばやく変更できます。

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

1。 クリックしてこのユーティリティを適用してください クツールズプラス > リサイズ。 スクリーンショットを参照してください:

2。 すべての画像のサイズを元のサイズの特定のパーセンテージに変更する場合は、ドロップダウンリストから50つのパーセンテージのいずれかを選択してください。 たとえば、すべての画像のサイズを元のサイズのXNUMX%に変更する場合は、[ 50%。 クリック後 25%、すべての画像のサイズが50%になっていることがわかります。 スクリーンショットを参照してください:

doc調整画像3

選択した画像と同じサイズにすべての画像を調整する場合は、モデルサイズとして画像を選択し、をクリックしてください クツールズプラス > リサイズ > 選択して画像のサイズを変更する、およびすべての画像は、選択した画像に基づいて同じサイズにサイズ変更されます。スクリーンショットを参照してください。

doc調整画像4

詳細については、 Kutools for Wordさん イメージのサイズ変更 ユーティリティ、クリックしてください こちらをクリックすると、ツールが開きます。.

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


デモ:Wordですべての画像のサイズを一度に変更

Kutools for Word:100以上の便利なWordアドインがあり、60日以内に制限なしで無料で試すことができます。 今すぐダウンロードして無料トライアル!

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

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

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

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

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

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

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

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

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

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

 
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I wasted a good 3 hrs or more trying to get these VBA macros to work. Gave up and tried Kutools which works great! Purchased it right away as it is well worth the $49!
This comment was minimized by the moderator on the site
If you save your document as .docx, then you will be able to open it as zip-archive. There will be media folder with all images (mine had PNG images). You can then use programs like IrfanView, XnViewMP, FastStone Viewer to perform batch transformations like resize, reduce color depth, etc. Pack your images back into zip and rename it to docx. For example, in my docx full of screenshots I needed to reduce number of colors to 8, which is enough for documentation purposes. After processing my 10MB doc became 1.8MB doc, so savings can be significant. Always save your original docx in case you want to restore pictures after too much degradation/processing etc.
This comment was minimized by the moderator on the site
I need to resize all images in a word document to the same width but not deform the images. so scale them to the same width. Is this possible through a macro?
This comment was minimized by the moderator on the site
Does anyone know if an image placeholder/dropper/automatic sizing feature is available in Windows 365? No idea where to look or find assistance on this since the Microsoft chat help was SO unhelpful. Any tips would be greatly appreciated.
This comment was minimized by the moderator on the site
save your money and run this macro: Credit to Dave Sub resizeimages() Dim i As Long With ActiveDocument For i = 1 To .InlineShapes.Count With .InlineShapes(i) .ScaleHeight = 60 .ScaleWidth = 60 End With Next i End With End Sub
This comment was minimized by the moderator on the site
Where i put this code?
This comment was minimized by the moderator on the site
save your money and run this macro: Credit to Dave Sub resizeimages() Dim i As Long With ActiveDocument For i = 1 To .InlineShapes.C ount With .InlineShapes(i ) .ScaleHeight = 60 .ScaleWidth = 60 End With Next i End With End Sub Excellent!!! You saved my money and my time. Thank you very much!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations