word 使用宏修改图片大小

Sub AddNamespaceToMathMLInTextOnClipboard()
'
' AddNamespaceToMathMLInTextOnClipboard 宏
'
'
Dim n
Dim pixheight
Dim pixwidth
Dim pic As InlineShape
For n = 1 To ActiveDocument.InlineShapes.Count
pixheight = ActiveDocument.InlineShapes(1).Height
pixwidth = ActiveDocument.InlineShapes(1).Width
ActiveDocument.InlineShapes(n).Height = 80
ActiveDocument.InlineShapes(n).Width = 50
ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse


Next n
End Sub

改变图片大小，并修改锁定宽高比