Como criar um gráfico de pizza em vba (com exemplo)

Você pode usar a seguinte sintaxe básica para criar um gráfico de pizza no Excel usando 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

Esta macro específica solicitará ao usuário um intervalo de entrada e, em seguida, gerará automaticamente um gráfico de pizza usando o intervalo de entrada e o inserirá na planilha chamada Planilha1 com o canto superior esquerdo do gráfico localizado na célula atualmente ativa.

O exemplo a seguir mostra como usar esta macro na prática.

Exemplo: como criar um gráfico de pizza em VBA

Suponha que temos o seguinte conjunto de dados no Excel que contém informações sobre os pontos marcados por vários jogadores de basquete:

Digamos que queremos usar o VBA para gerar um gráfico de pizza usando este conjunto de dados.

Podemos criar a seguinte macro para fazer isso:

 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

Para executar esta macro, podemos clicar na guia Desenvolvedor na faixa superior do Excel e clicar em Macros .

Podemos então clicar naquele rotulado CreatePieChart e clicar em Run :

Assim que clicarmos em Executar , seremos solicitados a fornecer um intervalo de entrada para nosso gráfico de barras:

Digitaremos A1:B7 e pressione OK .

O seguinte gráfico de pizza será criado e exibido automaticamente com o canto superior esquerdo do gráfico localizado na célula atualmente ativa, que é a célula D2 :

Nota : Você pode alterar os valores dos argumentos Width e Height na função ChartObjects.Add() para ajustar a largura e a altura do gráfico de pizza, respectivamente.

Recursos adicionais

Os tutoriais a seguir explicam como realizar outras tarefas comuns em VBA:

Como criar um gráfico de barras em VBA
Como arredondar valores em VBA
Como arredondar valores em VBA