OLEFormat(未知成员):PowerPoint中的请求无效

Question

我正在使用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中使用插入菜单嵌入了一个折线图（可以在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