(차트생성)우클릭 이벤트

Sub chart01()

Dim rngD As Range

Dim cht As Object 'object: 도형, 차트 등의 객체를 받는 변수

Set rngD = Selection 'selection: 이미 선택한 범위(마우스로 영역을 지정한 범위)

Set cht = ActiveSheet.Shapes.AddChart2 '차트를 삽입하는 구문

cht.Chart.SetSourceData Source:=rngD

End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

If Target.Count > 1 Then '(차트를 만들기 위해)범위로 선택한다.

If Target.Cells(1, 1) <> "" Then '선택한 영역의 첫번째 셀(타겟)이 공백이 아니다.

'영역 중 공백이 하나도 없는지 확인하려면 for문 사용

Call chart01 'call: 다른 프로시져를 호출할때 사용(여기에서는 앞에서 만든 sub chart01())

Cancel = True '마우스 우클릭 했을 때 (원래)나오는 팝업창을 취소(나오지 않도록)

End If

End If

End Sub

[과제] 차트가 있을 때 빈 영역을 우클릭하면 시트에 있는 모든 차트를 지워라.