`VBA code om logo in Header te zetten

[Mestreech]

Ik ben op zoek naar vba code om een logo welke in de header het format mee te geven dat de layout achter de tekst moet komen.

Ik zie vanalles over inline shape en / of shaperange.
Ik weet dat ik de mogelijkheid: WrapFormat.AllowOverlap = True moet hebben.
Maar hoe combineer ik het een met het ander

Code tot nu toe:

ActiveWindow.ActivePane.View.Type = wdPageView
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
ActiveDocument.Bookmarks("BlwTra").Select

'If z = "Opt456" Then
If w = "Ja" Then
Selection.InlineShapes.AddPicture FileName:= _
"c:\Headers\10000117.jpg", LinkToFile:=False, SaveWithDocument:=True

Dan heb ik het logo in de header staan maar dan...

De Recorder werkt helaas niet

Ik werk trouwens met Office 2003

BVD voor een goede tip

 

[snb]

Sub Macro12()
  With ActiveDocument.StoryRanges(wdPrimaryHeaderStory)
    .InlineShapes.AddPicture [COLOR="Teal"]"E:\foto\001.bmp"[/COLOR]
    .InlineShapes(1).ConvertToShape
    
    With .ShapeRange.WrapFormat
      .AllowOverlap = True
      .DistanceTop = CentimetersToPoints(0)
      .DistanceBottom = CentimetersToPoints(0)
      .DistanceLeft = CentimetersToPoints(2)
      .DistanceRight = CentimetersToPoints(0.32)
      .Type = 5
    End With
  End With
End Sub

 

[Mestreech]

Hallo SNB

Bedanklt voor je tip, echter.....

Na de code toegevoegd te hebben en het juiste pad / jpg gewijzigd te hebben krijg ik een foutmelding

Runtime error met een nummer en de melding :
Method convert to shape with object inlineshape failed

Code :
With ActiveDocument.StoryRanges(wdPrimaryHeaderStory)
.InlineShapes.AddPicture "c:\temp\10000117.jpg"
.InlineShapes(1).ConvertToShape

With .ShapeRange.WrapFormat
.AllowOverlap = True
.DistanceTop = CentimetersToPoints(0)
.DistanceBottom = CentimetersToPoints(0)
.DistanceLeft = CentimetersToPoints(2)
.DistanceRight = CentimetersToPoints(0.32)
.Type = 5
End With
End With

Zou je me iets verder kunnen helpen?

BVD

 

[snb]

Wat gebeurt er als je deze regel overslaat ?