Графики в 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 () End Sub 

Шаг 2: Объявите одну переменную как объект диаграммы.

Код:

 Sub Charts1 () Dim Cht As Chart End Sub 

Шаг 3: Чтобы использовать графики, нам нужно вызвать метод add, как показано ниже.

Код:

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

Шаг 4. Чтобы использовать свойства объекта диаграммы, вставьте оператор With в код, как показано ниже.

Код:

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

Шаг 5: Теперь давайте предоставим источник для этой диаграммы, начнем с точечного оператора, и он даст нам дополнительные возможности. Введите следующий код ниже, чтобы ввести источник для диаграммы.

Код:

 Sub Charts1 () Dim Cht As Chart Set Cht = Charts.Add With Cht .SetSourceData Source: = Sheets ("Sheet1"). Range ("A1: B6") Конец с End Sub 

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

У нас есть новый лист, который называется «Диаграмма», и в нем есть наш график.

Шаг 7: Теперь давайте дадим коду тип диаграммы, которую мы хотим использовать для этого представления,

Шаг 8: Давайте выберем трехмерную область для этого примера, как показано ниже,

Код:

 Sub Charts1 () Dim Cht As Chart Set Cht = Charts.Add With Cht .SetSourceData Source: = Sheets ("Sheet1"). Range ("A1: B6") .ChartType = xl3DArea End End 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 As Chart Set Cht1 = ActiveSheet.Shapes.AddChart.Chart End Sub 

Шаг 4: Теперь остальная часть создания и проектирования диаграмм схожа, мы снова добавили оператор With в код следующим образом.

Код:

 Sub Charts2 () Dim Cht1 As Chart Set Cht1 = ActiveSheet.Shapes.AddChart.Chart с Cht1, заканчивающимся End Sub 

Шаг 5: Позвольте нам указать место, где будет находиться наша диаграмма, поскольку мы не хотим, чтобы она находилась над нашими данными, поэтому перед С помощью Statement добавьте следующий код туда, где мы установили нашу диаграмму, следующим образом.

Код:

 Sub Charts2 () Dim Cht1 As Chart1 Set Chart1 = ActiveSheet.Shapes.AddChart (Слева: = 200, Ширина: = 300, Верх: = 50, Высота: = 300). Диаграмма с Cht1 Конец с Концом Sub 

Шаг 6: Теперь давайте предоставим источник данных и тип диаграммы, которые мы хотим видеть следующим образом.

Код:

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

Шаг 7: Запустите код, нажав клавишу F5 или нажав кнопку «Воспроизвести» и посмотрите результат на нашем листе, где данные следующие.

Это называется встроенной диаграммой, поскольку диаграмма находится на том же листе, что и данные.

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

Существует также другой способ создания диаграмм в наших таблицах с использованием VBA. Этот метод известен как метод ChartsObject.

Шаг 1: В том же модуле давайте начнем с третьей подпроцедуры следующим образом.

Код:

 Sub Charts3 () End Sub 

Шаг 2: Конус как лист данных, другой тип как диапазон и один как объект диаграммы, как показано ниже.

Код:

 Sub Charts3 () Dim WK As Worksheet, Rng As Range, Cht3 As ChartObject End Sub 

Шаг 3: Сначала установите на листе, где находятся данные, в данном случае это лист 1.

Код:

 Sub Charts3 () Dim WK As Worksheet, Rng As Range, Cht3 As ChartObject Set WK = Worksheets ("Sheet1") End Sub 

Шаг 4: Теперь выберите диапазон данных у нас следующим образом.

Код:

 Sub Charts3 () Dim WK As Worksheet, Rng As Range, Cht3 As ChartObject Set WK = Worksheets ("Sheet1") Set Rng = WK.Range ("A1: B6") End Sub 

Шаг 5: Теперь установите объект диаграммы, чтобы добавить диаграмму, используя свойство объекта диаграммы следующим образом.

Код:

 Sub Charts3 () Dim WK As Worksheet, Rng As Range, Cht3 As ChartObject Set WK = Worksheets ("Sheet1") Set Rng = WK.Range ("A1: B6") Set Cht3 = WK.ChartObjects.Add (Left: = ActiveCell.Left, ширина: = 400, верх: = ActiveCell.Top, высота: = 200) End Sub 

Шаг 6: Теперь давайте приведем источник диаграммы следующим образом.

Код:

 Sub Charts3 () Dim WK As Worksheet, Rng As Range, Cht3 As ChartObject Set WK = Worksheets ("Sheet1") Set Rng = WK.Range ("A1: B6") Set Cht3 = WK.ChartObjects.Add (Left: = ActiveCell.Left, Width: = 400, Top: = ActiveCell.Top, Height: = 200) Cht3.Chart.SetSourceData Source: = Rng End Sub 

Шаг 7: Теперь выберите желаемый тип диаграммы следующим образом.

Код:

 Sub Charts3 () Dim WK As Worksheet, Rng As Range, Cht3 As ChartObject Set WK = Worksheets ("Sheet1") Set Rng = WK.Range ("A1: B6") Set Cht3 = WK.ChartObjects.Add (Left: = ActiveCell.Left, Width: = 400, Top: = ActiveCell.Top, Height: = 200) Cht3.Chart.SetSourceData Source: = 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

Категория: