Thread: Add, Resize & Relocate Header & Footer with Macros
View Single Post
 
Old 11-12-2018, 06:37 PM
AntiqueWhale AntiqueWhale is offline Windows 10 Office 2016
Novice
  
Join Date: Nov 2018
Posts: 11
AntiqueWhale is on a distinguished road
Default
The AddPicture method will return an InlineShape object, you can set a variable reference the picture you added, and then play with the properties of the lineshape, like height, width, borders...etc

Code:
Dim header_pic as InlineShape
Set footerPic = ThisDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range.InlineShapes.AddPicture(SrcePath)
With footerPic
    .Width = xxxx
    .Height = xxxx
End With
Reply With Quote