如何一次性保持比例修改word中图片大小保持比例保持比例

设置方法：

1、选中需要设置的图片(按住Ctrl键点击所有图片，选择所有图片)；
2、单击图片工具格式选项卡右下角如图所示的按钮；

3、弹出大小对话框，选中锁定纵横比和相对于图片原始尺寸复选框，在高度的输入框中输入图片的高度(或在芝度的输入框中输入图片的宽度)即可，如图所示。

shift+鼠标 选定要设置的图片 在按自己的意愿进行设置……

Sub setpicsize() '设置图片大小
Dim n '图片个数
Dim picwidth
Dim picheight
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
picheight = ActiveDocument.InlineShapes(n).Height
picwidth = ActiveDocument.InlineShapes(n).Width
ActiveDocument.InlineShapes(n).Height = picheight * 1.1 '设置高度为1.1倍
ActiveDocument.InlineShapes(n).Width = picwidth * 1.1 '设置宽度为1.1倍
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
picheight = ActiveDocument.Shapes(n).Height
picwidth = ActiveDocument.Shapes(n).Width
ActiveDocument.Shapes(n).Height = picheight * 1.1 '设置高度为1.1倍
ActiveDocument.Shapes(n).Width = picwidth * 1.1 '设置宽度为1.1倍
Next n
End Sub

按住Shift键+鼠标双击和托动就可以了。