Автоматическое редактирование встроенных данных Excel в PowerPoint 2010

Question

Я пытаюсь молча редактировать встроенные данные Excel в PowerPoint 2010. К сожалению, когда вы используете:

gChartData.Activate

Он открывает документ Excel поверх презентации.Есть ли способ активировать ChartData без открытия Excel?

Полный код:

Private Sub CommandButton1_Click()

Dim myChart As Chart
Dim gChartData As ChartData
Dim gWorkBook As Excel.Workbook
Dim gWorkSheet As Excel.Worksheet

Set myChart = ActivePresentation.Slides(1).Shapes(1).Chart
Set gChartData = myChart.ChartData

gChartData.Activate

Set gWorkBook = gChartData.Workbook

Set gWorkSheet = gWorkBook.Worksheets(1)

gWorkSheet.Range("B2").Value = 1

Set gWorkSheet = Nothing
Set gWorkBook = Nothing
Set gChartData = Nothing
Set myChart = Nothing


End Sub

Заранее спасибо.

Answer 1

Стивен

Хотя строка Activate необходима для получения доступа к базовой книге, добавление простого кода gWorkBook.Close к вашему коду (перед установкой значения Nothing) снова закроет Excel, а не оставит его сверху, как ваш текущий код.

Private Sub CommandButton1_Click()

    Dim myChart As Chart
    Dim myChartData As ChartData
    Dim gWorkBook As Excel.Workbook
    Dim gWorkSheet As Excel.Worksheet

    Set myChart = ActivePresentation.Slides(1).Shapes(1).Chart
    Set myChartData = myChart.ChartData
    myChartData.Activate

    Set gWorkBook = myChart.ChartData.Workbook
    Set gWorkSheet = gWorkBook.Worksheets(1)
    gWorkSheet.Range("B2").Value = 1

    gWorkBook.Close
    Set gWorkSheet = Nothing
    Set gWorkBook = Nothing
    Set gChartData = Nothing
    Set myChart = Nothing
End Sub