Word：按百分比调整图像大小 - 宏

Question

我经常将许多屏幕截图粘贴到 Microsoft Word 2007 中，然后必须手动将它们的大小调整为 75% 左右，这变得非常乏味。

屏幕截图都是不同的大小。

我已经尝试为此创建一个宏，但我只能编写一个宏来将所选图像的大小调整为特定尺寸。而且我无法让宏记录器识别在文档窗口中手动调整大小或使用“大小”对话框。

是否可以编写一个宏来将所选图像的大小调整为其当前大小的 75%？

这个问题和我的类似，但用户的要求是将他的所有图像调整为相同的大小。我需要调整具有任意高度/宽度的图像的大小。

我也愿意接受一种技术，该技术将首先以较小的尺寸粘贴图像。

Answer 1

将此代码复制到文档的 VBA 编辑器 (Alt + F11) 中的模块中。如果还没有模块，您可以从插入菜单中选择添加一个。

    Sub PicResize()
     Dim PercentSize As Integer

     PercentSize = 75

     If Selection.InlineShapes.Count > 0 Then
         Selection.InlineShapes(1).ScaleHeight = PercentSize
         Selection.InlineShapes(1).ScaleWidth = PercentSize
     Else
         Selection.ShapeRange.ScaleHeight Factor:=(PercentSize / 100), _
           RelativeToOriginalSize:=msoCTrue
         Selection.ShapeRange.ScaleWidth Factor:=(PercentSize / 100), _
           RelativeToOriginalSize:=msoCTrue
     End If
 End Sub

要运行此宏，请按 Alt + F8，从宏列表中选择 PicResize，然后单击 RUN。如果您只想每次单击以运行宏，您也可以将其分配给菜单中的按钮。