/ / Програмски графикони у Екцелу ВБА

Програмски графикони у Екцелу ВБА

У наставку ћемо погледати два програма Екцел ВБА. Један програм петље кроз све карте на листу и мења сваку графикону на пита графикон. Други програм мења неке својства првог графикона.

1. Креирајте неке графиконе (или преузмите Екцел датотеку).

Програмски графикони у Екцелу ВБА

Поставите командно дугме на радни лист и додајте следеће линије кода:

1. Прво, морамо декларирати ЦхартОбјецт објекат. Објект ЦхартОбјецт делује као контејнер за објекат графикона. Зовемо ЦхартОбјецт цхт, али можете користити било које име.

Dim cht As ChartObject

2. ЦхартОбјецтс колекција садржи све уграђене графиконе на једном листу. Желимо да се пробијемо кроз све карте на првом листу. Додајте следеће петље за сваки наредни циклус.

For Each cht In Worksheets(1).ChartObjects

Next cht

3. Објект Цхарт представља графикон у радној свесци. Додајте следећу линију кода у петље За сваки наредни корак да бисте променили сваку графикону на кружну карту.

cht.Chart.ChartType = xlPie

Напомена: опет, цхт делује као контејнер за објект Цхарт. Користимо својство ЦхартТипе да променимо тип графикона. Ми користимо уграђени константни клПие да променимо сваку графикону на пита графикон.

4. Резултат када кликнете на командно дугме на листу:

Резултати графикона програма

Сада ћемо променити нека својства првог графикона.

Ставите још један командни тастер на радни лист и додајте следеће линије кода:

5. ЦхартОбјецтс колекција садржи све уграђене графиконе на једном листу. Додајте следећу линију кода да бисте активирали први графикон:

Worksheets(1).ChartObjects(1).Activate

Сада можемо да позовемо овај графикон као АцтивеЦхарт.

6. Додајте следећу линију кода да бисте променили наслов графикона.

ActiveChart.ChartTitle.Text = "Sales Report"

7. Додајте следећу линију кода да бисте померили легенду на дну графикона:

ActiveChart.Legend.Position = xlBottom

8. Резултат када кликнете на командно дугме на листу:

Резултати графикона програма

Такође прочитајте: