Formatting Macro based on Zoom (PageScale)

macropod · #4 02-01-2014, 09:05 PM

Quote:

Originally Posted by BobBridges

Heck, if he wanted to increase Zoom until it was up to 40, all he'd have to do is say

Code:

 If .Zoom < 40 Then .Zoom = 40

(I speak under correction, because I've never done anything with Zoom in VBA.) I think he's saying that he wants to keep on adding pages until the zoom is at least 40%.

That's not how I read it. As posted, if the zoom is less than 40%, increase by 1%. Recheck. If the zoom is still less than 40%, increase by 1% and exit. Thus, if the zoom started out at 36%, it would be increased to 38% only. Similarly, if it starts at 39.5% it would be increased to 40.5%.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Word VBA Macro to Find and Replace based on the Alt Text of an Image	bennymc	Word VBA	1	01-27-2014 04:23 PM
MACRO - Insert row based on Form Field Criteria	Elan05	Word VBA	5	04-16-2013 06:39 AM
Conditional formatting question based on cell date	Cosmo	Excel	2	04-08-2013 12:12 PM
Macro based on cell value	ubns	Excel Programming	1	05-07-2012 04:03 AM
Conditional Formatting Expiration Dates Based on Text in Adjacent Cell	Frogggg	Excel	1	10-25-2011 08:44 PM