Редактирование встроенных объектов в PowerPoint

Question

У меня есть презентация PowerPoint с книгой Excel, встроенной в один из слайдов.У меня также есть пользовательская форма, в которую я хочу, чтобы пользователь вводил информацию, я хочу взять эту информацию и затем отредактировать таблицу Excel с соответствующей информацией.

Я не знаю, как получить доступ к листу Excel в PowerPoint, хотя я могу изменить значения ячеек.

Answer 1

Sub a()

Dim oSl As PowerPoint.Slide
Dim oSh As PowerPoint.Shape

Set oSl = ActivePresentation.Slides(1)

Set oSh = oSl.Shapes(1)

With oSh.OLEFormat.Object.Sheets(1)
    .Range("A1").Value = .Range("A1").Value + 1
    .Range("A2").Value = .Range("A2").Value - 1
End With

Set oSl = Nothing
Set oSh = Nothing

End Sub  

Вдохновленный этот код