Hi Paul!

What is the code to expand the table so the text in the table is not written in several lines (unless it is so large the it does not fit on one row on the whole page).

See attached pic's . The first one show the result now after the functions AddImageCaptionTables and AddCaptionText and the second is the look and feel I would like to have.

pic1.jpg



pic2.jpg

(You should now that I think this really good site to get help from. It helps me a lot!)

Kind Regards
Benble

To have the caption row appear above the image, instead of below, edit the MakeImageTable macro. Change the: Rows(1) references to Rows(2); Cell(1, 1) references to Cell(2, 1); and Cell(2, 1) references to Cell(1, 1). Similarly, with the AddCaptionText macro, change Tbl.Range.Cells.Count to 1.

As coded, the table widths are the same as the picture widths. The intention behind that is to allow for text wrapping around the pictures and their captions. The code line that gets the picture width is:
PicWdth = .InlineShapes(i).Width
and the code line that applies it is:
.Columns.Width = PicWdth
Without the second of the above lines, the table widths will fill the margins. A compromise might be to set a minimum width for PicWdth, via either of:
If PicWdth < CentimetersToPoints(8.9) Then PicWdth = CentimetersToPoints(8.9)
or:
If PicWdth < InchesToPoints(3.5) Then PicWdth = InchesToPoints(3.5)
immediately after the PicWdth = .InlineShapes(i).Width lines. You could, of course, change the units indicated to something else.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]