להלן נבחן שתי תוכניות ב Excel VBA . תוכנית אחת עובר בכל התרשימים על גיליון ומשנה כל תרשים לתרשים עוגה. התוכנית השנייה משנה כמה מאפייני התרשים הראשון .
1. צור כמה תרשימים (או הורד את קובץ האקסל).
להניח כפתור הפקודה בגליון העבודה והוסף את שורות הקוד הבאות:
1. ראשית, עלינו להכריז על אובייקט ChartObject. האובייקט ChartObject משמש כמכל לאובייקט תרשים. אנו קוראים ל- ChartObject cht אך ניתן להשתמש בכל שם.
אף אחדchtכפי שChartObject
2. אוסף ChartObjects מכיל את כל התרשימים המוטבעים על גיליון אחד. אנו רוצים לדפדף בכל התרשימים בגיליון הראשון. הוסף את הדברים הבאים עבור כל לולאה הבאה.
נוסחת תזרים מזומנים נטו שנתית מצטיינתל כל אחדchtבדפי עבודה (1) .ChartObjects
הַבָּאcht
3. אובייקט התרשים מייצג תרשים בחוברת עבודה. הוסף את שורת הקוד הבאה ללולאה For Every Next Next כדי לשנות כל תרשים לתרשים עוגה.
כיצד להכין גרף עלילת פיזור באקסלcht.Chart.ChartType = xlPie
הערה: שוב, cht משמש כמכל לאובייקט התרשים. אנו משתמשים במאפיין ChartType כדי לשנות את סוג התרשים. אנו משתמשים ב- xlPie הקבוע המובנה כדי לשנות כל תרשים לתרשים עוגה.
4. התוצאה בלחיצה על כפתור הפקודה בגיליון:
כעת נשנה כמה מאפיינים של התרשים הראשון.
הניחו עוד כפתור הפקודה בגליון העבודה והוסף את שורות הקוד הבאות:
5. אוסף ChartObjects מכיל את כל התרשימים המוטבעים על גיליון אחד. הוסף את שורת הקוד הבאה כדי להפעיל את התרשים הראשון:
דפי עבודה (1) .ChartObjects (1). הפעלכעת אנו יכולים להתייחס לתרשים זה כ- ActiveChart.
6. הוסף את שורת הקוד הבאה כדי לשנות את כותרת התרשים.
ActiveChart.ChartTitle.Text = 'דוח מכירות'7. הוסף את שורת הקוד הבאה כדי להעביר את המקרא לתחתית התרשים:
ActiveChart.Legend.Position = xlBottom8. התוצאה בלחיצה על כפתור הפקודה בגיליון:
החל את פן הנושא על גליון העבודה הנוכחי
עבור לפרק הבא: אובייקט טווח