Menu

setting all sheets in workbook to same zoom level?

Search this Thread

Prev

Previous Post

Next Post

Next

#3

Report Post

Posted to microsoft.public.excel.programming

Don Wiss

Don Wiss is offline

external usenet poster

Posts: 300

Default

setting all sheets in workbook to same zoom level?

On 10 Aug 2006 19:09:39 -0700, wrote:

Try this:

Okay. What I was hoping for was some command that did all of the workbook
without looping through the sheets. This is the whole thing fleshed out:

Sub SetSheetZoom()
' is button
Dim WS As Worksheet, OrgWS As Worksheet, Z As String
TryAgain:
Z = InputBox("Enter zoom level", "Sheet Zoom")
If Z = "" Then Exit Sub
If Not IsNumeric(Z) Then
MsgBox "Input must be numeric!", vbCritical, "Not Number"
GoTo TryAgain
End If
Application.ScreenUpdating = False
Application.EnableEvents = False
Set OrgWS = ActiveSheet
For Each WS In Worksheets
If WS.Visible Then
WS.Select
ActiveWindow.Zoom = Z
Else
WS.Visible = xlSheetVisible
WS.Select
ActiveWindow.Zoom = Z
WS.Visible = xlSheetHidden
End If
Next WS
OrgWS.Select
Application.EnableEvents = True
End Sub

Reply With Quote

Reply With Quote

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Posting Rules
Smilies are On [IMG] code is On HTML code is Off Trackbacks are On Pingbacks are On Refbacks are On

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Changing zoom level automatically	Xt	Excel Worksheet Functions	2	October 23rd 09 07:19 PM
Zoom level	Habicht	Excel Discussion (Misc queries)	2	June 13th 08 06:08 PM
Zoom level	Fotis	Excel Discussion (Misc queries)	1	July 7th 06 04:43 PM
setting Page Setup on a workbook level	[email protected]	Excel Discussion (Misc queries)	1	June 14th 06 06:07 PM
Setting zoom of 2 sheets equal	jbl25[_5_]	Excel Programming	2	June 28th 05 05:40 PM

All times are GMT +1. The time now is 12:35 AM.

About Us

"It's about Microsoft Excel"

Contact Us ExcelBanter forum home Privacy Statement