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

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

batmanbbs

lhteee

batmanbbs 发表于 2024-4-28 14:06

漂亮，完美，🙏🙏