跳到主要內容

如何調整Word中所有/多個圖像的大小?

當我們從Internet或其他文件複製或導入圖像時,圖像的大小可能會有所不同。 每個人都知道如何一張一張地縮放圖片,但是如果我們想一次將它們縮放到相同的尺寸,我們該怎麼辦? 本教程將向您展示幾種調整圖像大小的方法。

在Word中手動調整圖像大小

使用VBA調整圖像大小

使用Kutools for Word一次調整多個圖像的大小


在Word中手動調整圖像大小

1。 通過單擊圖片來顯示圖片的大小調整手柄;

2。 將光標放在圖片的大小調整手柄之一上。

3。 拖動大小調整手柄,直到圖片尺寸適合您的需求。 看截圖:

doc調整圖片1

備註:使用這種方法,無法一次全部調整多張照片的尺寸。 您需要一個一個地調整它們的大小,直到所有圖片都被調整大小。


使用VBA調整圖像大小

使用以下VBA代碼,您可以將圖片調整為理想的尺寸。 您可以完成以下操作:

在此示例中,我們將圖片大小調整為1.78英寸高和3.17英寸寬。

1。 請選擇您要更改尺寸的圖片;

2。 按 Alt + F11 打開 Microsoft Visual Basic for Applications 窗口;

3。 點擊 模塊 插入 標籤,將以下VBA代碼複製並粘貼到 模塊 窗口;

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

4. 點擊 按鈕或 F5 鍵以運行VBA代碼,並且所選圖像的大小已調整為您所需的大小。

備註:在上面的代碼中,  以shp.Height = InchesToPoints(1.78) shp.Width = InchesToPoints(3.17) 是圖片的高度和寬度,您可以更改大小以滿足您的需要。

使用此VBA代碼,您也無法一次調整所有或多張圖片的大小。 您需要在Word文檔和 Microsoft Visual Basic for Applications 窗口中選擇圖片並應用代碼。 那太費時間了。


使用Kutools for Word調整圖像大小

這款獨特的敏感免洗唇膜採用 Moisture WrapTM 技術和 Berry Mix ComplexTM 成分, Kutools for Word's 調整圖像大小 實用程序,您可以擺脫那些煩人且耗時的操作,并快速調整文檔中所有圖像的大小。

Kutools for Word : 帶有超過100個方便的Word加載項,可以在60天內免費試用. 

1。 請通過單擊應用此實用程序 Kutools 加 > 調整大小。 看截圖:

2。 如果要將所有圖像調整為原始尺寸的某個百分比,請從下拉列表中選擇六個百分比之一。 例如,如果要將所有圖片調整為原始尺寸的50%,請選擇 企業排放佔全球 50%。 點擊後 企業排放佔全球 25%,您將看到所有圖片的大小已調整為50%。 看截圖:

doc調整圖片3

如果您想將所有圖像調整為相同的大小並選擇一個,請選擇一張照片作為模型尺寸,然後單擊 Kutools 加 > 調整大小 > 通過選擇調整圖像大小,並且所有圖片都會根據所選的圖片大小調整為相同大小,請參見屏幕截圖:

doc調整圖片4

有關更多詳細信息 Kutools for Word 調整圖像大小 實用程序,請點擊 這裡.

點擊下載Kutools for Word並立即免費試用!


演示:在Word中一次調整所有圖像的大小

Kutools for Word:具有超過100個方便的Word加載項,可以在60天內免費試用,沒有限制。 立即下載並免費試用!

最佳辦公生產力工具

Kutools for Word - 透過 Over 提升您的文字體驗 100 顯著特點!

🤖 Kutools 人工智慧助手:用人工智慧改變你的寫作 - 生成內容  /  重寫文字  /  總結文件  /  查詢資料 基於文檔,全部在Word中

📘 文件掌握: 分頁  /  合併文件  /  以各種格式匯出選擇(PDF/TXT/DOC/HTML...)  /  批次轉換為PDF  /  將頁面匯出為圖像  /  一次列印多個文件...

內容編輯: 批量查找和替換 跨多個文件  /  調整所有圖片的大小  /  轉置表行和列  /  將表格轉換為文字...

🧹 輕鬆清潔: 移開 多餘的空間  /  分節符  /  所有標題  /  文本框  /  超鏈接  / 如需更多拆卸工具,請前往我們的 刪除組...

創意插入: 插入 千位分隔符  /  複選框  /  單選按鈕  /  QR Code  /  條碼  /  對角線表  /  公式標題  /  圖片說明  /  表格標題  /  多張圖片  / 發現更多 插入組...

🔍 精準選擇:精確定位 特定頁面  /    /  形狀  /  標題段落  / 增強導航功能 更多 選擇功能...

星級增強: 快速導航至任何位置  /  自動插入重複文字  /  在文檔視窗之間無縫切換  /  11 轉換工具...

???? 想嘗試這些功能嗎? Kutools for Word 提供了 60天免費試用,沒有任何限制! 🚀
 
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