word里页眉处的 图片怎么修改尺寸?
在百度里找,都是只能改正文里的图片尺寸,代码一般如下:
Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
ActiveDocument.InlineShapes(n).Height = 99 '设置图片高度为 99px
ActiveDocument.InlineShapes(n).Width = 71 '设置图片宽度 71px
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
ActiveDocument.Shapes(n).Height = 99 '设置图片高度为 99px
ActiveDocument.Shapes(n).Width = 71 '设置图片宽度 71px
Next n
或是:
Sub 统一图片尺寸()
'仅适用于嵌入式图片
Dim oInlineShape As InlineShape
For Each oInlineShape In ActiveDocument.InlineShapes
With oInlineShape
.LockAspectRatio = msoFalse '不锁定纵横比
.Height = MillimetersToPoints(23) '以毫米为单位设置高度
.Width = MillimetersToPoints(31) '以毫米为单位设置宽度
End With
Next
End Sub
但这些代码都无法修改页眉里的图片,我觉得好像是定位有问题,比如“ActiveDocument”好像就是定位到页面了,这是我的推断,但是我不知道改如何修改。
希望能有大神帮帮我,非常感谢!