아래 우리는 엑셀 VBA에서 두 개의 프로그램을 볼 것이다. 하나 개의 프로그램은 시트의 모든 차트를 통해 루프 및 파이 차트에 각 차트를 변경합니다.

다른 프로그램은 첫 번째 차트의 일부 속성을 변경합니다.

일부 차트 만들기 (또는 Excel 파일을 다운로드) 1.

Programming Charts in Excel VBA

워크 시트에 명령 단추를 놓고 다음 코드 줄을 추가

  1. 먼저, 우리는 ChartObject 개체를 선언해야합니다. ChartObject 개체 차트 개체 용기로서 작용한다. 우리는 ChartObject의 CHT를 호출하지만 당신은 어떤 이름을 사용할 수 있습니다.

Dim cht As ChartObject

  1. ChartObjects 수집 한 장에 모든 포함 된 차트가 포함되어 있습니다. 우리는 첫 번째 시트의 모든 차트를 통해 루프합니다. 각 다음 루프를 들어 다음을 추가합니다.

For Each cht In Worksheets(1).ChartObjects

Next cht

  1. 차트 개체는 통합 문서에서 차트를 나타냅니다. 파이 차트에 각 차트를 변경하려면 각 다음 루프를 들어, 다음 코드 줄을 추가합니다.

cht.Chart.ChartType = xlPie

참고 : 다시, CHT는 차트 개체의 컨테이너 역할을합니다. 우리는 차트 유형을 변경하려면 그래프 유형 속성을 사용합니다. 우리는 파이 차트에 각 차트를 변경하려면 내장 상수 xlPie를 사용합니다.

당신이 시트에 명령 단추를 클릭 할 때 결과 4 :

Programming Charts Result

이제 우리는 첫 번째 차트의 일부 속성을 변경합니다.

다른 명령 단추를 배치

워크 시트에하면 다음 코드 줄을 추가

  1. ChartObjects 수집 한 장에 모든 포함 된 차트가 포함되어 있습니다. 첫 번째 차트를 활성화하기 위해 다음 코드 줄을 추가

Worksheets(1).ChartObjects(1).Activate

우리는 지금을 ActiveChart로이 차트를 참조 할 수 있습니다.

차트 제목을 변경하려면 다음 코드 줄을 추가 6..

ActiveChart.ChartTitle.Text = "Sales Report"

차트의 맨 아래에 범례를 이동하려면 다음 코드 줄을 추가 7. :

ActiveChart.Legend.Position = xlBottom

당신이 시트에 명령 단추를 클릭 할 때 결과 8 :

Programming Charts Result