Keysight VEE를 이용한 엑셀 VBA 차트 생성 코드

엑셀 VBA로 차트를 만들어 주는 절차이다. 자주 쓰는 기능인데 자꾸 잊어버려서 블로그에 남겨둔다.

아래 코드는 Keysight VEE의 문법에 맞게 작성된 것이므로, 사용하는 언어의 문법에 맞게 수정되어야 한다.

1. 차트를 만들어준다.

xlApp.ActiveSheet.Shapes.AddChart().Select();

xlApp.ActiveChart.ChartType = xlLine;

2. 차트를 생성되는 도중 Default 로 계열이 추가된 경우가 있다. 이 경우 원치않는 방법으로 생성될 수 있으므로 삭제해 준다.

ActiveChart의 SeriesCollection.Count 가 0 이 될 때 까지 아래 구문을 반복하여 삭제한다.

xlApp.ActiveChart.SeriesCollection(1).Delete()

3. 계열을 추가해 준다.

xlApp.ActiveChart.SeriesCollection.NewSeries();

4. 계열의 이름을 지정한다. (셀의 값 또는 상수로도 가능하다)

xlApp.ActiveChart.SeriesCollection(1).Name = "=Sheet1!$"+column_char+"$1";

5. 계열의 값을 지정한다.

xlApp.ActiveChart.SeriesCollection(1).Values = "=Sheet1!$"+column_char+"$2:$" + column_char + "$" + (1+ (totSize(table_value) / totSize(table_header)));

6. 계열의 X축 값을 지정한다.

xlApp.ActiveChart.SeriesCollection(1).XValues = "=Sheet1!$A$2:$A$" + (1+ (totSize(table_value) / totSize(table_header)));