Bonjour,
je dispose d'un document word de 5 pages. Chaque page correspond à une section.
Je souhaite ajouter via une macro un logo dans les pieds de page des pages 2 à 5.
J'utilise le code ci-dessous.
Mon problème est que si le document word est ouvert de telle sorte qu'une seule page apparaît en largeur à l'écran (word ouvert sur la moitié de mon écran), tout fonctionne correctement.
Si par contre word s'ouvre en pleine largeur d'écran avec deux pages affichés, la macro n'insère le logo que sur la page 2.
Merci pour votre aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Public Sub insert_logo_footer(ch As String, v As Single, h As Single) Dim img As Shape Set img = ActiveDocument.Sections(2).Footers(wdHeaderFooterPrimary) _ .InlineShapes.AddPicture(FileName:=ch, LinkToFile:=False, SaveWithDocument:=True) With img .RelativeHorizontalPosition = 1 .RelativeVerticalPosition = 1 .Left = CentimetersToPoints(1.18) .Top = CentimetersToPoints(v) .LockAspectRatio = msoTrue .ScaleHeight h, True End With End Sub
Partager