![Word:按百分比调整图像大小 - 宏](https://linux22.com/image/1299315/Word%EF%BC%9A%E6%8C%89%E7%99%BE%E5%88%86%E6%AF%94%E8%B0%83%E6%95%B4%E5%9B%BE%E5%83%8F%E5%A4%A7%E5%B0%8F%20-%20%E5%AE%8F.png)
我经常将许多屏幕截图粘贴到 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,然后单击“运行”。如果您希望每次单击即可运行宏,也可以将其分配给菜单中的按钮。