通过宏vbs批量把word中图片修改统一大小

word中使用宏修改图片大小，图片大小相同

1、打开word中视图选项卡，选择“宏”->“输入宏名”->“创建”

2、编辑宏

输入下面代码

Sub 宏1()

' 宏1 宏

Dim iSha As InlineShape

For Each iSha In ActiveDocument.InlineShapes

If iSha.Type = wdInlineShapePicture Then

' iSha.LockAspectRatio = msoFalse '不锁定纵横比

' iSha.Width = CentimetersToPoints(5) '宽5CM

iSha.Height = CentimetersToPoints(10) '高5CM

End If

End Sub

3、保存代码，选择对应的宏运行即可，左侧为图片修改后的大小

徐自远的乱七八糟小站涉及电子，网络，编程，软件使用，机械结构等等方面。