OLEFormat（未知成员）：PowerPoint中的无效请求

我使用Belisarius的这个特殊代码：

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.WorkSheets(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 

我已经在PowerPoint 2010中使用插入菜单embedded了一个折线图（能够更改Excel中的值）。我收到一个错误，说OLEFormat（未知成员）：无效请求。 我知道这已经为那里的人工作，但显然我所插入的不是一个对象。 为什么我得到这个错误？

Answer 1

访问基础的Excel工作表是一个棘手的问题 – 尝试使用这种方法

  Sub Test() Dim myChart As Chart Dim myChartData As ChartData Dim myWorkBook As Object Dim myWorkSheet As Object Set myChart = ActivePresentation.Slides(1).Shapes(1).Chart Set myChartData = myChart.ChartData myChartData.Activate Set myWorkBook = myChartData.Workbook Set myWorkSheet = myWorkBook.Worksheets(1) With myWorkSheet .Range("A1").Value = .Range("A1").Value + 1 .Range("A2").Value = .Range("A2").Value - 1 End With myWorkBook.Close Set myWorkBook = Nothing End Sub