用VBA代码设置，在页首插入图片，图片设置为居中，布局为“衬于文字下方”

lhteee

执行效果.rar (47.6 KB, 下载次数: 9)

2024-4-26 12:20 上传

点击文件名下载附件

lhteee

自己录制的插入代码如下：
Sub 插入图片()

    Selection.InlineShapes.AddPicture FileName:= _
        "C:\Users\Administrator\Pictures\测试.png", LinkToFile:=False, _
        SaveWithDocument:=True
      
End Sub

可以插入图片，但不知如何设置图片居中、衬于文字下方。

batmanbbs

你这个是嵌入型图片，如果要衬于文字下方，需改成非嵌入型图片，设置要比嵌入型图片复杂的多，图片位置需要自己根据页面计算。
如果想做套红文件头， 可以试试这个：https://getquicker.net/Common/Topics/ViewTopic/17250

lhteee

原来以为很简单，谢谢！！！

batmanbbs

lhteee 发表于 2024-4-27 10:47
原来以为很简单，谢谢！！！

最简单的其实是：扫描整个空白的红头文件纸，然后放到页眉中，调整好大小，保存成模板就可以了。以后使用时，直接加载这个模板就可以了。
PS：对了，别忘了设置首页不同

lhteee

batmanbbs 发表于 2024-4-28 09:58
最简单的其实是：扫描整个空白的红头文件纸，然后放到页眉中，调整好大小，保存成模板就可以了。以后使用 ...

我先用代码插入，然后手动设为“衬于文字下方”。谢谢

batmanbbs

按照你上面的代码

' 嵌入式图片非嵌入式图片
Selection.InlineShapes(1).ConvertToShape

' 沉于文字下方
Selection.ShapeRange(1).ZOrder msoSendBehindText
或
Selection.ShapeRange(1).WrapFormat.Type = wdWrapBehind

lhteee

batmanbbs 发表于 2024-4-28 11:48
按照你上面的代码

' 嵌入式图片非嵌入式图片

加进去代码，运行出现错误。谢谢！

batmanbbs

lhteee 发表于 2024-4-28 12:58
加进去代码，运行出现错误。谢谢！

代码需要根据实际情况进行调整，我只是写个示例。
PS：愿意的话，可以发上来代码看看

lhteee

batmanbbs 发表于 2024-4-28 13:00
代码需要根据实际情况进行调整，我只是写个示例。
PS：愿意的话，可以发上来代码看看

我基本就是比葫芦画瓢，一点不懂，麻烦您看看代码。非常感谢！


Sub 插入标头图片()
   
    Selection.HomeKey Unit:=wdStory
    '将光标置于文首
    Selection.InlineShapes.AddPicture FileName:= _
        "C:\Users\Administrator\Pictures\文件标头.png", LinkToFile:=False, _
        SaveWithDocument:=True

   ' 嵌入式图片非嵌入式图片
   ' Selection.InlineShapes(1).ConvertToShape

    ' 沉于文字下方
    Selection.ShapeRange(1).ZOrder msoSendBehindText
    ' 或
    ' Selection.ShapeRange(1).WrapFormat.Type = wdWrapBehind
   
End Sub