J
jamiedora
I wish to know if there is an example code or a remedy for insterting a
picture file (via VBA automation from MS Access).
I am wrting a document generation code and need to insert a picture
after certain headers and paragrhaphs. I can insert the picture, but
it always appears at the top of the document. Is there a way around
this, that is insert the floating shape after the last line of text?
Thanks,
Set shp = SubWordDocument.Shapes.AddPicture(PicturePath & "\" &
strPicture2)
With shp 'Change size and position
.LockAspectRatio = msoFalse
.Height = InchesToPoints(2)
.Width = InchesToPoints(3)
.Line.Style = msoLineSingle
.Line.Weight = 2
.Line.ForeColor = vbBlack
.Line.DashStyle = msoLineSolid
.Left = wdShapeCenter
.RelativeVerticalPosition = wdRelativeVerticalPositionLine
.Top = InchesToPoints(0)
End With
SubWordDocument.Sections.last.Range.Collapse
picture file (via VBA automation from MS Access).
I am wrting a document generation code and need to insert a picture
after certain headers and paragrhaphs. I can insert the picture, but
it always appears at the top of the document. Is there a way around
this, that is insert the floating shape after the last line of text?
Thanks,
Set shp = SubWordDocument.Shapes.AddPicture(PicturePath & "\" &
strPicture2)
With shp 'Change size and position
.LockAspectRatio = msoFalse
.Height = InchesToPoints(2)
.Width = InchesToPoints(3)
.Line.Style = msoLineSingle
.Line.Weight = 2
.Line.ForeColor = vbBlack
.Line.DashStyle = msoLineSolid
.Left = wdShapeCenter
.RelativeVerticalPosition = wdRelativeVerticalPositionLine
.Top = InchesToPoints(0)
End With
SubWordDocument.Sections.last.Range.Collapse