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 offline 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,945
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,450
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: 5
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,450
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: 5
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: 5
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,450
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
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 08:01 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