Discussion :

[Soticca]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Soticca]

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.

[Invité]

Il faut écrire dans le shape.

[Soticca]

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.