워크 시트의 차트 차트 시리즈 [이름순]

Question

포럼을 통해 검색 한 결과 내 문제에 대한 정확한 해결책을 찾을 수 없습니다. 나는 VBA와 코딩에 다소 익숙하지만 VBA 구문에 대해서는 아직 아주 익숙하다. 구문 오류가 발생했을 때 오류가 계속 발생하고 개체가 범위를 벗어났습니다. 선택 기반 동작에서 벗어나고 싶습니다. 시트에서 특정 차트를 호출하여 데이터 계열의 양을 계산합니다.

이 시점에서 나는 단지 실제로 그것을 디버깅 할 수 있었다는 사실을 좌절 시켰습니다. 나는 다양한 조합을 시도하고 아침 내내 인터넷 검색을하고 있으며, 내가 얻는 모든 것은 새롭고 다른 오류 메시지입니다. 그래서 저는 여러분 중 한 명이 제 땜장이보다 더 빠른 해결책을 가지고 있다고 생각했습니다. 어떤 도움도 도움이 될 것입니다, 감사합니다!

Dim SheetName As String 
Dim SC2 As Long 
SheetName = ActiveSheet.Name 'assign the name of the active sheet to the variable 

'Count # of series in chart to find # of loops required 
ActiveWorkbooks.Sheets(Volume CT).ChartObjects(1).Chart.SeriesCollection.Count 
'*^^^THIS IS WHERE THE ERROR OCCURS* 
'Debug.Print ThisWorkbook.Sheets("Time CT").ChartObjects(1).Chart.SeriesCollection.Count 
'Debug.Print ThisWorkbook.Sheets("Temp CT").ChartObjects(1).Chart.SeriesCollection.Count 

Answer 1

Dim SC2 As Long 

'chartobject method (chart is housed in a regular worksheet) 
SC2 = ActiveWorkbook.Sheets("Volume CT").ChartObjects(1).Chart.SeriesCollection.Count 

'if the chart is on a chart sheet: 
SC2 = ActiveWorkbook.Sheets("Volume CT").SeriesCollection.Count