时间戳

首页 > 解决方案 > 使用“copyfromrecordset”更新PowerPoint中的图表数据

vba - 使用“copyfromrecordset”更新PowerPoint中的图表数据

问题描述

我真的希望你能在这里帮助我。在浏览谷歌/堆栈溢出一百万次之后，我幸运地偶然发现了这篇旧帖子。我正在尝试使用“copyfromrecordset”更新图表数据，我收到一串错误，例如“下标超出范围”等。我完全按照你上面所说的那样遵循你的逻辑，直到步骤

With chtData
    Set cTable = chtData.Workbook.Worksheets(1).ListObjects(1)
' Here, you can update the ListObject in the same ways you
' would do so in Excel, natively.

'在这篇文章中，我从 sql server 获取数据并将其复制到记录集中。当我尝试更新图表数据以从记录集中获取数据时，它不起作用。以“结束”你能帮我吗？

非常感谢

Sub ShowChartData() Dim sld As Slide 
Dim shp As Shape Dim cht As Chart Dim chtData As ChartData Dim cTable As 
ObjectSet sld = ActivePresentation.Slides(1) 
Set shp = sld.Shapes("New") 'Handle the chart
Set cht = shp.Chart 
Set chtData = cht.ChartData chtData.ActivateWith chtData Set cTable = 
chtData.Workbook, 
'sql connection (hidden)
Set Cn = New ADODB.Connection 
rst.Open StrQuery, Cn ' Dim wbs As Object 
cTable.Range("A1:B95").CopyFromRecordset rst rst.Close

标签： vbapowerpoint

解决方案

推荐阅读