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

debugcn 发表于 Dev

cantera25

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

屏幕截图大小各不相同。

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

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

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

我也愿意采用一种将图像粘贴为较小尺寸的技术。

查理·RB

将此代码复制到文档的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，然后单击“运行”。如果只想每次单击运行宏，也可以将其分配给菜单中的按钮。

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。