Add Multiple Pics & Captions to a Document

macropod · #25 06-03-2025, 01:05 AM

You have put the vertical alignment code in the wrong place. You don't need:

Code:

      .Range.Cells.VerticalAlignment = wdCellAlignVerticalTop

Instead of having it where you've put it, you should be using something like:

Code:

Sub FormatRows(oTbl As Table, x As Long, Hght As Single)
With oTbl
  With .Rows(x)
    .Height = Hght
    .HeightRule = wdRowHeightExactly
    .Range.Style = "TblPic"
    .Cells.VerticalAlignment = wdCellAlignVerticalCenter
  End With
  With .Rows(x + 1)
    .Height = CentimetersToPoints(0.5)
    .HeightRule = wdRowHeightAtLeast
    .Range.Style = "Caption"
    .Cells.VerticalAlignment = wdCellAlignVerticalTop
  End With
End With

Except for the new line & wdRowHeightAtLeast, that's what the code in post #1 had...

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro for Inserting Multiple Photos from Excel List into Word	henhelm	Word VBA	15	02-07-2023 05:35 PM
Macro for Inserting Multiple Photos into Word but retrieving Captions from Excel Sheet	macaronipasta	Word VBA	2	06-27-2021 06:28 PM
I need a macro to automatically insert 4 pics per page in a word document with "Photograph No 1, 2,"	NewbieLearning	Word VBA	15	11-14-2017 05:03 AM
Captions: Changing captions in Appendix update all captions	carnestw	Word	3	10-27-2015 12:34 PM
How do I type on multiple pics?	TimHudson	Drawing and Graphics	0	07-28-2011 10:28 AM