Inserting multiple pictures into a Word table cell

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top