Alla tarkastellaan kahta ohjelmaa Excel VBA. Yksi ohjelma selaa läpi kaikki kaaviot taulukkoon ja muuttaa jokaisen kaavion ympyräkaavioksi. Toinen ohjelma muuttaa joitakin ensimmäisen kaavion ominaisuudet.
1. Luo kaavioita (tai lataa Excel -tiedosto).
Aseta komentopainike laskentataulukkoon ja lisää seuraavat koodirivit:
1. Ensinnäkin meidän on ilmoitettava ChartObject -objekti. ChartObject -objekti toimii Chart -objektin säilönä. Kutsumme ChartObject cht: ksi, mutta voit käyttää mitä tahansa nimeä.
Dim cht Kuten ChartObject
2. ChartObjects -kokoelma sisältää kaikki upotetut kaaviot yhdelle arkille. Haluamme käydä läpi kaikki ensimmäisen taulukon kaaviot. Lisää seuraava jokaiselle seuraavalle silmukalle.
Jokaiselle cht laskentataulukoille (1)
Seuraava cht
3. Kaavio -objekti edustaa kaaviota työkirjassa. Lisää seuraava koodirivi For For Next Next -silmukkaan, jos haluat muuttaa kunkin kaavion ympyräkaavioksi.
cht.Chart.ChartType = xlPie
Huomaa: cht toimii jälleen Chart -objektin säilönä. Käytämme ChartType -ominaisuutta kaavion tyypin muuttamiseen. Käytämme sisäänrakennettua vakioa xlPie muuttaaksemme jokaisen kaavion ympyräkaavioksi.
4. Tulos, kun napsautat taulukon komentopainiketta:
Nyt muutamme joitain ensimmäisen kaavion ominaisuuksia.
Aseta toinen komentopainike laskentataulukkoon ja lisää seuraavat koodirivit:
5. ChartObjects -kokoelma sisältää kaikki upotetut kaaviot yhdelle arkille. Aktivoi ensimmäinen kaavio lisäämällä seuraava koodirivi:
Laskentataulukot (1) KaavioObjektit (1) Aktivoi
Voimme nyt viitata tähän kaavioon nimellä ActiveChart.
6. Lisää kaavion otsikko lisäämällä seuraava koodirivi.
ActiveChart.ChartTitle.Text = "Myyntiraportti"
7. Lisää seuraava koodirivi siirtääksesi selitteen kaavion alareunaan:
ActiveChart.Legend.Position = xlBottom
8. Tulos, kun napsautat taulukon komentopainiketta:
