/ Programovanie grafov v programe Excel VBA

Programovanie grafov v programe Excel VBA

Nižšie sa pozrieme na dva programy Excel VBA, Jeden program prechádza cez všetky grafy na hárku a zmení každý graf na koláčový graf. Druhý program mení niektoré vlastnosti prvého grafu.

1. Vytvorte niektoré grafy (alebo stiahnite súbor programu Excel).

Programovanie grafov v programe Excel VBA

Na pracovný hárok umiestnite príkazové tlačidlo a pridajte nasledujúce riadky kódu:

1. Najprv musíme deklarovať objekt ChartObject. Objekt ChartObject slúži ako kontajner pre objekt Chart. Voláme ChartObject cht, ale môžete použiť akékoľvek meno.

Dim cht As ChartObject

2. Kolekcia ChartObjects obsahuje všetky vložené grafy na jednom hárku. Chceme prechádzať cez všetky grafy na prvom hárku. Pridajte nasledujúcu slučku pre každú nasledujúcu.

For Each cht In Worksheets(1).ChartObjects

Next cht

3. Objekt Graf predstavuje graf v zošite. Pridajte nasledujúci riadok kódu do slučky For Each Next pre zmenu každého grafu na koláčový graf.

cht.Chart.ChartType = xlPie

Poznámka: Cht sa opäť používa ako kontajner pre objekt Chart. Na zmenu typu grafu používame vlastnosť ChartType. Vstavaný konštantný xlPie používame na zmenu každého grafu na koláčový graf.

4. Výsledok po kliknutí na príkazové tlačidlo na hárku:

Programovanie výsledkov grafov

Teraz zmeníme niektoré vlastnosti prvého grafu.

Do pracovného hárka umiestnite ďalšie príkazové tlačidlo a pridajte nasledujúce riadky kódu:

5. Kolekcia ChartObjects obsahuje všetky vložené grafy na jednom hárku. Pridajte nasledujúci riadok kódu na aktiváciu prvého grafu:

Worksheets(1).ChartObjects(1).Activate

Teraz môžeme odkazovať na tento graf ako ActiveChart.

6. Ak chcete zmeniť názov grafu, pridajte nasledujúci riadok kódu.

ActiveChart.ChartTitle.Text = "Sales Report"

7. Pridajte nasledujúci riadok kódu, aby ste presunuli legendu do spodnej časti grafu:

ActiveChart.Legend.Position = xlBottom

8. Výsledok po kliknutí na príkazové tlačidlo na hárku:

Programovanie výsledkov grafov

Tiež si prečítajte: