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

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

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