批量旋轉Word文檔中多個圖像的6種有效方法

Word解決方案 2025 年 9 月 28 日
立即分享：

在本文中，我們希望重點向您展示在Word文檔中批量旋轉多個圖像的有效方法。

除了具有出色的文字處理能力外，Word還能夠處理圖像。 例如，您可以通過功能區中可用的圖片工具來一次處理一張圖像。 如您所知，內置功能可以完全滿足您旋轉單個圖像的需求。 今天，我們的技巧將使您能夠批量旋轉同一圖像的多個圖像。在Word文檔中批量旋轉多個圖像

在開始向您介紹批量旋轉的方法之前，我們想先向您介紹幾種不同的單張影像旋轉方法。

旋轉單個圖像的4種方法

只需花費幾秒鐘即可檢查以下旋轉單個圖像的方法。

方法1：使用旋轉手柄

  1. 首先，點選目標圖片。您可以看到圖片周圍有控制柄。
  2. 其次，將光標移到綠色的圓形手柄上，然後等待直到出現彎曲的箭頭線。
  3. 然後單擊並按順時針或逆時針方向旋轉圖像至所需程度。點擊目標影像

方法2：精確旋轉

  1. 首先，單擊圖像以觸發功能區中的“格式”選項卡。
  2. 接下來單擊“排列”組中的“旋轉”命令。
  3. 然後，您可以在下拉菜單上選擇一個選項。單擊圖像->單擊“格式”->單擊“旋轉”->選擇一個選項
  4. 如果需要將圖像旋轉到特定程度，則應單擊“更多旋轉選項”。
  5. 將會彈出“佈局”對話框。 單擊“大小”選項卡，然後輸入轉數。
  6. 最後，單擊“確定”。單擊“大小”選項卡->輸入旋轉數->單擊“確定”

方法3：使用3-D旋轉

  1. 首先，右鍵單擊目標圖像，然後選擇“設定圖片格式”。
  2. 其次，在“格式化圖片”框中，選擇“ 3-D旋轉”選項。
  3. 在“輪換”部分輸入數字。
  4. 最後，單擊“關閉”退出。選擇“ 3-D旋轉”->輸入數字

方法4：利用“ F4”鍵

如果使用方法2將圖像旋轉到一定程度，則可以通過按“ F4”將另一個圖像旋轉到相同程度。 但是，它具有局限性。 僅當選擇“垂直翻轉”，“水平翻轉”或為第一張圖像設置特定的旋轉度時，才能使用“ F4”鍵。

批量旋轉多個圖像的2種方法

以下是同時旋轉多張圖像時可以滿足您需要的方法。

方法1：旋轉選擇中的多個圖像

  1. 首先，從幾張圖片中做出選擇。
  2. 然後按“ Alt + F11”以在Word中打開VBA編輯器。
  3. 接下來，單擊“普通”，然後單擊“插入”選項卡。
  4. 然後選擇“模塊”。單擊“常規”->單擊“插入”->單擊“模塊”
  5. 雙擊打開新模塊。
  6. 然後，在右側的編輯空間中，粘貼以下代碼：
Sub RotateAllImagesInSelection()
  Dim objInlineShape As InlineShape
  Dim objShape As Shape
  Dim strDegree As String
 
  Application.ScreenUpdating = False
 
  strDegree=InputBox("Enter a rotation degree: ")
  Set objDoc = ActiveDocument
 
  For Each objInlineShape In Selection.InlineShapes
    Set objShape = objInlineShape.ConvertToShape
    objShape.IncrementRotation strDegree
    Set objInlineShape = objShape.ConvertToInlineShape
  Next objInlineShape
 
  Application.ScreenUpdating = True
End Sub
  1. 接下來單擊“運行”。粘貼代碼->單擊“運行”
  2. 將有一個輸入框。 輸入旋轉度，然後單擊“確定”繼續。輸入旋轉度->單擊“確定”

這樣，您只會旋轉選擇中的圖像。

方法2：旋轉文檔中的所有圖像

  1. 請按照上述步驟在Word中安裝和運行宏。
  2. 只是這次，用這個代替那個三月：
Sub RotateAllImagesInDoc()
  Dim objInlineShape As InlineShape
  Dim objShape As Shape
  Dim strDegree As String
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
 
  strDegree=InputBox("Enter a rotation degree: ")
  Set objDoc = ActiveDocument
 
  For Each objInlineShape In objDoc.InlineShapes
    Set objShape = objInlineShape.ConvertToShape
    objShape.IncrementRotation strDegree
    Set objInlineShape = objShape.ConvertToInlineShape
  Next objInlineShape
 
  Application.ScreenUpdating = True
End Sub
  1. 仍然會有一個輸入框供您輸入旋轉度。 只需輸入一個數字，然後單擊“確定”即可繼續。

修復文檔的有用工具

文檔損壞從現在開始隨機發生。 因此，至關重要的是要找到一個有效的工具來 維修文件 如果有的話最終會導致腐敗。 有瞭如此強大的工具，一旦發生數據丟失，您將不再擔心。

作者簡介：

陳薇薇（Vera Chen）是 DataNumen，Inc.是數據恢復技術的全球領導者，包括 損壞的Excel 以及 pdf 維修軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM

立即分享：

評論被關閉。