2014-12-08 3 views
1

꺾은 선 그래프의 소스 ​​코드를 변경하는 매크로를 만들려고합니다.매크로를 사용하여 엑셀 차트 소스를 변경하십시오.

그래프의 이름이다 Tot_Failures, 그래프 표시 시트의 이름 : Test_Results 그래프로부터 정보를 끌어 필요한 시트의 이름 : CycleNumFailures

코드는 다음과 같습니다 나는 7 호선의 많은 변화를 시도했다

Dim rangeText As String 
rangeText = CStr("B1:B" & biggestCycleNum) 

Dim chartSheet As Worksheet 
Set chartSheet = Sheets("Test_Results") 
chartSheet.ChartObjects("Tot_Failures").Activate 
ActiveChart.SetSourceData Source:=Sheets("CycleNumFailures").Range(rangeText) 

(whic h는 실패한 곳이다).

ActiveChart.SetSourceData Source:=Sheets("CycleNumFailures").Range("B1:B" & biggestCycleNum) 

chartSheet.ChartObjects("Tot_Failures").SetSourceData Source:=Sheets("CycleNumFailures").Range("B1:B" & biggestCycleNum) 

오류 메시지는 다음과 같습니다

런타임 오류 '2147417848 (80010108)': 개체 '_Worksheet'의

실패 방법 '범위'

도와주세요. 감사합니다

+0

largestCycleNum의 값을 확인하십시오. –

+0

나는 그 문자열을 검사하기 위해 디버거 모드에서 실행했다 - 그것은 완벽하게 정확하다. – GEpi

답변

1

대신

chartSheet.ChartObjects ("Tot_Failures") SetSourceData 출처 :. =

chartSheet.ChartObjects 시도 ("Tot_Failures")를 Chart.SetSourceData 출처 :. =

예를 들어 보았을 때 효과가있었습니다.

관련 문제