VBA Code to Create Pie Chart in Excel

This code creates a pie chart using the selected range as the data source.

VBA Code:

Sub CreatePieChart()
    Dim chartSheet As Worksheet
    Dim chartObject As ChartObject
    Dim dataRange As Range
    
    Set chartSheet = Worksheets.Add
    Set chartObject = chartSheet.ChartObjects.Add(Left:=10, Width:=300, Top:=10, Height:=300)
    Set dataRange = Selection
    
    With chartObject.Chart
        .ChartType = xlPie
        .SetSourceData dataRange
    End With
End Sub

Check All VBA Codes

Join Our Telegram Group techguruplus telegram group Join Our WhatsApp Group techguruplus whatsapp group

Leave a Comment