如何在 Word 中一次調整所有或多張圖片的大小？

從網際網路或其他檔案複製或匯入圖片時，這些圖片的尺寸往往差異極大。雖然逐一調整圖片大小是常見操作，但處理多張圖片時卻相當耗時。本教學將帶您從單張圖片的調整起步，逐步掌握高效批量調整圖片尺寸的實用技巧。

在 Word 中手動調整圖片大小

使用 Kutools for Word 一次調整多張圖片大小

使用 VBA 將調整圖片大小調整為特定尺寸

---

在 Word 中手動調整圖片大小

1. 選取一張圖片，即可顯示其尺寸控制點。
2. 拖曳任一尺寸控制點，即可輕鬆調整圖片至您理想的大小。

   

注意：此方法無法一次調整多張圖片的尺寸，您必須逐一調整每張圖片。

---

使用 Kutools for Word 批量調整所有圖片大小

使用 Kutools for Word 的調整圖片大小功能，可無縫批量調整文件中所有圖片尺寸，省去在 Word 中手動逐一調整的繁瑣，大幅提升效率！立即體驗快速又精準的圖片尺寸統一設定，讓排版更專業、更輕鬆！

• 若要將所有圖片調整為其原始尺寸的特定百分比：
  • 點擊 KUTOOLS PLUS＞ 調整大小，並從下拉選單中選擇六種百分比之一。例如，選取 50%，即可將所有圖片縮放為原始尺寸的一半。
• 若要將所有圖片調整為與所選圖片相同大小：
  1. 選取一張圖片作為標準尺寸。
  2. 點擊 KUTOOLS PLUS＞ 調整大小＞ 調整為選圖大小，即可將所有圖片一鍵調整為與所選圖片相同尺寸！
• 如果您需要更多自訂選項，請點選 KUTOOLS PLUS＞ 調整大小＞ 自訂，立即存取進階調整大小設定。

想深入了解 Kutools for Word 的調整圖片大小功能？立即點擊閱讀完整指南，掌握逐步操作說明！

---

使用 VBA 將圖片調整為特定尺寸

透過以下 VBA 程式碼，您可輕鬆將圖片調整至理想尺寸。以下範例示範如何將圖片高度設為 1.78 英吋、寬度設為 3.17 英吋。

1. 請選擇您要調整尺寸的圖片。
2. 按下 Alt + F11，立即開啟 Microsoft Visual Basic for Applications 視窗！
3. 按一下模組，從插入頁籤中，並將下列 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

   注意：在上述程式碼中，ishp.Height = InchesToPoints(1.78) 與 shp.Width = InchesToPoints(3.17) 定義了圖片的高度與寬度（單位：英吋）。您可依需求自由調整這些數值！

4. 點擊執行按鈕，或按下 F5 鍵，即可執行 VBA 程式碼，所選圖片將自動調整為指定尺寸！

雖然此 VBA 程式碼實用，但無法一次調整所有或多張圖片。您必須在 Word 文件與 Microsoft Visual Basic for Applications 視窗之間來回切換，逐一選取並調整每張圖片，過程相當耗時。此時，請改用 Kutools 方法，輕鬆提升效率！

---

示範：如何在 Word 中調整圖片大小

---