Create Table for Multiple Pictures. 1 picture, 1 table and space between tables

gorkac · #4 03-06-2022, 01:12 AM

One last question please.
Bold this part of the only:

Code:

    CaptionLabels.Add Name:="Fotografía nº"
    For i = 1 To .SelectedItems.Count Step NumCols
      r = ((i - 1) / NumCols + 1) * 3 - 2
      
      'Formato de filas
      Call FormatRows(oTbl, r, RwHght)
      For c = 1 To NumCols
        j = j + 1
        'Inserta la foto
        Set iShp = ActiveDocument.InlineShapes.AddPicture( _
          FileName:=.SelectedItems(j), LinkToFile:=False, _
          SaveWithDocument:=True, Range:=oTbl.Cell(r, c).Range)
        With iShp
          .LockAspectRatio = True
          If (.Width < ColWdth) And (.Height < RwHght) Then
            .Width = ColWdth
            If .Height > RwHght Then .Height = RwHght
          End If
        End With
        
        'Obtener el nombre de la imagen para el pie de foto
        StrTxt = Split(.SelectedItems(j), "\")(UBound(Split(.SelectedItems(j), "\")))
        StrTxt = ": " & Split(StrTxt, ".")(0)

So that only these parts remains in bold:
"Fotografía nº 1: xxxxx"
"Fotografía nº 2: xxxxx"
"Fotografía nº 3: xxxxx" and so

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Stack multiple tables on top of each other in a single table	Remko	Excel	2	04-18-2021 04:18 AM
Create Table for Multiple Pictures	victorybadges	Word VBA	4	12-25-2020 02:11 PM
How to compile text from multiple tables into a cell in a nested table	jrooney7	Word VBA	2	03-11-2019 07:55 AM
Resize multiple pictures in a Word 2010 table	JBA479	Word VBA	1	01-24-2014 08:51 PM
Copy table cell formatting across multiple cells / tables	pakistanray	Word Tables	2	10-31-2011 08:07 AM