엑셀 vba 범위 선택 후 바로 차트 만들기 매크로 VBA, 마우스 우클릭

엑사남 14강 Study

엑셀 범위 선택 후 바로 차트 만들기 매크로 VBA, 마우스 우클릭

 

엑셀 파일 다운로드

엑셀 범위 선택후 바로 차트 만들기 매크로.xlsm

0.10MB

Sub Chart01() Dim rngD    As Range Dim Cht     As 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             '첫셀만 빈칸인지 간단히 확인함.         Call Chart01         Cancel = True             'True일 경우 우클릭 팝업 메뉴는 보이지 않음     Else         If ActiveSheet.ChartObjects.Count > 0 Then             ActiveSheet.ChartObjects.Delete                 '모든 차트 지우기                 '2개 이상(첫셀 빈칸) 셀 선택시 발동         End If     End If End If End Sub