批量旋转 Word 文档中的多个图像的 6 种有效方法

词解法 2025 年 9 月 28 日
立即分享：

在本文中，我们希望重点向您展示在 Word 文档中批量旋转多个图像的有效方法。

除了处理文字的出色能力外，Word 还能够处理图像。 例如，您可以通过功能区中可用的图片工具一次处理一张图像。 如您所知，内置功能可以完美满足您旋转单张图片的需求。 我们今天的技巧将使您能够将多个图像批量旋转到相同的角度。批量旋转 Word 文档中的多个图像

在开始向您介绍批量旋转的方法之前，我们想先向您介绍几种不同的单张图像旋转方法。

旋转单个图像的 4 种方法

只需花几秒钟检查以下旋转单个图像的方法。

方法一：使用旋转手柄

  1. 首先，点击目标图片。您可以看到图片周围有控制柄。
  2. 其次，将光标移到圆形的绿色手柄上，等待弯曲的箭头线出现。
  3. 然后单击并按顺时针或逆时针方向将图像旋转到您需要的度数。点击目标图像

方法二：精确度数旋转

  1. 首先，单击图像以触发功能区中的“格式”选项卡。
  2. 接下来单击“排列”组中的“旋转”命令。
  3. 然后您可以在下拉菜单中选择一个选项。单击图像->单击“格式”->单击“旋转”->选择一个选项
  4. 如果需要将图像旋转到特定角度，则应单击“更多旋转选项”。
  5. 弹出“布局”对话框。 单击“大小”选项卡并输入旋转数。
  6. 最后，单击“确定”。单击“尺寸”选项卡->输入旋转数->单击“确定”

方法 3：使用 3-D 旋转

  1. 首先，右键单击目标图像，然后选择“设置图片格式”。
  2. 其次，在“格式化图片”框中，选择“3-D 旋转”选项。
  3. 在“旋转”部分输入数字。
  4. 最后点击“关闭”退出。选择“3-D旋转”->输入数字

方法四：使用“​​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. 只有这一次，将那个 mar 替换为这个：
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

立即分享：

评论被关闭。