Bug Edition avec filigramme

[sormiou]

Bonjour ,

J'ai ajouté une image en filigramme dans mon document.

Mais quand je veux editer une sélection de page ( pas exemple de la page 5 à 8) , rien ne se passe , word n'envoye rien à l'imprimante.

Pour info , j'ai ajouter l'image par une macro....

Selection.HeaderFooter.Shapes.AddPicture(FileName:= "c:\temp\IMAGE1", LinkToFile:=False, SaveWithDocument:=True).Select
Selection.ShapeRange.Name = "Fonddepage"
Selection.ShapeRange.PictureFormat.Brightness = 0.5
Selection.ShapeRange.PictureFormat.Contrast = 0.5
Selection.ShapeRange.LockAspectRatio = True
Selection.ShapeRange.Height = CentimetersToPoints(29.7)
Selection.ShapeRange.Width = CentimetersToPoints(21)
Selection.ShapeRange.WrapFormat.AllowOverlap = True
Selection.ShapeRange.WrapFormat.Side = wdWrapNone
Selection.ShapeRange.WrapFormat.Type = 3
Selection.ShapeRange.RelativeHorizontalPosition = wdRelativeVerticalPositionMargin
Selection.ShapeRange.RelativeVerticalPosition = wdRelativeVerticalPositionMargin
Selection.ShapeRange.Left = wdShapeCenter
Selection.ShapeRange.Top = wdShapeCenter

Avez vous une Idée......

[Heureux-oli]

Code :

1
2
3
4
5
6
7
8
 
With ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary)
 
 
.Shapes.AddPicture FileName:="c:\temp\licence.jpg", LinkToFile:=False, SaveWithDocument:=True
 
 
End With

Voilà ce que j'ai utilisé, et j'ai bien mon filigrane qui apparaît dans mon entête.