Access 2007 VBA를 사용하여 피벗 차트 만들기

Question

확인 인터넷에서 VBA를 사용하여 피벗 차트를 만드는 방법에 대한 설명이나 코드 예제를 찾을 수있는 좋은 기사는 절대 없습니다. 양식에서 사용자 선택에 따라 다른 결과를 표시하려면 피벗 차트가 필요하기 때문에 필요합니다. 엑셀에는 몇 가지가 있지만 Access에서는 구문이 다릅니다. 나는 이것이 불충분 한 질문이라는 것을 알고 있지만, 누군가 VBA에서 피벗 차트를 만드는 방법에 대한 예제를 가지고 있다면 정말 도움이 될 것입니다.

Answer 1

약 3 일간 검색을 한 후에 나는 그것을 발견했다고 생각합니다. 아무도 정말 신경 쓰지 않는다. VBA의 엄청난 공포에 대해 6 가지 견해가있다. 어쨌든, MSDN은 Access가 아닌 "Office XP"아래에 숨겨져있었습니다.

http://msdn.microsoft.com/en-us/library/aa662945.aspx#

Answer 2

은 내가 사용자 선택 컨트롤과 하위 폼으로 pivotform이 또 다른 형태에 액세스 2007에서 피벗 차트 양식을 작성했습니다. 그런 다음 기본 폼에서 이와 같은 코드를 사용합니다. 개체 모델은 OWC11 (Office Web Components 11)과 동일합니다.

Private Function DisplayChart() 

    With mysubform.Form.ChartSpace 
    .Clear 
    .AllowFiltering = True 
    .HasChartSpaceTitle = True 
    .ChartSpaceTitle.Caption = "test" 
    .DisplayFieldButtons = False 
    .DisplayToolbar = False 

    .ConnectionString = ... 
    .CommandText = "SELECT rSeries, rCategory, rDate, rValue " & _ 
     "FROM myTable" 

    .Charts(0).Type = chChartTypePie 

    .SetData chDimSeriesNames, chDataBound, "rSeries" 
    .SetData chDimCategories, chDataBound, "rCategory" 
    .SetData chDimValues, chDataBound, "rValue" 

    .HasChartSpaceLegend = True 

    End With 

End Function 

상수

이 OWC11

C로부터 유도 될 수있다 : \ 프로그램 파일 \ 공용 Files \ Microsoft Shared \ 웹 구성 요소는 \ 11 \ OWC11.DLL

당신은 상단에 그들을 필요 기준 치수. 이 단계에서는 액세스 피벗 차트에서 추출하는 방법을 모르겠습니다. OWC11에 대한 참조를 만들고 하위 폼 ChartSpace를 OWC11.ChartSpace로 선언 된 변수로 설정합니다. 코드를 작성한 후 'Object'유형으로 변경하고 후기 바인딩 (및 다시 테스트)에 대한 참조를 제거하십시오. 이렇게하면 배포 할 때 64 비트 시스템에서 조회가 떨어지지 않습니다.

Private Enum ChartConstants 
    chDimSeriesNames = 0 
    chDimCategories = 1 
    chDimValues = 2 
    chDataBound = 0 
    chAxisPositionValue = -8 
    chAxisPositionCategory = -7 
    chChartTypePie = 18 
End Enum 

피벗 차트 속성 폼, 필드 목록 및 놓기 영역에 대한 액세스 권한을 사용자에게 부여 할 수 있습니다. 또는 차트를 마우스 오른쪽 버튼으로 클릭하여 해당 차트를 볼 수도 있습니다.

(참고 -이 아직도 내가 어떤 잡았다의를 찾으면 나를 이렇게 나는이 대답을 업데이트하기 위해 노력할 것입니다에 대한 새로운 발견이다.)

는