Bonjour à tous!
J'ai un début de macro pour insérer une image dans l'-entête d'un document.
Mais je n'arrive pas à le finir, je voudrais:
- forcer l'image à garder ses proportions
- appliquer une larguer de 21 cm
- envoyer l'image derrière le texte.
Voici mon code:
Merci de me mettre sur la bonne piste sachant que je suis débutant en VBA.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Sub AddLogo() Dim docActive As Document Set docActive = Word.ActiveDocument ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.InlineShapes. _ AddPicture "MacPro 1:xClients:60-166UNSS, Gabarits Word & Powerpoint:12imports:fond-regional.png" ActiveDocument.Sections(1).Headers(wdHeaderFooterFirstPage).Range.InlineShapes. _ AddPicture "MacPro 1:xClients:60-166UNSS, Gabarits Word & Powerpoint:12imports:fond-regional.png" ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument End Sub
![]()
Partager