#1
|
|||
|
|||
Need Help modifying code for inserting multiple images
The code in https://www.msofficeforums.com/word-...es-1-page.html is working fantastically but I need little help that I dont want to add Image 1, Image 2, Image 3 in start of below image line. I just want to add original image name in description in below pictures. |
#2
|
||||
|
||||
It is not clear what you mean - the code already adds the image names on the row below the pictures. Putting the names in the same cells as the pictures is liable to mess up the alignments.
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#3
|
|||
|
|||
Please look into this yellow color auto numbering. I dont want this numbers. I just want to add only photo real name only.
|
#4
|
||||
|
||||
As you will see, the picture you posted does not say 'Image 1, Image 2, Image 3' - it says Picture 1, Picture 2, Picture 3 (as part of the overall caption that includes the picture name.
Simply change: ExcludeLabel:=False to: ExcludeLabel:=True
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#5
|
|||
|
|||
One thing is more something wrong that is auto number 1,2 and so on. I just need only image name not serial number please...
Thanks |
#6
|
||||
|
||||
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 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
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#7
|
|||
|
|||
I need little more help. I want to fix auto row height with text limit where image description add. Good sign row height made manually (Which I want) & yellow highlight row is auto adding pictures with macro run command.
Bundle of thanks for this help.... |
#8
|
||||
|
||||
The row heights for the captions are already fixed - at 0.5cm.
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#9
|
|||
|
|||
Bundle of thanks dear macropod
|
|
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 |