Create Table for Multiple Pictures

macropod · #1 12-25-2020, 01:54 PM

Quote:

Originally Posted by victorybadges

I have tested the macro and it works wonderfully except for 1 thing which can be fixed manually. The images are not centred as the cell margins are not set to zero. (PS I used fixed width columns)

Unless you have some default set up with different left/right and/or top/bottom margins, the images cannot but be centered in the cells. nevertheless, I've added code to eliminate all cell margins.

Quote:

Originally Posted by victorybadges

As I use varying fixed column widths in different tables is there a way of enabling a fixed width question to be prompted on run time to save me from editing the macro each time.

After:

Code:

RwHght = CentimetersToPoints(CSng(InputBox("What max height for the pictures, in Centimeters (e.g. 5)?")))

insert:

Code:

ColWdth = CentimetersToPoints(CSng(InputBox("What max column width for the pictures, in Centimeters (e.g. 8)?")))

and either delete:

Code:

ColWdth = TblWdth / NumCols

or change that line to:

Code:

If TblWdth / NumCols < ColWdth Then ColWdth = TblWdth / NumCols

Delete the line if you don't care whether the cumulative specified column width exceeds the page margins; otherwise, make the change.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How do I change multiple pictures in Word 2016 to all new pictures that appear in a specified order?	chaz	Word VBA	7	07-11-2018 03:57 AM
Mail merge from excel - need to create sheets and create a table	bluenosebex	Mail Merge	5	08-02-2015 05:34 PM
Create multiple copies of same email in multiple folders	gaker10	Outlook	0	10-06-2014 07:44 AM
create fields with multiple lines - fix column width in table	expert4knowledge	Word	4	02-14-2014 01:06 PM
Resize multiple pictures in a Word 2010 table	JBA479	Word VBA	1	01-24-2014 08:51 PM