Wich Internetexplorer option blocks the FitZoom macro?

Ask a Question

Hello,

I use this macro on a button:


Sub ZoomWithErrorCheck
 ActiveDocument.GetApplication.WaitForIdle
 ActiveDocument.ActiveSheet.FitZoomToWindow
 ActiveDocument.GetApplication.WaitForIdle
 set asProp=ActiveDocument.ActiveSheet.GetProperties
 if asProp.ZoomFactor < 0.5 or asProp.ZoomFactor > 2 then
 asProp.ZoomFactor = 1
 ActiveDocument.ActiveSheet.SetProperties asProp
 else
 ActiveDocument.ActiveSheet.ApplyZoomToAllSheets
 end if
end sub:

If I open the Application in my Browser everything works fine, but if another user opens it, the macro didn't work.

Are there some options in the Internetexplorer which blocks the macro?

Thanks for help.

Bastian

0 Replies