כיצד לשנות באופן אוטומטי את הגודל של גיליון אלקטרוני של Excel
שלב 1
לחץ על הכרטיסייה "מפתח" ולחץ על "Visual Basic" כדי לפתוח את חלון העריכה VB. לחץ על "הכנס" בתפריט ולחץ על "מודול" כדי להוסיף מודול קוד חדש.
שלב 2
צור נוהל משנה חדש:
פרטי Sub resizeSheet ()
שלב 3
הגדר את המיקום של חלון Excel הראשי באמצעות המאפיינים שמאלה ו- Top של אובייקט היישום:
Application.Left = 133.75 Application.Top = 7.75
שלב 4
מגדיר את רוחב וגובה החלון הראשי של Excel:
Application.Width = 1173.75 Application.Height = 884.25
שלב 5
הוסף את הקוד הבא כדי להגדיר את המיקום של הגיליון האלקטרוני של Excel, תוך שימוש במאפיינים העליונים והשמאליים של אובייקט היישום:
ActiveWindow.WindowState = xlNormal עם ActiveWindow .Top = 111.25 .Lft = 19.75 סיום עם
שלב 6
הגדר את הגודל של החלון גיליון אלקטרוני של Excel באמצעות "רוחב" ו "גובה" מאפיינים:
עם ActiveWindow .Width = 1010.25. גובה = 590.25 סיים עם
שלב 7
סיים את ההליך עם "תת סוף". לחץ על "F5" כדי לבצע את ההליך.
