PPT VBA從ppt形狀發送觸發器到圖表數據

Question

已格式化代碼，如下所示。錯誤之際，數據成員沒有出現在「.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，所以你可能得到類似438的錯誤發現：對象不支持此屬性或方法，因爲Cell不是Workbook對象的子對象。

NB也Cell不是Worksheet對象的孩子，或者說，它是Cells或Range，你需要的，你需要有資格的是一個工作表，像Sheets(1)（根據需要進行修改）。

所以，儘量：

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 

理論上你應該能夠使用With塊管理ChartData對象。在實踐中，我有總是不得不實際Activate它，隨後關閉它。因人而異。