Microsoft Office Forums - View Single Post - [Solved] Insert mutliple digital images on one page

macropod · 11-06-2020, 01:45 PM

You could change:

Code:

        With oTbl.Cell(r + 1, c).Range
          .InsertBefore vbCr
          .Characters.First.InsertCaption _
          Label:="Picture", Title:=StrTxt, _
          Position:=wdCaptionPositionBelow, ExcludeLabel:=False
          .Characters.First = vbNullString
          .Characters.Last.Previous = vbNullString
        End With

to:

Code:

        oTbl.Cell(r + 1, c).Range.Text =StrTxt