Adding Shapes To Headers

[syntetic]

Why Picture is added to even page while Line and TextEffect is always added
to odd pages in the next code? I run this macro in Word 2003 on document with
different headers for first, even and odd pages. In the Word 2007 Picture is
added to the first page while Line and TextEffect still to odd. Any ideas?

Sub HeaderShapes()
With ActiveDocument
..Sections(1).Headers(wdHeaderFooterEvenPages).Shapes.AddPicture
"c:\WINDOWS\Coffee Bean.bmp"
..Sections(1).Headers(wdHeaderFooterEvenPages).Shapes.AddTextEffect
msoTextEffect1, "12345", "Times New Roman", 12, msoFalse, msoFalse, 0, 0
..Sections(1).Headers(wdHeaderFooterEvenPages).Shapes.AddLine 0, 0, 100, 100
End With
End Sub

Thanks for help in advance.