VBA класации - Как да създадете диаграми в Excel с помощта на VBA код?

• Графики в Excel VBA

Графики в Excel VBA

Визуализацията е много важна при всякакви данни. В excel, когато представяме данни в таблици и въртене, друг потребител може да е трудно да разбере основния сценарий от данните. Така че в excel имаме графики, които да представят нашите данни. Графиките е визуалното представяне на данни, присъстващи в редове и колони на листа на excel. Сега всички знаем как да вмъкнем диаграма в работен лист за excel. В тази тема ще научим за използването на диаграми във VBA. Това е толкова просто, колкото ние използваме диаграми в excel. Сега като в работен лист, където имаме различни видове диаграми, за да изберете подобно, имаме всички класации в VBA също като обект. Всичко, което трябва да направим, е да извикаме този обект, за да го използваме. Можем да правим диаграми от VBA в същия работен лист или в отделен лист на таблицата. Най-препоръчително е обаче да използвате диаграми в отделен лист, за да избегнете объркване.

Сега, какви са класациите във VBA? Графиките са прости обекти в VBA. Можем да направим два вида класации във VBA. Единият е известен като лист с диаграми, докато друг е известен като Вградени диаграми. В листа с диаграми VBA създава нов работен лист за диаграмата. Ние даваме референтните данни, които са друг работен лист като изходни данни. Сега вградените диаграми са онези графики, които присъстват в същия работен лист на данните. Сега кодирането на тези два типа диаграми е малко по-различно един от друг, което ще научим в тази тема. За да използваме свойствата на графиката във VBA, използваме символ точка (.) Като IntelliSense. Сега трябва да запомним едно нещо, че има различни видове класации в excel. Ако не предоставим тип диаграма на нашия код, VBA автоматично прави диаграма с колони за нас по подразбиране. Очевидно можем да променим това с няколко реда код.

Как да създадете класации в Excel VBA?

Сега нека научим как да правим диаграми в Excel VBA с няколко примера.

Можете да изтеглите този шаблон на VBA Charts Excel тук - VBA Charts Excel шаблон

За всички примери ще разгледаме една от данните, които присъстват в лист 1, както следва,

Excel VBA Charts - Пример №1

Първо, нека се научим как да вмъкваме диаграма във VBA, за това следвайте стъпките по-долу:

Стъпка 1: Започнете с подпроцедура, както следва.

Код:

 Sub Charts1 () Край Sub 

Стъпка 2: Декларирайте една променлива като обект на диаграма.

Код:

 Sub Charts1 () Dim Cht As Chart End Sub 

Стъпка 3: За да използваме диаграмите, трябва да извикаме метода на добавяне, както е показано по-долу.

Код:

 Sub Charts1 () Dim Cht As Chart Set Cht = Charts.Add End Sub 

Стъпка 4: За да използвате свойствата на обекта на диаграмата, вмъкнете a Statement в кода, както е показано по-долу.

Код:

 Sub Charts1 () Dim Cht като Chart Set Cht = Charts.Add with Cht End with End Sub 

Стъпка 5: Сега нека да предоставим източник на тази диаграма, започнете с точков оператор и той ще ни даде допълнителни възможности. Напишете следния код по-долу, за да въведете източник за диаграмата.

Код:

 Sub Charts1 () Dim Cht като Chart Set Cht = Charts.Add With Cht .SetSourceData Източник: = Sheets ("Sheet1"). Обхват ("A1: B6") End with End Sub 

Стъпка 6: Сега не забравяйте, че не сме предоставили никакъв тип диаграма, първо нека стартираме горния код чрез натискане на клавиша F5 и да видим какъв тип диаграма ще бъде вмъкнат.

Имаме създаден нов лист, наречен Chart и той има нашата диаграма в него.

Стъпка 7: Сега нека да дадем на кода вида на диаграмата, която искаме да използваме за това представяне,

Стъпка 8: Нека изберете 3D зона за този пример, както е показано по-долу,

Код:

 Sub Charts1 () Dim Cht като Chart Set Cht = Charts.Add With Cht .SetSourceData Източник: = Sheets ("Sheet1"). Диапазон ("A1: B6") .ChartType = xl3DArea End with End Sub 

Стъпка 9: Стартирайте кода чрез натискане на клавиша F5 или като кликнете върху бутона Възпроизвеждане и проверете типа на диаграмата в работния лист.

Сега, помнете всеки път, когато стартираме кода, той ще създаде нов лист за нас. Това е известно и като лист с диаграма, тъй като създава диаграми в друг лист.

Excel VBA Charts - Пример №2

Сега нека направим вградена диаграма, която означава диаграма в листа на изходните данни. За това следвайте стъпките по-долу, за да създадете диаграма в Excel VBA.

Стъпка 1: В същия модул стартирайте друга подпроцедура, както следва.

 Код: Sub Charts2 () End Sub 

Стъпка 2: Отново декларирайте променлива като тип диаграма, както следва.

Код:

 Sub Charts2 () Dim Cht1 As Chart End Sub 

Стъпка 3: Разликата във вградените диаграми е, че препращаме работния лист, който съдържа данните като активен лист, чрез следния код, показан по-долу.

Код:

 Sub Charts2 () Dim Cht1 като набор от диаграми Cht1 = ActiveSheet.Shapes.AddChart.Chart End Sub 

