求助 vba一运行就报错 Sub setpicsize() '设置图片尺寸 Dim n '图片个数

Question

求助 vba一运行就报错 Sub setpicsize() '设置图片尺寸 Dim n '图片个数 On Error Resume Next '忽略错误 For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型 图片 ActiveDocument.InlineShapes(n).Height = 198.45 '设置图片高度为 7cm ActiveDocument.InlineShapes(n).Width = 283.5 '设置图片宽度 10cm Next n End Sub

Answer 1

Sub SetPicSize()

你这个是语法错误，参考：

https://blog.csdn.net/zhaoshuzhaoshu/article/details/77528179