Voici un code qui permt également de mettre la taille du logo

 

Sub MonEnteteDocument()
'macro écrite par anacoluthe
Dim MonLogo As String
Dim oLogo As InlineShape
With Dialogs(wdDialogInsertPicture)
If .Display = 0 Then:   End
MonLogo = .Name
End With
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
Selection.ParagraphFormat.TabStops.ClearAll
With Selection
.ParagraphFormat.Alignment = wdAlignParagraphRight
Set oLogo = .InlineShapes.AddPicture(FileName:=MonLogo, _
LinkToFile:=False, SaveWithDocument:=True)
End With

 

La commande suivante non obligatoire permet de mettre une échelle au logo
With oLogo
.LockAspectRatio = msoTrue ' cette instruction est parfois ignorée
.Height = CentimetersToPoints(2)
.ScaleWidth = .ScaleHeight ' on force la même échelle 'inutile pour la v2007
End With

ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
Set oLogo = Nothing
End Sub

 

Statistiques

Aujourd'hui1249
Hier2624
Cette semaine8898
Total depuis 20049942849

55
visiteurs actuellement en ligne