Come creare un grafico a torta in vba (con esempio)

È possibile utilizzare la seguente sintassi di base per creare un grafico a torta in Excel utilizzando 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

Questa particolare macro chiederà all’utente un intervallo di input e quindi genererà automaticamente un grafico a torta utilizzando l’intervallo di input e lo inserirà nel foglio chiamato Foglio1 con l’angolo in alto a sinistra del grafico situato nella cella attualmente attiva.

L’esempio seguente mostra come utilizzare questa macro nella pratica.

Esempio: come creare un grafico a torta in VBA

Supponiamo di avere il seguente set di dati in Excel che contiene informazioni sui punti segnati da vari giocatori di basket:

Diciamo che vogliamo utilizzare VBA per generare un grafico a torta utilizzando questo set di dati.

Per fare ciò possiamo creare la seguente macro:

 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

Per eseguire questa macro, possiamo fare clic sulla scheda Sviluppatore lungo la barra multifunzione superiore in Excel e quindi fare clic su Macro .

Possiamo quindi fare clic su quello etichettato CreatePieChart, quindi fare clic su Esegui :

Dopo aver fatto clic su Esegui , ci verrà richiesto un intervallo di input per il nostro grafico a barre:

Digiteremo A1:B7 , quindi premere OK .

Il seguente grafico a torta verrà creato e visualizzato automaticamente con l’angolo in alto a sinistra del grafico situato nella cella attualmente attiva, che risulta essere la cella D2 :

Nota : è possibile modificare i valori degli argomenti Larghezza e Altezza nella funzione ChartObjects.Add() per regolare rispettivamente la larghezza e l’altezza del grafico a torta.

Risorse addizionali

I seguenti tutorial spiegano come eseguire altre attività comuni in VBA:

Come creare un grafico a barre in VBA
Come arrotondare i valori in VBA
Come arrotondare i valori in VBA