Need Help modifying code for inserting multiple images

macropod · #6 05-15-2022, 06:23 PM

Change:

Code:

        'Get the Image name for the Caption
        StrTxt = Split(.SelectedItems(j), "\")(UBound(Split(.SelectedItems(j), "\")))
        StrTxt = ": " & Split(StrTxt, ".")(0)
        'Insert the Caption on the row below the picture
        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:

        'Get the Image name for the Caption
        StrTxt = Split(Split(.SelectedItems(j), "\")(UBound(Split(.SelectedItems(j), "\"))), ".")(0)
        'Insert the Caption on the row below the picture
        oTbl.Cell(r + 1, c).Range.Text = StrTxt

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Inserting images into mailmerge labels	Denise	Word VBA	3	03-20-2022 02:39 PM
Need Help Modifying Code to print all fonts	Catluvr	Word VBA	2	12-01-2021 12:14 PM
Inserting images for printing	EdGood	Drawing and Graphics	2	01-16-2019 09:12 PM
Need help with modifying a replacing font VBA code- similar task but subtle change	kissingfrogs2003	Word VBA	3	08-30-2016 11:42 AM
Word - inserting images	sulasno	Drawing and Graphics	4	04-09-2011 07:28 AM