Need some assistance, been playing around with some of the code and been browsing through the forum.
What I need assistance with:
- Image to display on top every active word page and bottom
-Be able Adjust the size of the image.
as we know word shades out the header and footer and just want to display it my documents.
I have come across the following code:
Code:
Sub testaddshape()
Dim myshape As Shape
Set myshape = ActiveDocument.Shapes.AddPicture(FileName:="C:\Users\sim\Downloads\KAT\top.png", _
LinkToFile:=False, _
SaveWithDocument:=True, _
Left:=0, _
Top:=0, _
Width:=ActiveDocument.Sections(1).PageSetup.PageWidth, _
Height:=ActiveDocument.Sections(1).PageSetup.PageHeight)
With myshape
.ZOrder msoSendBehindText
.WrapFormat.Type = wdWrapBehind
.LockAnchor = True
.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
.RelativeVerticalPosition = wdRelativeVerticalPositionPage
.Left = 0
.Top = 0
End With
End Sub