Microsoft Office Forums

Go Back   Microsoft Office Forums > >

Reply
 
Thread Tools Display Modes
  #16  
Old 01-21-2022, 06:49 PM
mathemagician44 mathemagician44 is offline 4 digital images on 1 page Windows 11 4 digital images on 1 page Office 2019
Novice
 
Join Date: Jan 2022
Posts: 5
mathemagician44 is on a distinguished road
Default

The more I think about it, this could save me a whole lot of hassle working for the different companies that I work for. Macropod, may I pay you to alter this for me a little bit?



I would need two versions of this for two different report styles. 9 cm max vertical height on both. I couldn't have the font size type changed anywhere else in the document; only on the photo captions that I add
1. Calibri(body), 12 font, Justified across ~13.2 cm width.
2. Times New Roman, 12 font, Bold, Centered across normal margins.

I think I could figure those out, but what I probably could not figure out is how I'd get them in the correct order. I would need to number the photos in order needed in the report followed by the caption text. I would only want the text to appear in the report, not the numerals.

Filename examples:
1 top side of widget.
2 front side of widget.
3 bottom side of widget.
etc.

Any help would be great.
Reply With Quote
  #17  
Old 01-21-2022, 10:58 PM
ashokmp27 ashokmp27 is offline 4 digital images on 1 page Windows 10 4 digital images on 1 page Office 2019
Novice
 
Join Date: Jan 2022
Posts: 1
ashokmp27 is on a distinguished road
Question Need help for customization

Can you please help to customize the code for fixed columns and rows and image autofit to entire cell. (for example 9 rows and 3 columns in each page and all image autofit )
Reply With Quote
  #18  
Old 01-23-2022, 02:55 PM
Guessed's Avatar
Guessed Guessed is online now 4 digital images on 1 page Windows 10 4 digital images on 1 page Office 2016
Expert
 
Join Date: Mar 2010
Location: Canberra/Melbourne Australia
Posts: 2,940
Guessed has much to be proud ofGuessed has much to be proud ofGuessed has much to be proud ofGuessed has much to be proud ofGuessed has much to be proud ofGuessed has much to be proud ofGuessed has much to be proud ofGuessed has much to be proud of
Default

mathemagician44: The macro inserts captions so you should control the font size and typeface by modifying the Caption style.
__________________
Andrew Lockton
Chrysalis Design, Melbourne Australia
Reply With Quote
  #19  
Old 01-23-2022, 04:18 PM
macropod's Avatar
macropod macropod is offline 4 digital images on 1 page Windows 10 4 digital images on 1 page Office 2016
Administrator
 
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 21,432
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default

Quote:
Originally Posted by ashokmp27 View Post
Can you please help to customize the code for fixed columns and rows and image autofit to entire cell. (for example 9 rows and 3 columns in each page and all image autofit )
Please read post #2 in this thread.
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote
  #20  
Old 05-01-2022, 03:43 PM
Denise Denise is offline 4 digital images on 1 page Windows 10 4 digital images on 1 page Office 2013
Novice
 
Join Date: Mar 2022
Posts: 6
Denise is on a distinguished road
Default

Changing the Code to suggested Fix Code for Captions to be above pictures, I'm getting an error. @ -- .Styles
error: Method or Data Member Not Found

Can you assist?
Thanks
Reply With Quote
  #21  
Old 05-01-2022, 03:48 PM
macropod's Avatar
macropod macropod is offline 4 digital images on 1 page Windows 10 4 digital images on 1 page Office 2016
Administrator
 
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 21,432
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default

On which line are you getting that error?
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote
  #22  
Old 05-01-2022, 04:08 PM
Denise Denise is offline 4 digital images on 1 page Windows 10 4 digital images on 1 page Office 2013
Novice
 
Join Date: Mar 2022
Posts: 6
Denise is on a distinguished road
Default

Section Changed:

Code:
With .Styles("TblPic").ParagraphFormat
        .Alignment = wdAlignParagraphCenter
        .KeepWithNext = False
        CaptionLabels.Add Name:="Picture"
        .Styles("Caption").ParagraphFormat.KeepWithNext = True
        .SpaceAfter = 0
        .SpaceBefore = 0
      End With
