PPT VBA pptシェイプからチャートデータにトリガーを送信

Question

以下のコードがフォーマットされています。データメンバでは見られないように、エラーは、おそらく438のようなエラーを取得しているので、「.Sheets（1）.Range（ 『A7』）。バリュー」

Sub DATA() 
temp = 0 
ActivePresentation.Slides(4).Shapes("Temp").TextFrame.TextRa‌​nge.Text = ActivePresentation.Slides(4).Shapes("Temp").TextFrame.TextRa‌​nge.Text +1 'counter to add +1 
With ActivePresentation.Slides(4).Shapes("Bar1").Chart.ChartData 
    .Activate 
    .Sheets(1).Range("A7").Value = ActivePresentation.Slides(4).Shapes("Temp").TextFrame.TextRa‌​nge.Text 
    .Workbook.Close 
End With 
End Sub 

Answer 1

がChartDataオブジェクトは、全体Workbookを意味しています：CellはWorkbookオブジェクトの子ではないため、オブジェクトはこのプロパティまたはメソッドをサポートしていません。

NBはまた、Cellはどちらか、それはあなたが必要とするCellsまたはRangeだ、とあなたはSheets(1)（必要に応じて変更）のように、ワークシートにそれを修飾する必要があります、Worksheetオブジェクトの子ではありません。

ので、試してみてください。理論的には

Dim val$ 
val = ActivePresentation.Slides(4).Shapes("temp").textrange.text 
With ActivePresentation.Slides(4).Shapes("Bar1").Chart.ChartData 
    '.Activate 
    ' something like this: 
    .Sheets(1).Range("A1").value = val 
    .Workbook.Close 
End With 

をあなたがChartDataオブジェクトを管理するためにWithブロックを使用することができることになっています。実際には、私は常にそれを実際にActivateしてその後それを閉じなければならなかった。 YMMV。