Placing image in upperright corner with VBA

[Emperor]

Hi all,

I am creating a template in which users can pick an image which needs to be displayed/placed in the upperright corner of the page. (if possible in the header)
My problem is that the upperright corner with VBA is limited by the pagemargins, not by the paper.

Is there a way to do place it in the correct positition?

        Dim link
        link = Extern & "afbeeldingen\Rapportage\" & ComboBox3.Value
        
        ActiveDocument.Bookmarks("afbeelding").Select
        ActiveDocument.Shapes.AddPicture FileName:=link, LinkToFile:=False, SaveWithDocument:=True, Left:=0, Top:=0
        With ActiveDocument.Shapes(1)
            .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
            .RelativeVerticalPosition = wdRelativeVerticalPositionPage
            .Left = InchesToPoints(0)
            .Top = InchesToPoints(0)
        End With

Thanks in advance!

Mathijs.

[Emperor]

Nobody has an idea? not even a clue?

I'm quite stuck so any help is welcome!

[fumei]

It is not that difficult...IF you set things up correctly.
[VBA] Sub PutImageInheader()
ActiveDocument.Sections(1).Headers(1).Range.InlineShapes.AddPicture _
FileName:="c:\Gerry Pic\SmallLeon.jpg", _
LinkToFile:=False, SaveWithDocument:=True
End Sub[/VBA]

This puts the image file at the top right corner IN THE HEADER (which is what you asked for).

It ONLY works because the header:
1. has no other content
2. is set up with a appropriate style (right indent moved to the right the amount you want, and the paragraph right-aligned)

You should use styles anyway. So if you have the paragraph in the header set up correctly, just pop the image in. Note that it is an InlineShape - NOT a shape.