Position shapes correctly in Word 2010 with VBA- tip

[Smallweed]

Useful tip I hope! I've been converting some 2003 templates to 2010 and have wasted days trying to get my old VBA to correctly position logos in the header on the front page. It turns out the problem is that Word 2010 VBA has a bug that means when adding a shape it will always anchor to the page even if you specify otherwise (i.e. it ignores the fact you're trying to anchor to column, margin, etc). I finally found a posting (elsewhere) that has solved the problem. The solution is to insert as an inline shape and then convert it to a shape (sample code below).

Note that this bug only seems to affect the first page of a document. Also, 2003 documents opened in compatibility mode are not affected by the anchor bug and continue to work correctly even if saved as 2010 format so I've had to come up with two parallel solutions for existing and for new documents (just to add to the fun!).

I expect someone will come back and say I should ALWAYS use inline shapes instead of shapes unless I want to use Word's text flow/desktop publishing options - and you'd be right except the problem I have is that, to be positioned correctly, the logos have to sit in the margin outside of any existing text.

Set inlshpCompanyLogo = ActiveDocument.InlineShapes.AddPicture _
(FileName:=strLogoName, _
LinkToFile:=False, SaveWithDocument:=True, Range:=Selection.Range)
Set shpCompanyLogo = inlshpCompanyLogo.ConvertToShape
With shpCompanyLogo
  .LockAnchor = True
  .Left = CentimetersToPoints(snglLeftOffset)
  .Top = CentimetersToPoints(snglTopOffset)
  etc...
End With

[macropod]

The following works for me:

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.