word宏求助（图片批量改大小）
本帖最后由 2014218866 于 2019-11-19 21:17 编辑哪位大佬精通word宏，帮忙改一下面的代码：
将所选（不是文档中所有的图片而是当前所选的图片）图片批量改大小（在不改变图片版式的情况下）
Sub统一大小()
On Error Resume Next
Dim mywidth
Dim myheight
Application.ScreenUpdating = False '关闭屏幕更新
mywidth = Val(InputBox(Prompt:="单位为厘米(cm);如果输入为0，则图片保持原始纵横比,宽度根据输入的高度数值自动调整；", Title:="请输入图片宽度", Default:="0")) * 28.35
myheight = Val(InputBox(Prompt:="单位为厘米(cm);如果输入为0，则图片保持原始纵横比,高度根据输入的宽度数值自动调整；", Title:="请输入图片高度", Default:="0")) * 28.35
'------------------------------------------------------------------
'调整嵌入式图形
<font color="#ff0000">Dim pic As InlineShape
For Each pic In Selection.InlineShapes</font>
If mywidth = "0" Then
pic.Height = myheight
pic.ScaleWidth = pic.ScaleHeight
ElseIf myheight = "0" Then
pic.Width = mywidth
pic.ScaleHeight = pic.ScaleWidth
Else
pic.LockAspectRatio = msoFalse
pic.Width = mywidth
pic.Height = myheight
End If
Next
Application.ScreenUpdating = True '恢复屏幕更新
End Sub
页:
[1]