Az alábbiakban két programot tekintünk meg Excel VBA. Egy program végigmegy az összes grafikonon egy lapon, és minden diagramot kördiagrammá változtat. A másik program néhányat megváltoztat az első diagram tulajdonságai.
1. Hozzon létre néhány diagramot (vagy töltse le az Excel fájlt).
Helyezzen el egy parancsgombot a munkalapon, és adja hozzá a következő kódsorokat:
1. Először deklarálnunk kell egy ChartObject objektumot. A ChartObject objektum egy Chart objektum tárolójaként működik. A ChartObject cht -nek hívjuk, de bármilyen nevet használhat.
Dim cht Mint ChartObject
2. A ChartObjects gyűjtemény egyetlen lapon tartalmazza az összes beágyazott diagramot. Át akarjuk tekinteni az első lapon található összes diagramot. Adja hozzá a következőket minden egyes következő hurokhoz.
Minden cht -hez a munkalapokon (1). ChartObjects
Következő cht
3. A Diagram objektum egy diagramot jelenít meg a munkafüzetben. Adja hozzá a következő kód sort a Minden egyes következő ciklushoz, hogy minden diagram kördiagrammá váljon.
cht.Chart.ChartType = xlPie
Megjegyzés: a cht ismét a Chart objektum tárolójaként működik. A ChartType tulajdonságot használjuk a diagram típusának megváltoztatására. A beépített xlPie konstans segítségével minden diagramot kördiagrammá változtatunk.
4. Eredmény, ha rákattint a parancsikonra a lapon:
Most megváltoztatjuk az első diagram néhány tulajdonságát.
Helyezzen egy másik parancsgombot a munkalapra, és adja hozzá a következő kódsorokat:
5. A ChartObjects gyűjtemény egyetlen lapon tartalmazza az összes beágyazott diagramot. Az első diagram aktiválásához adja hozzá a következő kód sort:
Munkalapok (1). DiagramTárgyak (1). Aktiválás
Ezt a diagramot most ActiveChart néven tekinthetjük.
6. Adja hozzá a következő kód sort a diagram címének megváltoztatásához.
ActiveChart.ChartTitle.Text = "Értékesítési jelentés"
7. Adja hozzá a következő kód sort a jelmagyarázat áthelyezéséhez a diagram aljára:
ActiveChart.Legend.Position = xlBottom
8. Eredmény, ha rákattint a parancsikonra a lapon: