Was Succesfull At the end when i tried the following which i think after the whole document is made and then insert footnote with following code with your reply on the following
Forum
Solved: Image in Footer behind text
but somehow niehther the width changes height changes of the image nor the image goes behind the text
also error "variable" not defined was seen when implemented with InchesToPoints(1) or CentimetersToPoints(4.5)
Code:
'''''Set wdDoc = wdApp.Documents.Add
Dim shp As Shape
With wdDoc.Sections(1).Footers(wdHeaderFooterPrimary).Range
.Paragraphs.Alignment = wdAlignParagraphRight
Set shp = .inlineshapes.AddPicture(Filename:="C:\FORMS\1-Seal.jpg", LinkToFile:=False, SaveWithDocument:=True)''', Height:=45, Width:=55)
With shp
.WrapFormat.Type = wdWrapBehind
.LockAspectRatio = msoTrue
.Height = 20
.Width = 20 'InchesToPoints(1) '20 'CentimetersToPoints(4.5)
End With
.collapse Direction:=0
End With
SamD