Екцел графикони и графикони користе се за визуелни приказ података. У овом водичу ћемо покрити како користити ВБА за креирање и манипулацију графиконима и елементима графикона.
Можете да креирате уграђене графиконе на радном листу или графиконе на њиховим листовима графикона.
Креирање уграђеног графикона помоћу ВБА
Имамо опсег А1: Б4 који садржи изворне податке, приказане испод:
Можете креирати графикон помоћу методе ЦхартОбјецтс.Адд. Следећи код ће створити уграђени графикон на радном листу:
| 12345678 | Под ЦреатеЕмбеддедЦхартУсингЦхартОбјецт ()Затамни уграђени графикон као ЦхартОбјецтПостави ембеддедцхарт = Схеетс ("Схеет1"). ЦхартОбјецтс.Адд (Лево: = 180, Ширина: = 300, Врх: = 7, Висина: = 200)ембеддедцхарт.Цхарт.СетСоурцеДата Извор: = Схеетс ("Схеет1"). Ранге ("А1: Б4")Енд Суб |
Резултат је:
Такође можете креирати графикон помоћу методе Схапес.АддЦхарт. Следећи код ће створити уграђени графикон на радном листу:
| 12345678 | Суб ЦреатеЕмбеддедЦхартУсингСхапесАддЦхарт ()Затамни уграђени графикон као обликСет ембеддедцхарт = Схеетс ("Схеет1"). Схапес.АддЦхартембеддедцхарт.Цхарт.СетСоурцеДата Извор: = Схеетс ("Схеет1"). Ранге ("А1: Б4")Енд Суб |
Одређивање типа графикона помоћу ВБА
Имамо опсег А1: Б5 који садржи изворне податке, приказане испод:
Можете да наведете тип графикона помоћу својства ЦхартТипе. Следећи код ће створити тортни графикон на радном листу пошто је својство ЦхартТипе постављено на клПие:
| 123456789 | ПододредитеАЦхартТипе ()Дим цхрт Ас ЦхартОбјецтПостави цхрт = Табеле ("Лист 1"). ЦхартОбјецтс.Адд (Лево: = 180, Ширина: = 270, Горње: = 7, Висина: = 210)цхрт.Цхарт.СетСоурцеДата Извор: = Схеетс ("Схеет1"). Ранге ("А1: Б5")цхрт.Цхарт.ЦхартТипе = клПиеЕнд Суб |
Резултат је:
Ово су неки од популарних типова графикона који се обично наводе, мада постоје и други:
- клАреа
- клПие
- клЛине
- клРадар
- клКСИСцаттер
- клСурфаце
- клБуббле
- клБарЦлустеред
- клЦолумнЦлустеред
Додавање наслова графикона помоћу ВБА
Изабрали смо графикон на радном листу као што је приказано испод:
Морате прво додати наслов графикона помоћу методе Цхарт.СетЕлемент, а затим одредити текст наслова графикона постављањем својства ЦхартТитле.Тект.
Следећи код показује како да додате наслов графикона и наведете наслов наслова активног графикона:
| 123456 | Суб АддингАндСеттингАЦхартТитле ()АцтивеЦхарт.СетЕлемент (мсоЕлементЦхартТитлеАбовеЦхарт)АцтивеЦхарт.ЦхартТитле.Тект = "Продаја производа"Енд Суб |
Резултат је:
Напомена: Прво морате да изаберете графикон да бисте га учинили активним графиконом да бисте могли да користите објекат АцтивеЦхарт у свом коду.
Промена боје позадине графикона помоћу ВБА
Изабрали смо графикон на радном листу као што је приказано испод:
Боју позадине читавог графикона можете променити постављањем РГБ својства објекта ФиллФормат објекта ЦхартАреа. Следећи код ће графикону дати светло наранџасту боју позадине:
| 12345 | Суб АддингАБацкгроундЦолорТоТхеЦхартАреа ()АцтивеЦхарт.ЦхартАреа.Формат.Филл.ФореЦолор.РГБ = РГБ (253, 242, 227)Енд Суб |
Резултат је:
Такође можете променити боју позадине целог графикона постављањем својства ЦолорИндек објекта Интериор објекта ЦхартАреа. Следећи код ће графикону дати наранџасту боју позадине:
| 12345 | Суб АддингАБацкгроундЦолорТоТхеЦхартАреа ()АцтивеЦхарт.ЦхартАреа.Интериор.ЦолорИндек = 40Енд Суб |
Резултат је:
Напомена: Својство ЦолорИндек вам омогућава да наведете боју на основу вредности од 1 до 56, извучене из унапред задате палете, да видите које вредности представљају различите боје, кликните овде.
Промена боје површине графикона помоћу ВБА
Изабрали смо графикон на радном листу као што је приказано испод:
Можете променити боју позадине само површине графикона, постављањем РГБ својства објекта ФиллФормат објекта ПлотАреа. Следећи код ће земљишту графикона дати светло зелену боју позадине:
| 12345 | Суб АддингАБацкгроундЦолорТоТхеПлотАреа ()АцтивеЦхарт.ПлотАреа.Формат.Филл.ФореЦолор.РГБ = РГБ (208, 254, 202)Енд Суб |
Резултат је:
Додавање легенде помоћу ВБА
Изабрали смо графикон на радном листу, као што је приказано испод:
Легенду можете додати помоћу методе Цхарт.СетЕлемент. Следећи код додаје легенду са леве стране графикона:
| 12345 | Суб АддингАЛегенд ()АцтивеЦхарт.СетЕлемент (мсоЕлементЛегендЛефт)Енд Суб |
Резултат је:
Положај легенде можете одредити на следеће начине:
- мсоЕлементЛегендЛефт - приказује легенду на левој страни графикона.
- мсоЕлементЛегендЛефтОверлаи - прекрива легенду на левој страни графикона.
- мсоЕлементЛегендРигхт - приказује легенду на десној страни графикона.
- мсоЕлементЛегендРигхтОверлаи - прекрива легенду на десној страни графикона.
- мсоЕлементЛегендБоттом - приказује легенду на дну графикона.
- мсоЕлементЛегендТоп - приказује легенду на врху графикона.
Додавање ознака података помоћу ВБА
Изабрали смо графикон на радном листу, као што је приказано испод:
Ознаке података можете додати методом Цхарт.СетЕлемент. Следећи код додаје ознаке података на унутрашњи крај графикона:
| 12345 | Додатно додавањеАДатаЛабелс ()АцтивеЦхарт.СетЕлемент мсоЕлементДатаЛабелИнсидеЕндЕнд Суб |
Резултат је:
Можете да наведете како су ознаке података постављене на следеће начине:
- мсоЕлементДатаЛабелСхов - приказује ознаке података.
- мсоЕлементДатаЛабелРигхт - приказује ознаке података са десне стране графикона.
- мсоЕлементДатаЛабелЛефт - приказује ознаке података са леве стране графикона.
- мсоЕлементДатаЛабелТоп - приказује ознаке података на врху графикона.
- мсоЕлементДатаЛабелБестФит - одређује најбоље прилагођавање.
- мсоЕлементДатаЛабелБоттом - приказује ознаке података при дну графикона.
- мсоЕлементДатаЛабелЦаллоут - приказује ознаке података као додатни опис.
- мсоЕлементДатаЛабелЦентер - приказује ознаке података у центру.
- мсоЕлементДатаЛабелИнсидеБасе - приказује ознаке података на унутрашњој бази.
- мсоЕлементДатаЛабелОутСидеЕнд - приказује ознаке података на спољном крају графикона.
- мсоЕлементДатаЛабелИнсидеЕнд - приказује ознаке података на унутрашњем крају графикона.
Додавање осе Кс и наслова у ВБА
Изабрали смо графикон на радном листу, као што је приказано испод:
Наслов Кс-осе и Кс-осе можете додати помоћу методе Цхарт.СетЕлемент. Следећи код додаје графикон графикону наслова Кс и Кс осе:
| 123456789 | Додатно додавањеАнКСАкисандКСТитле ()Са АцтивеЦхарт -ом.СетЕлемент мсоЕлементПримариЦатегориАкисСхов.СетЕлемент мсоЕлементПримариЦатегориАкисТитлеХоризонталЗавршитиЕнд Суб |
Резултат је:
Додавање И-осе и наслова у ВБА
Изабрали смо графикон на радном листу, као што је приказано испод:
Наслов И-осе и И-осе можете додати методом Цхарт.СетЕлемент. Следећи код додаје графикон графикону наслова И и И осе:
| 1234567 | Суб АддингАИАкисандИТитле ()Са АцтивеЦхарт -ом.СетЕлемент мсоЕлементПримариВалуеАкисСхов.СетЕлемент мсоЕлементПримариВалуеАкисТитлеХоризонталЗавршитиЕнд Суб |
Резултат је:
Промена формата броја оси
Изабрали смо графикон на радном листу, као што је приказано испод:
Можете променити формат броја оси. Следећи код мења формат броја оси и у валуту:
| 12345 | Суб ЦхангингТхеНумберФормат ()АцтивеЦхарт.Акес (клВалуе) .ТицкЛабелс.НумберФормат = "$#, ## 0.00"Енд Суб |
Резултат је:
Промена обликовања фонта на графикону
На радном листу имамо следећи графикон који је приказан испод:
Можете променити обликовање целог фонта графикона тако што ћете се обратити објекту фонта и променити његово име, тежину фонта и величину. Следећи код мења врсту, тежину и величину фонта целог графикона.
| 12345678910 | Суб ЦхангингТхеФонтФорматтинг ()Са АцтивеЦхарт -ом.ЦхартАреа.Формат.ТектФраме2.ТектРанге.Фонт.Наме = "Тимес Нев Роман".ЦхартАреа.Формат.ТектФраме2.ТектРанге.Фонт.Болд = Труе.ЦхартАреа.Формат.ТектФраме2.ТектРанге.Фонт.Сизе = 14Завршити |
Резултат је:
Брисање графикона помоћу ВБА
Изабрали смо графикон на радном листу, као што је приказано испод:
За брисање графикона можемо користити следећи код:
| 12345 | Подбрисање графикона ()АцтивеЦхарт.Парент.ДелетеЕнд Суб |
Позивајући се на колекцију ЦхартОбјецтс
Можете приступити свим уграђеним графиконима на свом радном листу или радној свесци ако погледате збирку ЦхартОбјецтс. Имамо два графикона на истом листу приказаном испод:
Упутићемо се на колекцију ЦхартОбјецтс како бисмо обема графиконима на радном листу дали исту висину, ширину, обрисали линије мреже, учинили боју позадине истом, дали графиконима исту боју површине графикона и учинили боју линије цртежа истом. боја:
| 12345678910111213141516 | Суб РеферрингТоАллТхеЦхартсОнАСхеет ()Дим цхт Ас ЦхартОбјецтЗа сваки цхт у АцтивеСхеет.ЦхартОбјецтсцхт.Хеигхт = 144.85цхт.Видтх = 246,61цхт.Цхарт.Акес (клВалуе) .МајорГридлинес.Делетецхт.Цхарт.ПлотАреа.Формат.Филл.ФореЦолор.РГБ = РГБ (242, 242, 242)цхт.Цхарт.ЦхартАреа.Формат.Филл.ФореЦолор.РГБ = РГБ (234, 234, 234)цхт.Цхарт.ПлотАреа.Формат.Лине.ФореЦолор.РГБ = РГБ (18, 97, 172)Нект цхтЕнд Суб |
Резултат је:
Уметање графикона на сопствени лист графикона
Имамо опсег А1: Б6 који садржи изворне податке, приказане испод:
Можете креирати графикон помоћу методе Цхартс.Адд. Следећи код ће креирати графикон на сопственом листу графикона:
| 123456 | Суб ИнсертингАЦхартОнИтсОвнЦхартСхеет ()Табеле („Лист1“). Распон („А1: Б6“). ИзаберитеЦхартс.АддЕнд Суб |
Резултат је:
Погледајте неке од наших других водича за цртање:
Графикони у Екцелу
Направите тракасти графикон у ВБА