-----------------------------------------
.Styles("Caption").ParagraphFormat.KeepWithNext = True
Reply With Quote
  #23  
Old 05-01-2022, 04:15 PM
Denise Denise is offline 4 digital images on 1 page Windows 10 4 digital images on 1 page Office 2013
Novice
 
Join Date: Mar 2022
Posts: 6
Denise is on a distinguished road
Default

I'm trying to put the Caption at the Top of the Image hoping that will change the existing problem. The routine as it is now, without changes and new error, always puts the Caption into its own cell below the Image. I want the caption with the image in the same cell, not a separate cell. Maybe this will work if I fix the error.
Reply With Quote
  #24  
Old 05-01-2022, 07:38 PM
macropod's Avatar
macropod macropod is offline 4 digital images on 1 page Windows 10 4 digital images on 1 page Office 2016
Administrator
 
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 21,432
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default

The code you've posted does not reflect the instructions in post #2.
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote
  #25  
Old 05-10-2022, 10:27 PM
atifsyed atifsyed is offline 4 digital images on 1 page Windows 10 4 digital images on 1 page Office 2019
Novice
 
Join Date: May 2022
Posts: 3
atifsyed is on a distinguished road
Default Need to Update Macro and Remove the Picture 1,2,3

All are 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.
Reply With Quote
  #26  
Old 05-10-2022, 11:16 PM
macropod's Avatar
macropod macropod is offline 4 digital images on 1 page Windows 10 4 digital images on 1 page Office 2016
Administrator
 
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 21,432
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default

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.

PS: Please don't quote entire posts in your replies. If there is something specific in a post you need addressed, cite only that portion of the post concerned. Anything more just adds clutter.
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote
  #27  
Old 05-13-2022, 05:39 AM
atifsyed atifsyed is offline 4 digital images on 1 page Windows 10 4 digital images on 1 page Office 2019
Novice
 
Join Date: May 2022
Posts: 3
atifsyed is on a distinguished road
Default

Please look into this yellow color auto numbering. I dont want this numbers. I just want to add only photo real name only.
Attached Images
File Type: jpeg Demo image.jpeg (174.5 KB, 4 views)
Reply With Quote
  #28  
Old 05-13-2022, 03:16 PM
macropod's Avatar
macropod macropod is offline 4 digital images on 1 page Windows 10 4 digital images on 1 page Office 2016
Administrator
 
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 21,432
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default

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]
Reply With Quote
  #29  
Old Yesterday, 12:26 AM
atifsyed atifsyed is offline 4 digital images on 1 page Windows 10 4 digital images on 1 page Office 2019
Novice
 
Join Date: May 2022
Posts: 3
atifsyed is on a distinguished road
Default

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
Attached Images
File Type: jpeg Demo image.jpeg (153.9 KB, 2 views)
Reply With Quote
  #30  
Old Today, 06:23 PM
macropod's Avatar
macropod macropod is offline 4 digital images on 1 page Windows 10 4 digital images on 1 page Office 2016
Administrator
 
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 21,432
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default

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
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote
Reply

Thread Tools
Display Modes


Similar Threads
Thread Thread Starter Forum Replies Last Post
Digital signatures hannu Word 0 11-18-2012 03:19 PM
Saving doc as "Web Page, Filtered" reduces some images' quality GregL Word 1 08-14-2012 03:27 AM
4 digital images on 1 page Images jumping from page to page... Colonel Biggs Drawing and Graphics 13 12-12-2011 08:52 PM
4 digital images on 1 page Mail Mege Images - Path Correct but Images Repeated Sonia Sosa Mail Merge 8 04-22-2011 03:05 PM
Inline Images Floating BEHIND Text & Off Page Pennimus Drawing and Graphics 0 02-22-2010 09:29 AM

Other Forums: Access Forums

All times are GMT -7. The time now is 11:16 PM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2022, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2022 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft