我之前也踩过这个坑——PPT插入饼图时会自动绑定一个固定的默认数据范围，当数据源工作表有4行及以上数据时，这个默认范围会“顽固”地限制自定义数据源的生效。核心解决思路是先彻底清除PPT自动生成的默认数据系列，再重新绑定你动态计算的数据源范围，下面是具体的实现方案：

关键步骤说明 #

1. 动态计算数据源范围：先定位数据的最后一行，确保不管数据有多少行都能准确覆盖；
2. 清除默认系列：PPT插入饼图时会自动创建一个默认系列，必须先删除它，否则后续自定义范围会被覆盖；
3. 重新绑定动态数据源：手动添加新的数据系列，指定动态计算的X值（类别）和Y值（数值）范围。

完整VBA代码示例 #

Sub AddDynamicPieChart()
    Dim pptApp As PowerPoint.Application
    Dim pptPres As PowerPoint.Presentation
    Dim pptSlide As PowerPoint.Slide
    Dim pptChart As PowerPoint.Chart
    Dim xlWB As Excel.Workbook
    Dim xlWS As Excel.Worksheet
    Dim lastRow As Long
    
    ' 获取当前活跃的PPT演示文稿和目标幻灯片（这里选第1张，可按需修改）
    Set pptApp = PowerPoint.Application
    Set pptPres = pptApp.ActivePresentation
    Set pptSlide = pptPres.Slides(1)
    
    ' 关联你的自有Excel工作簿（如果未打开，替换为Workbooks.Open("你的文件路径")）
    Set xlWB = Excel.Workbooks("YourDataSource.xlsx")
    Set xlWS = xlWB.Worksheets("DataSheet") ' 替换为你的数据源工作表名称
    
    ' 计算数据的最后一行（假设类别在A列，数值在B列，从第1行开始）
    lastRow = xlWS.Cells(xlWS.Rows.Count, "A").End(xlUp).Row
    
    ' 在幻灯片上插入饼图（样式和类型可按需调整）
    Set pptChart = pptSlide.Shapes.AddChart2(Style:=262, XlChartType:=xlPie).Chart
    
    ' 核心操作：删除PPT自动生成的默认数据系列
    Do While pptChart.SeriesCollection.Count > 0
        pptChart.SeriesCollection(1).Delete
    Loop
    
    ' 手动添加动态数据源的系列
    With pptChart.SeriesCollection.NewSeries
        .Name = "饼图数据" ' 系列名称，可自定义
        ' 绑定数值范围（B列第1行到最后一行）
        .Values = "='" & xlWB.Name & "'!" & xlWS.Range("B1:B" & lastRow).Address
        ' 绑定类别范围（A列第1行到最后一行）
        .XValues = "='" & xlWB.Name & "'!" & xlWS.Range("A1:A" & lastRow).Address
    End With
    
    ' 可选：调整图表标题等外观属性
    pptChart.HasTitle = True
    pptChart.ChartTitle.Text = "动态更新的饼图"
    
    ' 释放对象，避免内存泄漏
    Set xlWS = Nothing
    Set xlWB = Nothing
    Set pptChart = Nothing
    Set pptSlide = Nothing
    Set pptPres = Nothing
    Set pptApp = Nothing
End Sub

注意事项 #

• 引用Excel对象库：在PPT的VBA编辑器中，点击「工具」→「引用」，勾选「Microsoft Excel xx.x Object Library」（xx.x对应你的Excel版本），否则代码会报错；
• 数据源路径：如果你的Excel工作簿未打开，把Set xlWB = Excel.Workbooks("YourDataSource.xlsx")替换为Set xlWB = Excel.Workbooks.Open("C:\Your\File\Path\YourDataSource.xlsx")，记得在操作完成后按需关闭工作簿；
• 数据列调整：如果你的类别和数值不在A、B列，修改代码中对应的列标识（比如把"A"改成"C"，"B"改成"D"）；
• 图表样式：AddChart2的Style参数可以按需修改，XlChartType:=xlPie也可以换成其他饼图类型（比如xlPieExploded）。

内容的提问来源于stack exchange，提问作者johannesbe_