第一步:打开工具 → 宏 → 宏…
第一步第二步:添加一个宏
Sub imgSize()
'
' imgSize 宏
'
'
Dim oInlineShape As InlineShape
For Each oInlineShape In ActiveDocument.InlineShapes
With oInlineShape
.LockAspectRatio = msoTrue '锁定纵横比
.Height = MillimetersToPoints(87.4) '以毫米为单位设置高度
.Width = MillimetersToPoints(49) '以毫米为单位设置宽度
End With
Next
End Sub
第二步
第三部:运行宏
第三部:运行
网友评论