为什么添加页脚图片 图片却添加到了页眉 ？

wang-way

Sub 插入页眉页脚水印图片删除最后两页()
    Dim myDoc As Document

    Set myDoc = Application.ActiveDocument

    '添加页眉
    Dim FilePath$
    FilePath = "C:\Users\Administrator\Pictures\表.jpg"    '图片路径
    myDoc.Sections(1).Headers(wdHeaderFooterPrimary).Shapes.AddPicture FilePath
    '添加页脚
    FilePath = "C:\Users\Administrator\Pictures\表.jpg"    '图片路径
    myDoc.Sections(1).Footers(wdHeaderFooterPrimary).Shapes.AddPicture FilePath '为什么添加页脚图片 图片却添加到了页眉 ？
    Set myDoc = Nothing
End Sub

kqbt

代码既有添加页眉图片，也有添加页脚图片。

wang-way

kqbt 发表于 2016-8-2 11:21
代码既有添加页眉图片，也有添加页脚图片。

我添加红色注释的部分 不是添加页脚图片吗？为什么图片的位置跑到页眉哪里去

kqbt

wang-way 发表于 2016-8-3 00:49
我添加红色注释的部分 不是添加页脚图片吗？为什么图片的位置跑到页眉哪里去

把“添加页眉”的代码删除再试试看。

wang-way

kqbt 发表于 2016-8-3 13:20
把“添加页眉”的代码删除再试试看。

一样出现在页眉的位置上

鄂龙蒙

Sub 插入页眉页脚水印图片删除最后两页()
    Dim myDoc As Document

    Set myDoc = Application.ActiveDocument

    '添加页眉
    Dim FilePath$
    FilePath = "C:\Users\Administrator\Pictures\表.jpg"    '图片路径
    myDoc.Sections(1).Headers(wdHeaderFooterPrimary).Shapes.AddPicture FilePath
    '添加页脚
    FilePath = "C:\Users\Administrator\Pictures\表.jpg"    '图片路径
    myDoc.Sections(1).Footers(wdHeaderFooterPrimary).Shapes.AddPicture FilePath '为什么添加页脚图片 图片却添加到了页眉 ？
    Set myDoc = Nothing
End Sub

楼主的添加页眉和添加页脚代码不是一样么？

wang-way

鄂龙蒙 发表于 2017-2-26 14:43
Sub 插入页眉页脚水印图片删除最后两页()
    Dim myDoc As Document

亲看清楚哦

loquat

最终结果，一张图片插入了页眉两次，是这样吗