Microsoft Office Forums - View Single Post - [Solved] Image absolute position relative to page

thuizt · 08-01-2017, 12:33 AM

Code:

Sub ImageInHeaderFooter()

    Set header = ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Shapes.AddPicture( _
        FileName:="\\URL2Image.jpg", _
        SaveWithDocument:=True _
    )
    
    With header
        .Left = CentimetersToPoints(-0.5)
        .Top = CentimetersToPoints(0.7)
        .Width = CentimetersToPoints(8.2)
        .Height = CentimetersToPoints(1.74)
    End With
    
    
    Set footer = ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Shapes.AddPicture( _
        FileName:="\\URL2Image.jpg", _
        SaveWithDocument:=True _
    )

    With footer
        .Left = CentimetersToPoints(-2.8)
        .Top = CentimetersToPoints(25.6)
        .Width = CentimetersToPoints(21.8)
        .Height = CentimetersToPoints(2.47)
    End With


End Sub

What happens is that the image is set relative to column horizontally and relative to paragraph vertically. Setting the image "behind text"does not change this.

Any ideas ??

Thanks