옵션 버튼으로 분기별 실적을 강조하는 차트 만들기

분기별 강조 차트 동작 살펴보기

1월부터 12월까지의 월별 실적을 4개의 분기 계열로 나누어 차트에 표시했습니다. 처음에는 모든 분기가 동일하게 표시됩니다.

차트 아래의 옵션 버튼 중 하나를 클릭하면, 선택한 분기의 막대만 선명하게(투명도 0%) 표시되고 나머지 분기는 흐리게(투명도 90%) 바뀌면서 차트 제목도 "N분기 실적"으로 바뀝니다. 예를 들어 '2분기 실적' 옵션 버튼을 클릭하면 다음과 같이 표시됩니다.

옵션 버튼 이벤트 코드 작성하기

(1) 워크시트에 옵션 버튼(양식 컨트롤 또는 ActiveX 컨트롤) 4개를 삽입하고, 각각 OptionButton1~OptionButton4라는 이름을 지정합니다.

(2) 시트 개체(Sheet1)의 코드 창에 다음과 같이 각 옵션 버튼의 Click 이벤트 프로시저를 작성합니다. 옵션 버튼을 클릭하면 번호를 인수로 하여 공통 프로시저 ShowQuarterly를 호출합니다.

Private Sub OptionButton1_Click()
    ShowQuarterly 1
End Sub

Private Sub OptionButton2_Click()
    ShowQuarterly 2
End Sub

Private Sub OptionButton3_Click()
    ShowQuarterly 3
End Sub

Private Sub OptionButton4_Click()
    ShowQuarterly 4
End Sub

ShowQuarterly 프로시저 작성하기

(3) 표준 모듈(Module1)에 다음 코드를 입력합니다. 인수로 전달된 분기 번호(intX)에 따라 Select Case 문으로 분기하여, 해당 분기 계열의 투명도(Format.Fill.Transparency)는 0으로, 나머지 계열은 0.9로 설정하고 차트 제목을 바꿉니다.

Sub ShowQuarterly(intX)

    Dim chtChart As Chart
    Dim objSeries As Series

    ActiveSheet.ChartObjects("MyChart").Activate
    Set chtChart = ActiveChart

    For Each objSeries In chtChart.SeriesCollection
        Select Case intX
            Case 1
                With ActiveChart
                    .FullSeriesCollection(1).Format.Fill.Transparency = 0
                    .FullSeriesCollection(2).Format.Fill.Transparency = 0.9
                    .FullSeriesCollection(3).Format.Fill.Transparency = 0.9
                    .FullSeriesCollection(4).Format.Fill.Transparency = 0.9
                    .ChartTitle.Text = "1분기 실적"
                End With
            Case 2
                With ActiveChart
                    .FullSeriesCollection(1).Format.Fill.Transparency = 0.9
                    .FullSeriesCollection(2).Format.Fill.Transparency = 0
                    .FullSeriesCollection(3).Format.Fill.Transparency = 0.9
                    .FullSeriesCollection(4).Format.Fill.Transparency = 0.9
                    .ChartTitle.Text = "2분기 실적"
                End With
            Case 3
                With ActiveChart
                    .FullSeriesCollection(1).Format.Fill.Transparency = 0.9
                    .FullSeriesCollection(2).Format.Fill.Transparency = 0.9
                    .FullSeriesCollection(3).Format.Fill.Transparency = 0
                    .FullSeriesCollection(4).Format.Fill.Transparency = 0.9
                    .ChartTitle.Text = "3분기 실적"
                End With
            Case Else
                With ActiveChart
                    .FullSeriesCollection(1).Format.Fill.Transparency = 0.9
                    .FullSeriesCollection(2).Format.Fill.Transparency = 0.9
                    .FullSeriesCollection(3).Format.Fill.Transparency = 0.9
                    .FullSeriesCollection(4).Format.Fill.Transparency = 0
                    .ChartTitle.Text = "4분기 실적"
                End With
        End Select
    Next objSeries

    Range("D14").Select

End Sub

정리 — 분기별 강조 차트 동작 방식

항목	내용
트리거	옵션 버튼(OptionButton1~4)의 Click 이벤트
공통 프로시저	ShowQuarterly(intX) — 선택된 분기 번호를 인수로 전달
강조 방식	선택 계열 Transparency = 0, 나머지 계열 Transparency = 0.9
부가 효과	ChartTitle.Text를 "N분기 실적"으로 변경

자주 묻는 질문 (FAQ)

마치며

계열의 투명도만 잘 활용해도 클릭 한 번으로 원하는 데이터를 강조해서 보여주는 인터랙티브한 차트를 만들 수 있습니다. 보고서나 대시보드에 응용해 보세요!
VBA에 대한 기초 지식을 공부하실 분은 아이엑셀러 사이트 정문 왼쪽에 있는 'VBA 강좌 - VBA 입문강좌'를 읽어보시면 이해가 빠릅니다.