Excel VBA一键生成饼图教程

Sub 创建市场份额饼图()    Dim ws As Worksheet    Dim chartObj As chartObject    Dim chart As chart    Dim dataRange As Range    Dim lastRow As Long    ' 设置当前工作表    Set ws = ThisWorkbook.Worksheets("Sheet2")    ' 确定数据范围    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row    Set dataRange = ws.Range("A1:B" & lastRow)    ' 删除可能已存在的图表    For Each chartObj In ws.ChartObjects        chartObj.Delete    Next chartObj    ' 创建新的饼图    Set chartObj = ws.ChartObjects.Add(Left:=250, Top:=50, Width:=500, Height:=400)    Set chart = chartObj.chart    With chart        ' 设置图表类型为饼图        .ChartType = xlPie        ' 设置数据源        .SetSourceData Source:=dataRange        ' 设置图表标题        .HasTitle = True        .chartTitle.Text = "市场份额分布图"        .chartTitle.Font.Size = 14        .chartTitle.Font.Bold = True        ' 显示数据标签        .ApplyDataLabels        With .SeriesCollection(1).DataLabels            .ShowCategoryName = True            .ShowPercentage = True            .ShowValue = False            .Separator = vbLf & " "            .Font.Size = 11            .Position = xlLabelPositionOutsideEnd        End With        ' 设置图例        .HasLegend = True        .Legend.Position = xlLegendPositionRight        .Legend.Font.Size = 11        ' 设置饼图分离效果（可选）        .SeriesCollection(1).Explosion = 5        ' 美化图表外观        .ChartArea.Format.Fill.ForeColor.RGB = RGB(240, 240, 240)        .PlotArea.Format.Fill.ForeColor.RGB = RGB(255, 255, 255)        .ChartArea.Format.Line.Visible = msoFalse        .PlotArea.Format.Line.Visible = msoFalse    End With    ' 提示用户    MsgBox "市场份额饼图已成功创建!", vbInformation, "完成"End Sub

#VBA常用代码