2 Replies Latest reply: Apr 7, 2015 9:20 AM by Alexander Strohmaier

FitZoomToWindow Not working

Helen Pippard Feb 26, 2013 10:36 AM

Hello

I have researched on the internet and have found the following code:

SUB FitZoomToWindow

ActiveDocument.ActiveSheet.FitZoomToWindow
ActiveDocument.ActiveSheet.ApplyZoomToAllSheets

END SUB

However this does not seem to be working in my button which I ahve assigned the macro too

I understand the above script to be VBScript, I am running this off our server which has Excel 2007 installed. I know that Microsoft have stopped external uses for running vbscript in Excel 2007, could this be why the macro is not working for me?

Has anyone else experienced the syntex not running, and how they overcame this problem?

Thanks

Helen

Re: FitZoomToWindow Not working

Wojciech Parzyszek Feb 27, 2013 6:48 AM (in response to Helen Pippard)

Hi Helen

try this macro:

SUB Zoom

set CurrentSheet=ActiveDocument.ActiveSheet
set proper=CurrentSheet.GetProperties
proper.ZoomFactor = 1 ' try 1 to 4
CurrentSheet.SetProperties proper

END SUB
Like Show 0 Likes (0)

Actions
Re: FitZoomToWindow Not working

Alexander Strohmaier Apr 7, 2015 9:20 AM (in response to Helen Pippard)

Hey,

I had the same problem and found the answer there:

http://www.qlikblog.at/444/qliktip-16-zoom-mit-makro-automatisieren/

The tricky point is to add the following line between the commands:

ActiveDocument.ActiveSheet.FitZoomToWindow
ActiveDocument.GetApplication.WaitForIdle
ActiveDocument.ActiveSheet.ApplyZoomToAllSheets
ActiveDocument.GetApplication.WaitForIdle

I hope that helps!
Like Show 1 Like (1)

Actions

Go to original post