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

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

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

屏幕截图的尺寸各不相同。

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

是否可以编写一个宏,将选定图像的大小调整为当前大小的 75%?

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

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

答案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,然后单击“运行”。如果您希望每次单击即可运行宏,也可以将其分配给菜单中的按钮。

相关内容