Page Setup and Zoom Property

[CT Witter]

I was curious if in VBA is there a way to switch in the page setup from Fit to X Page by X Page to the Scaling %.

I have set all my pages to fit 1 x 1 and would now like to know the scaling % (Zoom) of the sheets.


Thanks,
CT

 

[Scorpion Steve]

Maybe I don't understand the issue, but is this what you want?

Option Explicit
Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long
Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Sub SetPageZoom()
'Lock the window so zoom cannot change during evaluation
LockWindowUpdate FindWindowA("XLMAIN", Application.Caption)
With ActiveSheet.PageSetup
.FitToPagesTall = 1
.FitToPagesWide = 1
.Zoom = False
End With
'Activate PrintPreview to evaluate current Zoom
SendKeys "%C"
ActiveSheet.PrintPreview
'Activate PageSetUp to return current Zoom
SendKeys "P%A~"
Application.Dialogs(xlDialogPageSetup).Show
MsgBox ActiveSheet.PageSetup.Zoom
LockWindowUpdate 0
End Sub

Hey!
Great information!! Just lacking personal knowledge now! :/
OK, I am very new to VBA so any adjustments and I wont be able to see whats what.
I believe that this code is what I am searching for but doesn't work for me and I know I am to blame!
I need a code to lock my worksheet to 56% and thats final! I want it to revert back to 56% when re-opend as well as if anyone attempts to manually zoom with either the mouse roller+Ctrl.
I would appreciate efforts made and and helpful tips to understand VBA.
Thanks
Steve

 

[Mozzz]

I used your code and it worked perfect. What I need to do is capture the Zoom to a variable so I can assign it so I can set page breaks and still have it FitToPagesWide = 1 and FitToPagesTall =False as if FitToPagesWide was not False because I have the correct Zoom. When I used Z = ActiveSheet.PageSetup.Zoom, I got "False". I could see 52 in the msgbox but could not capture it.

Help

Mozzz