VBA Excel饼图：根据类别生成饼图

以下是使用 VBA 在 Excel 中根据类别生成饼图的示例代码：

Sub GeneratePieChartByCategory()

    Dim dataRange As Range
    Dim chartRange As Range
    Dim chartTitle As String
    Dim chartSheet As Worksheet
    Dim chartObject As ChartObject
    
    '设置数据范围和图表范围
    Set dataRange = ThisWorkbook.Worksheets("Sheet1").Range("A2:B6")
    Set chartRange = ThisWorkbook.Worksheets("Sheet1").Range("D2:D6")
    
    '创建新工作表并添加图表
    Set chartSheet = ThisWorkbook.Worksheets.Add
    Set chartObject = chartSheet.ChartObjects.Add(0, 0, 500, 500)
    
    '设置图表标题
    chartTitle = 'Sales by Category'
    chartObject.Chart.HasTitle = True
    chartObject.Chart.ChartTitle.Text = chartTitle
    
    '设置饼图类型
    chartObject.Chart.ChartType = xlPie
    
    '设置数据源和数据系列
    chartObject.Chart.SetSourceData Source:=dataRange
    chartObject.Chart.SeriesCollection(1).Values = chartRange
    
    '设置数据标签
    chartObject.Chart.SeriesCollection(1).ApplyDataLabels
    
    '设置图例位置
    chartObject.Chart.Legend.Position = xlLegendPositionRight
    
    '设置图表样式
    chartObject.Chart.SetElement (msoElementChartStylePieExploded)
    
End Sub

在上面的代码中，首先定义了数据范围和图表范围，然后创建了一个新的工作表和图表对象，并设置了图表标题和饼图类型。接着，将数据范围和图表范围分别设置为数据源和数据系列，并应用数据标签和图例位置。最后，设置了图表样式以使其更具可读性。

在运行此代码后，将生成一个新的工作表和一个根据类别的饼图，如下所示：

请注意，此示例仅适用于 Excel。如果要在其他应用程序中生成饼图，请查阅该应用程序的文档以获取有关如何使用 VBA 生成图表的详细说明。