Графіки VBA - Як створити графіки в Excel за допомогою коду VBA?

• Графіки в Excel VBA

Графіки в Excel VBA

Візуалізація дуже важлива в будь-яких даних. У програмі excel, коли ми представляємо дані у таблицях та поворотах, іншому користувачеві може бути важко зрозуміти основний сценарій із цих даних. Отже, у відмінній формі, ми маємо діаграми для представлення наших даних. Графіки - це візуальне зображення даних, присутніх у рядках та стовпцях аркуша excel. Тепер ми всі знаємо, як вставити діаграму в робочий лист excel. У цій темі ми дізнаємось про використання графіків у VBA. Це так само просто, як ми використовуємо графіки в excel. Зараз, як у робочому аркуші, де у нас є різні типи діаграм, щоб вибрати подібне, у нас є всі діаграми в VBA також як об'єкт. Все, що нам потрібно зробити, - це викликати цей об’єкт для того, щоб використовувати його. Ми можемо робити схеми з VBA на тому ж робочому аркуші або в окремому аркуші діаграми. Однак найдоцільніше використовувати діаграми на окремому аркуші, щоб уникнути плутанини.

Тепер, які діаграми в VBA? Графіки - прості об'єкти в VBA. Ми можемо скласти два типи діаграм у VBA. Один відомий як лист діаграми, а інший відомий як вбудовані діаграми. На аркуші діаграми VBA створює новий робочий аркуш для діаграми. Ми надаємо довідкові дані, які є ще одним робочим аркушем як вихідні дані. Тепер вбудовані діаграми - це ті діаграми, які є в одному робочому аркуші даних. Тепер кодування цих двох типів діаграм трохи відрізняється одне від одного, про що ми дізнаємося в цій темі. Для використання властивостей діаграми в VBA ми використовуємо символ крапки (.) Як IntelliSense. Тепер нам потрібно пам’ятати одне, що є різні типи діаграм в excel. Якщо ми не надаємо для нашого коду тип діаграми, VBA автоматично робить графік стовпців для нас за замовчуванням. Очевидно, ми можемо змінити це за допомогою декількох рядків коду.

Як створити графіки в Excel VBA?

Тепер давайте навчимося робити схеми в Excel VBA за допомогою декількох прикладів.

Ви можете завантажити цей шаблон Excel Chats Excel тут - Шаблон VBA Charts Excel

Для всіх прикладів ми розглянемо одну з даних, яка міститься в аркуші 1 наступним чином,

Діаграми VBA Excel - приклад №1

Спочатку давайте навчимося вставляти графік у VBA, для цього виконайте наступні кроки:

Крок 1: Почніть з підпроцедури наступним чином.

Код:

 Sub Charts1 () Кінець Sub 

Крок 2: Оголосіть одну змінну як об’єкт діаграми.

Код:

 Sub Charts1 () Dim Cht як кінець діаграми Sub 

Крок 3: Для використання діаграм нам потрібно викликати метод додавання, як показано нижче.

Код:

 Sub Charts1 () Dim Cht як набір діаграм Cht = Charts.Add End Sub 

Крок 4: Для використання властивостей об'єкта діаграми вставте в код код, як показано нижче.

Код:

 Sub Charts1 () Dim Cht як набір діаграм Cht = Charts.Dad With Cht End with End Sub 

Крок 5: Тепер давайте надати джерело цієї діаграми, почніть з крапкового оператора, і це дасть нам подальші варіанти. Напишіть наступний код нижче, щоб ввести джерело для діаграми.

Код:

 Sub Charts1 () Dim Cht As Set Chart Cht = Charts.Add With Cht .SetSourceData Джерело: = Sheets ("Sheet1"). Діапазон ("A1: B6") Закінчується кінцем Sub 

Крок 6: Тепер пам’ятайте, що ми не надали жодного типу діаграми, спочатку давайте запустимо вищевказаний код, натиснувши клавішу F5 і подивимось, який тип діаграми буде вставлений.

