Microsoft Office Forums - View Single Post - [Solved] Position shapes correctly in Word 2010 with VBA- tip

macropod · 02-04-2014, 07:12 PM

The following works for me:

Code:

Dim Rng As Range
With ActiveDocument
  Set Rng = .Sections.First.Headers(wdHeaderFooterPrimary).Range.Characters.First
  Set shpCompanyLogo = .Shapes.AddPicture(FileName:=strLogoName, LinkToFile:=False, SaveWithDocument:=True, _
    Anchor:=Rng, Left:=CentimetersToPoints(snglLeftOffset), Top:=CentimetersToPoints(snglTopOffset))
End With

PS: When posting code, please use the code tags. They're on the 'Go Advanced' tab.