VBA 更新后 PowerPoint 2016 图表丢失数据表答案

【问题标题】：PowerPoint 2016 chart loses data sheet after VBA updateVBA 更新后 PowerPoint 2016 图表丢失数据表
【发布时间】：2016-12-15 18:08:50
【问题描述】：

使用 VBA 在 PowerpPoint 2016 中更新 Powerpoint（不是嵌入式 Excel 图表）后，当我右键单击图表并选择编辑数据时，图表不再允许编辑数据。如果我选择图表上部 rHS 上的过滤器符号，则会出现此错误。

链接文件不可用于编辑链接。点击编辑链接到下面的文件。

超链接点击后什么都不做。

这是用于更新图表的代码

For Each oSH In ActivePresentation.Slides(2).Shapes

                oSH.Chart.SeriesCollection(1).values = "Sheet1!$B$1:$B" & maxrow  ' change the series range before opening and closing the workbook object
                oSH.Chart.SeriesCollection(1).XValues = "Sheet1!$A$1:$A" & maxrow  'max number showing is 6 data points

                    With oSH.Chart.ChartData

                            'this updates the values in the datasheet
                            .Workbook.sheets(1).Range("A1:B" & lrow - 2).Value = xlWorkBook.sheets(2).Range("A3:B" & lrow).Value

                    End With

【问题讨论】：

标签： vba powerpoint

【解决方案1】：

经过几天的搜索和试验，我找到了解决问题的方法。我没有创建幻灯片或图表，发现数据在数据表的表格中。我在 Excel 工作表中编辑了数据，并将表格转换为范围。

奇怪的是，这解决了我的问题。

【讨论】：