Microsoft Office Forums - View Single Post - [Solved] Add Multiple Pics & Captions to a Document

macropod · 06-02-2025, 05:19 AM

For the caption font size, italics, colour bold etc., you should modify the Caption Style to suit.

To accommodate long file names, change:

Code:

  With .Rows(x + 1)
    .Height = CentimetersToPoints(0#)
    .HeightRule = wdRowHeightExactly
    .Range.Style = "Caption"
  End With

to:

Code:

  With .Rows(x + 1)
    .Height = CentimetersToPoints(0#)
    .HeightRule = wdRowHeightAtLeast
    .Range.Style = "Caption"
  End With

to centre the table on the page, insert:

Code:

      .Rows.Alignment = wdAlignRowCenter

after the first:

Code:

    With oTbl