I am still confused between .inlineshapes and Floating shapes and messed up.
my image size is 6.32 cm H and 5.27 cm W. I would like to resize to 25% of left sizes provided and Image to be provided behind text.
.Paragraphs(1).TabStops.Add InchesToPoints(7.5), wdAlignTabRight
this poped up with error hiliting
InchesToPoints(7.5) "Sub or Function Not defined
Sir indeed your coding was practical to what i desired
Quote:
All you need is something like:
Code:
Const wdAlignTabRight As Long = 2
Dim oLogo As Object
'….
With .Sections.First.Footers(wdHeaderFooterPrimary).Ran ge.Paragraphs(1).Range
.Text = "Footer Note" & vbTab
.Paragraphs(1).TabStops.Add InchesToPoints(7.5), wdAlignTabRight
Set oLogo = .InlineShapes.AddPicture("C:\FORMS\1-Seal.jpg", False, True, .Characters.Last)
With oLogo
.Height = 75
.Width = 100
End With
End With
|