Discussion :

[ad.aimm]

bonjour,

pour situer un peu l'idée, j'ai besoin de créer un document word type avec plusieurs fond de page (plusieurs papier entete). du coup j'ai créé un userform qui fait appel aux images en question :

Code :

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

1
2
3
4
5
6
7
8
9
10
UserForm1.Show 
Select Case varsc 
Case Is = "S" 
ActiveDocument.Background.Fill.UserPicture "Q:\S.png"
Case Is = "A"
ActiveDocument.Background.Fill.UserPicture "Q:\A.png"
Case Else
MsgBox "Erreur"
End Select
End Sub

jusque là pas de pb, ça fonctionne bien, le fond de page se change et en prévisualisation à l'écran tout est correcte. par contre, lorsque j'imprime j'ai mon image qui fait une mosaique à l'impression. (a noter que si je fais la meme manipulation sans macro je n'ai pas de pb à l'impression).

je vous remercie vivement pour vos lumieres.

merci,

ad.

[Souriane]

Bonsoir ad.aimm!

Voici une piste avec le code que j'utilise. Au lieu d'insérer l'image comme un "background", je l'insère dans l'entête.

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
 
With ActiveDocument
    With  .Sections(1).Headers(wdHeaderFooterPrimary).Range.Paragraphs(1).Range
            .InlineShapes.AddPicture ("Q:\S.png")
            .InlineShapes(1).ConvertToShape
          With .ShapeRange(1)
                 .RelativeVerticalPosition = wdRelativeVerticalPositionPage
                 .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
                 .Top = 0  
                 .Left = 0
                 .Height = InchesToPoints(11) 
                 .Width = InchesToPoints(8.5)
          End With
    End With
End With

Bonne chance!

Souriane