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

당신은 아마 438과 같은 오류가 있어요 그래서 ChartData 개체가 전체 Workbook을 말합니다에서 찾을 수 없음으로 오류가 온다 : Cell은 Workbook 개체의 자식이 아니기 때문에 개체가이 속성 또는 메서드를 지원하지 않습니다.

NB 또한, Cell 중 하나, 당신이 필요로하는 Cells 또는 Range, 그리고 당신은 (필요에 따라 수정) Sheets(1) 같은 워크 시트에 그 자격을해야합니다, Worksheet 객체의 자식이 아니다.

그래서, 시도 : 당신이 ChartData 객체를 관리하는 With 블록을 사용할 수 있도록되어있어 이론적으로

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 

. 실제로는 이 항상이고 실제로는 Activate이되어야하고 이후에 닫아야합니다. YMMV.