Як створити секторну діаграму у vba (з прикладом)

Щоб створити секторну діаграму в Excel за допомогою VBA, можна використати такий базовий синтаксис:

 SubCreatePieChart ()

    Dim MyChart As ChartObject
    
    ' get input range from user
    Set Rng = Application.InputBox(Prompt:=" Select chart input range ", Type:=8)
    
    'create pie chart
    Set MyChart = Worksheets(" Sheet1 ").ChartObjects.Add(Left:=ActiveCell.Left, _
    Width:=400, Top:=ActiveCell.Top, Height:=300)
    
    MyChart.Chart.SetSourceDataSource:=Rng
    MyChart.Chart.ChartType = xlPie

End Sub

Цей конкретний макрос запитає у користувача діапазон введення, а потім автоматично створить кругову діаграму, використовуючи діапазон введення, і вставить її на аркуш під назвою Аркуш1 із верхнім лівим кутом діаграми, розташованим у поточній активній клітинці.

У наступному прикладі показано, як використовувати цей макрос на практиці.

Приклад: як створити секторну діаграму у VBA

Припустімо, що в Excel є такий набір даних, який містить інформацію про очки, набрані різними баскетболістами:

Припустімо, ми хочемо використовувати VBA для створення кругової діаграми за допомогою цього набору даних.

Для цього ми можемо створити такий макрос:

 SubCreatePieChart ()

    Dim MyChart As ChartObject
    
    ' get input range from user
    Set Rng = Application.InputBox(Prompt:=" Select chart input range ", Type:=8)
    
    'create pie chart
    Set MyChart = Worksheets(" Sheet1 ").ChartObjects.Add(Left:=ActiveCell.Left, _
    Width:=400, Top:=ActiveCell.Top, Height:=300)
    
    MyChart.Chart.SetSourceDataSource:=Rng
    MyChart.Chart.ChartType = xlPie

End Sub

Щоб запустити цей макрос, ми можемо клацнути вкладку «Розробник» на верхній стрічці в Excel, а потім клацнути «Макроси» .

Потім ми можемо клацнути на діаграмі CreatePieChart, а потім натиснути Run :

Після того, як ми натиснемо «Виконати» , нам буде запропоновано ввести діапазон введення для нашої гістограми:

Ми введемо A1:B7 , а потім натиснемо OK .

Наведена нижче секторна діаграма буде автоматично створена та відображена з верхнім лівим кутом діаграми, розташованим у поточній активній комірці, яка є коміркою D2 :

Примітка . Ви можете змінити значення аргументів Width і Height у функції ChartObjects.Add() , щоб налаштувати ширину та висоту секторної діаграми відповідно.

Додаткові ресурси

У наступних посібниках пояснюється, як виконувати інші типові завдання у VBA:

Як створити гістограму у VBA
Як округлити значення у VBA
Як округлити значення у VBA