/ / Diagramok programozása Excel VBA-ban

Programozási diagramok Excel VBA-ban

Az alábbiakban két programot nézünk be Excel VBA. Egy program hurkok minden diagramon egy lapon, és minden diagramot egy kördiagramra cserél. A másik program megváltozik az első grafikon tulajdonságai.

1. Hozzon létre néhány diagramot (vagy töltse le az Excel fájlt).

Programozási diagramok Excel VBA-ban

Helyezzen egy parancsgombot a munkalapon, és adja hozzá a következő kódsorokat:

1. Először deklarálni kell egy ChartObject objektumot. A ChartObject objektum a Chart objektum tárolójaként működik. A ChartObject cht-nek nevezzük, de bármilyen nevet használhatunk.

Dim cht As ChartObject

2. A ChartObjects gyűjtemény tartalmazza az összes beágyazott diagramot egyetlen lapra. Szeretnénk átrajzolni az első lap összes diagramját. Adja hozzá a következőt minden egyes következő hurokhoz.

For Each cht In Worksheets(1).ChartObjects

Next cht

3. A Chart objektum egy munkafüzet diagramját ábrázolja. Adja hozzá az alábbi kódsorokat a For Every Next hurokba, hogy minden diagram egy kördiagramra váltson.

cht.Chart.ChartType = xlPie

Megjegyzés: ismét, a cht konténerként működik a Chart objektum számára. A ChartType tulajdonság használatával módosíthatja a diagramtípust. Az xlPie beépített konstans használatával az egyes grafikonokat egy kördiagramra változtatjuk.

4. Eredmény, ha rákattint a parancs gombra a lapon:

A diagramok programozása Eredmény

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 tartalmazza a beágyazott diagramokat egyetlen lapra. A következő kódsor hozzáadásával aktiválja az első grafikont:

Worksheets(1).ChartObjects(1).Activate

Az ActiveChart most már hivatkozhat erre a diagramra.

6. Adja hozzá a következő kódot a diagram címének módosításához.

ActiveChart.ChartTitle.Text = "Sales Report"

7. Adja hozzá a következő kódsorba a legenda alját a diagram aljára:

ActiveChart.Legend.Position = xlBottom

8. Eredmény, ha rákattint a parancs gombra a lapon:

A diagramok programozása Eredmény

Szintén olvasható: