![]() |
|
|
|
#1
|
|||
|
|||
|
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 |