使用VBS在文字文字后面发送图片

Question

我正在使用VBS创建标题屏幕，尝试在文本后发送图像时遇到问题。

这是我的代码：

function page()
Set oWord = CreateObject("Word.Application")
    oWord.Visible = True
    Set objDoc = oWord.Documents.Open("C:\xxx.docx")
    objDoc.Sections.PageSetup.DifferentFirstPageHeaderFooter = true
    Set head = objDoc.Shapes.AddPicture("C:\img.png")
    head.PictureFormat.Brightness = 0.7
    head.ZOrder msoSendBehindText 'I try to use msoSendToBack, SendBack, SendBehindText, Back and others and not work 
end function

我只想将“ head”发送到背面，实际结果是图像不在文本的背面，单词的版本为2013。

如果有人知道如何解决此问题，请先谢谢。

Answer 1

解决方案是计算的使用

head.ZOrder 5 

https://bettersolutions.com/vba/enumerations/msozordercmd.htm

有了这个更改，我解决了我的问题。