【宏编程】word统一修改图片样式

ALT+F8运行宏
在这里插入图片描述

在这里插入图片描述

输入如下代码

Sub setpicsize() '设置图片大小

Dim n '图片个数

On Error Resume Next '忽略错误

For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片

ActiveDocument.InlineShapes(n).Height = 350 '设置图片高度为 400px

ActiveDocument.InlineShapes(n).Width = 450 '设置图片宽度 130px

Next n

For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片

ActiveDocument.Shapes(n).Height = 350 '设置图片高度为 400px

ActiveDocument.Shapes(n).Width = 450 '设置图片宽度 130px

Next n

End Sub

运行结束后的word图片格式
在这里插入图片描述

已标记关键词 清除标记
©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页