У нас створений новий аркуш, який називається Chart, і в ньому є наша діаграма.

Крок 7: Тепер давайте коду тип діаграми, який ми хочемо використовувати для цього представлення,

Крок 8: Виберіть для цього прикладу 3D-область, як показано нижче,

Код:

 Sub Charts1 () Dim Cht As Set Chart Cht = Charts.Add With Cht .SetSourceData Джерело: = Sheets ("Sheet1"). Діапазон ("A1: B6") .ChartType = xl3DArea End with End Sub 

Крок 9: Запустіть код натисканням клавіші F5 або натисканням на кнопку Відтворити і перевірте тип діаграми на робочому аркуші.

Тепер пам’ятайте щоразу, коли ми запускаємо код, він створює для нас новий аркуш діаграми. Це також відомо як аркуш діаграми, оскільки він створює діаграми в іншому аркуші.

Діаграми VBA Excel - приклад №2

Тепер давайте зробимо вбудовану діаграму, що означає графік на аркуші вихідних даних. Для цього виконайте наведені нижче кроки для створення діаграми в Excel VBA.

Крок 1: У цьому ж модулі запустіть інший підпроцедур наступним чином.

 Код: Sub Charts2 () Кінець Sub 

Крок 2: Знову оголосимо змінну як тип діаграми наступним чином.

Код:

 Sub Charts2 () Dim Cht1 як End End Chart Sub 

Крок 3: Різниця вбудованих діаграм полягає в тому, що ми називаємо робочий аркуш, який містить дані як активний аркуш, наступним кодом, показаним нижче.

Код:

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

Крок 4: Тепер інша частина складання та проектування діаграм схожа, ми знову поміщаємо З заявою в код наступним чином.

Код:

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

Крок 5: Давайте вкажемо місце, де буде розміщуватися наша діаграма, як ми не хочемо, щоб вона була над нашими даними, тому перед випискою додайте наступний код до місця, де ми встановили свою схему наступним чином.

Код:

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

Крок 6: Тепер надамо джерело даних та тип діаграми, які ми бажаємо, наступним чином.

Код:

 Sub Charts2 () Dim Cht1 як набір діаграм Cht1 = ActiveSheet.Shapes.AddChart (зліва: = 200, ширина: = 300, верх: = 50, висота: = 300). Схема з Cht1 .SetSourceData Джерело: = Sheets ("Sheet1" ") .Range (" A1: B6 ") .ChartType = xl3DArea End with End Sub 

Крок 7: Запустіть код, натиснувши клавішу F5 або натиснувши кнопку «Відтворити» і подивіться результат на нашому аркуші, де дані наведені нижче.

Це називається вбудованою діаграмою, оскільки діаграма знаходиться на тому ж аркуші, що і дані.

Діаграми VBA Excel - приклад №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 WK = Листи ("Sheet1") Кінець Sub 

Крок 4: Тепер виберіть діапазон даних, які ми маємо, наступним чином.

Код:

 Sub Charts3 () Dim WK як робочий лист, Rng як діапазон, Cht3 як набір ChartObject WK = Робочі таблиці ("Sheet1") Встановити Rng = WK.Range ("A1: B6") Кінець Sub 

Крок 5: Тепер встановіть об'єкт діаграми, щоб додати діаграму, використовуючи властивість об'єкта діаграми, як описано нижче.

Код:

 Sub Charts3 () Dim WK As Workheet, Rng As Range, Cht3 As ChartObject Set WK = Workheets ("Sheet1") Set Rng = WK.Range ("A1: B6") Встановити Cht3 = WK.ChartObjects.Add (зліва: = ActiveCell.Left, Ширина: = 400, Верх: = ActiveCell.Top, Висота: = 200) Кінець 

Крок 6: Тепер подамо джерело до діаграми наступним чином.

Код:

 Sub Charts3 () Dim WK As Workheet, Rng As Range, Cht3 As ChartObject Set WK = Workheets ("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 As Workheet, Rng As Range, Cht3 As ChartObject Set WK = Workheets ("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