Header avec un fond de couleur

Bonjour,

J'essaye de faire en sorte que mon header soit complètement avec une couleur de fond. J'y arrive avec le code suivant. Par contre, impossible de faire passer mon rectangle sous le texte.

Si quelqu'un à une idée :( (le "selection.ShapeRange.WrapFormat = wdWrapBehind" produit une erreur)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader Selection.TypeText Text:="TEST" Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter Selection.Font.Size = 16 Selection.Font.Bold = wdToggle ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Shapes.AddShape(msoShapeRectangle, 0, 0, ActiveDocument.PageSetup.PageWidth, 50).Select With Selection .ShapeRange.WrapFormat = wdWrapBehind End With ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

Citation:

Envoyé par Soticca

Il faut positionner le shape par rapport au haut de la page :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
 
Sub Test()
 
  With ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary)
       With .Range
            .Text = "TEST"
            .ParagraphFormat.Alignment = wdAlignParagraphCenter
            .Font.Size = 16
            .Font.Bold = wdToggle
       End With
       .Shapes.AddShape(msoShapeRectangle, 0, 60, ActiveDocument.PageSetup.PageWidth, 50).Select
 
  End With
 
End Sub

Je me suis mal exprimé. Quand je disais "sous le texte" je voulais dire à l'arrière plan. Là, c'est le texte qui est à l'arrière plan et le shape à l'avant plan. Et je n'arrive pas à inverser les choses.

Citation:

Envoyé par Soticca

Il faut écrire dans le shape.

Citation:

Envoyé par Eric KERGRESSE

Il faut écrire dans le shape.

C'est quand même dommage qu'on ne puisse pas le faire dans l'entête alors qu'on peut le faire dans le corps d'un doc avec une image ou un shape :(.

Encore merci, je testerai demain.