Add Image to top and bottom of page

assie333 · #1 09-19-2019, 05:36 AM

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Paginate table so cell headings appear top of page instead bottom page when no room bottom page	mtcn	Word Tables	5	12-11-2014 12:49 PM
Underline at bottom of page won't go away	yachts66	Word	3	08-13-2014 07:28 AM
Can't get margin at top and bottom of page	ksimmonds	Word	2	06-02-2014 05:21 PM
Page numbers at bottom of page in Word	maggie122097	Word	1	04-21-2014 01:21 PM
Can't Delete bottom page	bad_dog81	Word	1	07-08-2011 02:54 AM