How to center a page horizontally?

macropod · #1 11-11-2013, 02:16 PM

Quote:

Originally Posted by b0x4it

This also works for me but just on my laptop with 15.1" monitor. It does nothing on my 27" monitor. How can I relate this code to the size of the screen instead of a fix number (250% in this code)?

Simple! Delete:

Code:

Dim lZoom As Long

and:

Code:

'Get the full-screen zoom
lZoom = .Percentage
'Set zoom % to 250% min
If .Percentage < 250 Then .Percentage = 250

and:

Code:

'Center the page
.ActivePane.HorizontalPercentScrolled = (250 - lZoom) / 5

b0x4it · #2 11-11-2013, 03:35 PM

Quote:

Originally Posted by macropod

Simple! Delete:

Code:

Dim lZoom As Long

and:

Code:

'Get the full-screen zoom
lZoom = .Percentage
'Set zoom % to 250% min
If .Percentage < 250 Then .Percentage = 250

and:

Code:

'Center the page
.ActivePane.HorizontalPercentScrolled = (250 - lZoom) / 5

If you delete these codes, then how it scrolls horizontally to the centre?

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Centering text horizontally in powerpoint	Microsoftenquirer1000	PowerPoint	0	10-28-2012 03:38 PM
How to Center One Line Vertically on Blank Page	SQLUSA	Word	1	08-29-2012 08:14 PM
Word doc that scroll horizontally	Golfer4588	Word	1	03-22-2012 03:55 PM
Microsoft Word 2010 - Aligning table horizontally	SWEngineer	Word Tables	4	07-20-2011 01:32 AM
Labels will only print in center of page	jferr	Word	0	04-02-2010 09:52 AM