![]() |
#16
|
|||
|
|||
![]()
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. |
#17
|
|||
|
|||
![]()
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 )
|
#18
|
||||
|
||||
![]()
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 |
#19
|
||||
|
||||
![]()
Please read post #2 in this thread.
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#20
|
|||
|
|||
![]()
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 |
#21
|
||||
|
||||
![]()
On which line are you getting that error?
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#22
|
|||
|
|||
![]()
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 |
#23
|
|||
|
|||
![]()
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.
|
#24
|
||||
|
||||
![]()
The code you've posted does not reflect the instructions in post #2.
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
![]() |
Thread Tools | |
Display Modes | |
|
![]() |
||||
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 |
![]() |
Colonel Biggs | Drawing and Graphics | 13 | 12-12-2011 08:52 PM |
![]() |
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 |