Обновление данных диаграммы PowerPoint из экземпляра Excel - данные исчезают при редактировании данных

Question

Я редактирую шаблон PPT с данными из Excel, используя следующий код:

    Set shapeObject = oPPT.ActivePresentation.Slides(slideIndex).Shapes("Chart 9")
    With shapeObject.Chart.ChartData
     .Workbook.Worksheets(1).Range("B2").Value = Sheets(slideSheetName).Range("D3").Text
     .Workbook.Worksheets(1).Range("B3").Value = Sheets(slideSheetName).Range("D4").Text
     .Workbook.Worksheets(1).Range("B4").Value = Sheets(slideSheetName).Range("D5").Text
     .Workbook.Close
    End With

Когда я нажимаю Редактировать данные на диаграмме в PPT, я вижу данные, скопированные из приведенного выше. код. Но некоторые пользователи не видят данных в таблице редактирования данных, но сама диаграмма все еще содержит данные.

Кто-нибудь видел это раньше? Что это за исправление?

Answer 1

.Workbook.Worksheets(1).

Эта ссылка не кажется надежной.

Я бы попробовал что-то вроде этого:

Workbooks('NameofWB').Sheets('Sheet1') 

Так что в коде явно указано, на какую рабочую книгу ссылаются.