【word】利用宏批量设置word中图片大小

 

 

word中批量设置图片大小

Sub resetImgSize()
Dim iShape As InlineShape
For Each iShape In ActiveDocument.InlineShapes
iShape.LockAspectRatio = msoTrue
iShape.Height = CentimetersToPoints(3.5)
iShape.Width = CentimetersToPoints(12)
Next
End Sub

在word选项中设置菜单栏显示开发工具，找到宏后，新建宏，粘贴代码，根据需要替换以上代码中高3.5和宽12两个变量。

word中批量调整图片居中显示

crtl+f或者菜单打开查找替换

点击查找内容，点击更多，展开选项，点击特殊格式

在特殊格式中选择图形

然后点击上图中的替换为输入框

点击格式，选择段落

根据自己需求，调整段落设置，确定

全部替换即可完成图片批量居中设置