OLEFormat（不明なメンバー）：私はベリサリウスによって、この特定のコードを使用しています

Question

PowerPointの不正な要求：私は[挿入]メニューを使用して（Excelで値を変更する機能を持つ）折れ線グラフを埋め込んだ

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

をこのアプローチを試してみてください