在PowerPoint中编辑embedded的对象

我在PowerPoint幻灯片中embedded了一个Excel工作簿。 我也有一个用户表单，我希望用户input信息，我想采取这些信息，然后编辑与相关信息的Excel表。

我不知道如何访问PowerPoint中的Excel表，但我可以改变单元格的值。

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 

启发在这个代码