여러 피벗 차트 SetSourcedata 오류

Question

Excel 2002의 별도 워크 시트에 자체 피벗 테이블이있는 여러 피벗 차트가 있습니다.

다음 코드로 VBA를 사용하여 이러한 차트를 생성하려고 할 때.

Set cht = Charts.Add(After:=Worksheets("Setup"))
With cht
    ' we use named ranges here
    .SetSourceData Source:=range(tblName)
    .Name = chtName

....

TBLNAME이 방금 몇 줄을 생성 한 이름의 범위 인 경우, 테이블이 하나만 생성되고 차트가 생성되지만 실행 시간 오류 1004가있는 경우 코드가 잘 실행됩니다. "PivotchArt 보고서의 소스 데이터는 변경할 수 없습니다 ..." 피벗 테이블을 생성하려고하면 차트를 차트로 설정하십시오.

삽입 -> 이름 -> 정의로 이동하여 생성 된 이름의 이름 목록이 올바른 것 같습니다.

동적 범위로 피벗 차트의 소스 데이터를 설정하는 올바른 방법은 무엇입니까?

Answer 1

이 코드는 시트 당 피벗 테이블이 하나만 있고 피벗 테이블은 셀 A1에서 시작한다고 가정합니다.

Sheets(wsName).Select
Range("A1").Select
Set cht = Charts.Add(after:=Worksheets(Worksheets.Count))
With cht
    .SetSourceData Sheets(wsName).Range("A1")
    .Name = chtName

...

또한 "Worksheets.count"를 특정 워크 시트 이름으로 변경하는 것도 해당 오류를 유발하는 것 같습니다.

Answer 2

한 번에 너무 많은 일을하려고 할 수도 있다고 생각합니다.

데이터 소스가 변경되면 피벗 차트를 사용하지 않습니다.

피벗 테이블을 사용하고 런타임에 차트를 만듭니다 (예 : 예 : 예 : 예 : 예 : 피벗 테이블의 결과 차트를 작성하십시오.