Я действительно надеюсь, что вы можете помочь мне здесь. После просмотра Google / стека переполнения миллион раз, я, к счастью, наткнулся на этот старый пост.
Я пытаюсь обновить данные диаграммы, используя «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 и скопировал их в набор записей. Когда я пытаюсь обновить данные диаграммы, чтобы получить данные из набора записей, это не работает.
Конец с "
не могли бы вы помочь мне здесь?
Большое спасибо
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