אני חווה בעיה מוזרה בניסיון ליישם את המאקרו Zoom אשר מבצע אוטומטית FitZoomToWindow על כל הגיליונות.
זהו המאקרו:
Sub Zoom
rem ** fit active sheet to window and apply same zoom to all sheets **
ActiveDocument.ActiveSheet.FitZoomToWindow
ActiveDocument.GetApplication.WaitforIdle 300
ActiveDocument.ActiveSheet.ApplyZoomToAllSheets
End Sub
כאשר אני בוחר להריץ את המאקרו עם פתיחת המסמך (טריגר OnOpen) מתקבל מסך מוזר בפתיחת המסמך, החלונות של כל הגיליונות מוקטנים, למעשה מתבצע ZOOM שגוי.
במידה ואני מגדיר את הרצת המאקרו דרך Trigger-ים אחרים, למשל בהפעלת גיליונות, ה-ZOOM נעשה באופן תקין.
בכל זאת אני צריך פתרון היות ואני מעוניין שה-ZOOM יתבצע מיד עם פתיחת המודל על ידי המשתמשים השונים.
האם מישהו מכיר את התופעה / פתרון?