Стъпка 4: Сега останалата част от създаването и проектирането на диаграмите са подобни, ние отново поставяме With Statement в кода, както следва.

Код:

 Sub Charts2 () Dim Cht1 като набор от диаграми Cht1 = ActiveSheet.Shapes.AddChart.Chart With Cht1 End with End Sub 

Стъпка 5: Нека определим местоположение, където ще бъде нашата диаграма, тъй като не искаме тя да надвишава нашите данни, така че преди с Statement добавете следния код, където сме задали нашата диаграма, както следва.

Код:

 Sub Charts2 () Dim Cht1 като набор от диаграми Cht1 = ActiveSheet.Shapes.AddChart (отляво: = 200, ширина: = 300, отгоре: = 50, височина: = 300). Схема с край на Cht1 с край 

Стъпка 6: Сега нека да предоставим източника на данните и вида на диаграмата, която искаме да бъде, както следва.

Код:

 Sub Charts2 () Dim Cht1 като набор от диаграми Cht1 = ActiveSheet.Shapes.AddChart (отляво: = 200, ширина: = 300, отгоре: = 50, височина: = 300). ") .Range (" A1: B6 ") .ChartType = xl3DArea End с End Sub 

Стъпка 7: Стартирайте кода, като натиснете клавиша F5 или кликнете върху бутона Възпроизвеждане и вижте резултата в нашия лист, където данните са както следва.

Това се нарича вградена диаграма, тъй като диаграмата е в същия лист като данните.

Excel VBA Charts - Пример №3

Има и друг начин за създаване на диаграма в нашите работни листове с помощта на VBA. Този метод е известен като метод ChartsObject.

Стъпка 1: В същия модул нека започнем с трета подпроцедура, както следва.

Код:

 Sub Charts3 () Край Sub 

Стъпка 2: Конус като данни на работния лист въведете друг като диапазон и един като обект на диаграма, както е показано по-долу.

Код:

 Sub Charts3 () Dim WK като работен лист, Rng като диапазон, Cht3 като ChartObject End Sub 

Стъпка 3: Първо задайте работния лист там, където се намират данните, който е лист 1 в този случай.

Код:

 Sub Charts3 () Dim WK като работен лист, Rng като диапазон, Cht3 като ChartObject Set WK = работни листове ("Sheet1") край Sub 

Стъпка 4: Сега изберете обхвата от данни, който имаме, както следва.

Код:

 Sub Charts3 () Dim WK като работен лист, Rng като диапазон, Cht3 като ChartObject Set WK = Работни листове ("Sheet1") Set Rng = WK.Range ("A1: B6") End Sub 

Стъпка 5: Сега задайте обекта на диаграмата да добави диаграмата, използвайки свойството на обекта на диаграмата, както следва.

Код:

 Sub Charts3 () Dim WK като работен лист, Rng като диапазон, Cht3 като ChartObject Set WK = Работни листове ("Sheet1") Set Rng = WK.Range ("A1: B6") Задайте Cht3 = WK.ChartObjects.Add (Вляво: = ActiveCell.Left, ширина: = 400, отгоре: = ActiveCell.Top, височина: = 200) край Sub 

Стъпка 6: Сега нека да дадем източника на диаграмата, както следва.

Код:

 Sub Charts3 () Dim WK като работен лист, Rng като диапазон, Cht3 като ChartObject Set WK = Работни листове ("Sheet1") Set Rng = WK.Range ("A1: B6") Задайте Cht3 = WK.ChartObjects.Add (Вляво: = ActiveCell.Left, Ширина: = 400, Най-горе: = ActiveCell.Top, Височина: = 200) Cht3.Chart.SetSourceData Източник: = Rng End Sub 

Стъпка 7: Сега изберете типа на диаграмата, който искаме по същия начин, както следва.

Код:

 Sub Charts3 () Dim WK като работен лист, Rng като диапазон, Cht3 като ChartObject Set WK = Работни листове ("Sheet1") Set Rng = WK.Range ("A1: B6") Задайте Cht3 = WK.ChartObjects.Add (Вляво: = ActiveCell.Left, Ширина: = 400, Най-горе: = ActiveCell.Top, Височина: = 200) Cht3.Chart.SetSourceData Източник: = Rng Cht3.Chart.ChartType = xl3DColumn End Sub 

Стъпка 8: Стартирайте кода чрез натискане на клавиша F5 или като кликнете върху бутона Възпроизвеждане и вижте резултата в лист 1.

Неща, които трябва да запомните

• Можем да решим кой тип диаграми искаме да използваме, като зададем тип диаграма.
• В тип Chart, колко пъти стартираме кода, се създава нов работен лист под уникално име на диаграмата с диаграма в него.
• Обектът на диаграмата също е член на листове, в които имаме както диаграми, така и листове.
• За да използваме обекта на диаграмата, трябва да използваме оператор SET, за да зададем първо диаграмата.

Препоръчителни статии

Това е ръководство за VBA класации. Тук обсъждаме как да създадете диаграми в Excel, използвайки VBA код, заедно с практически примери и шаблон за изтегляне на excel. Можете да разгледате и другите ни предложени статии -

1. VBA PowerPoint
2. Excel комбинационни графики
3. VBA Проверка на файлове съществува
4. Графична колона на Excel