Insert mutliple digital images on one page

macropod · #1 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

Mitchell.Odom · #2 11-13-2020, 06:03 PM

Thank you Macropod!

MSffcfrmsusr · #3 04-29-2021, 08:40 AM

Your whole solution is utterly elegant. You've just saved me hours. and hours. of work and pain and exasperation. Thank you more than there are words to express.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to insert and hide images	ricecrispies	Excel	8	06-18-2022 04:19 AM
Mutliple Selection List Box	tbrynard01	Word	0	09-10-2019 12:56 PM
Insert images into word form	lfabiof	Word VBA	1	12-24-2017 09:51 PM
Programmatically insert digital signature into a Word document	tinamanns	Word	0	04-12-2017 01:16 PM
Mutliple copies 167 print as one document	John-N	Mail Merge	5	02-19-2012 07:15 PM