M
Mojo
Hi All
My VB6 app inserts mutliple pictures into a Word doc template, but because I
don't know whether it will be 1 image (with accompanying text) or 36 images
(ditto) my idea was to just have a pre-created table of 1 row and 1 col and
then just keep inserting the pic then text in a long vertical list, eg:
Pic
title of pic
comment
Pic
title of pic
comment
Pic
title of pic
comment
etc
I've used the following code up to now:
Set oPic = oNewDoc.Tables(1).Cell(1, 1).Range.InlineShapes.AddPicture _
(MyPics & "\DCP_1960.JPG", False, True)
oPic.Width = 200
oPic.Height = 150
oNewDoc.Tables(1).Cell(1, 1).Range.Text = oNewDoc.Tables(2).Cell(2,
2).Range.Text & _
vbCrLf & "Jenny in Brid" & vbCrLf & "comments here"
But as you will probably know already, I can't add another pic to the above
code. If I do set oPic again then it overwrites the above pic and text.
Is there anyway I can concat a number of pics and text to drop into 1 cell
or have I got to have 1 cell for each pic??
Thanks
My VB6 app inserts mutliple pictures into a Word doc template, but because I
don't know whether it will be 1 image (with accompanying text) or 36 images
(ditto) my idea was to just have a pre-created table of 1 row and 1 col and
then just keep inserting the pic then text in a long vertical list, eg:
Pic
title of pic
comment
Pic
title of pic
comment
Pic
title of pic
comment
etc
I've used the following code up to now:
Set oPic = oNewDoc.Tables(1).Cell(1, 1).Range.InlineShapes.AddPicture _
(MyPics & "\DCP_1960.JPG", False, True)
oPic.Width = 200
oPic.Height = 150
oNewDoc.Tables(1).Cell(1, 1).Range.Text = oNewDoc.Tables(2).Cell(2,
2).Range.Text & _
vbCrLf & "Jenny in Brid" & vbCrLf & "comments here"
But as you will probably know already, I can't add another pic to the above
code. If I do set oPic again then it overwrites the above pic and text.
Is there anyway I can concat a number of pics and text to drop into 1 cell
or have I got to have 1 cell for each pic??
Thanks