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:
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-166•UNSS, Gabarits Word & Powerpoint:12•imports:fond-regional.png"
 
    ActiveDocument.Sections(1).Headers(wdHeaderFooterFirstPage).Range.InlineShapes. _
    AddPicture "MacPro 1:xClients:60-166•UNSS, Gabarits Word & Powerpoint:12•imports:fond-regional.png"
 
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub
Merci de me mettre sur la bonne piste sachant que je suis débutant en VBA.