엑셀 차트 위 데이터 선택 시 차트 변하도록 하는 방법

엑셀마스터가되자 Lv.1 📅 2020년 01월 27일 22:43 👁 조회 1.2만

안녕하세요. 엑셀 문의드립니다.

동적차트를 공부하던중 구현하고 싶은 것이 있는데 잘 안되어서 여쭙습니다.

해보고 싶은 것이 SCATTER 차트 상에 있는 점을 클릭하면 raw 데이터에서 삭제하거나, 아니면 group을 원하는 다른 그룹으로 변경하는 것을 구현하고 싶은데 가능할까요?

궁극적으로는 그래프 상에 보이는 outlier 를 제거해보면서 데이터 변화를 추적해보고 싶은 것입니다.

검색해보아도 잘 안나와서 여쭙습니다.

감사합니다.

엑셀마스터가되자님의

[Q&A] 엑셀 차트 위 데이터 선택 시 차트 변하도록 하는 방법 (3) 01-27

[Q&A] 어려운 내용이군요! 감사합니다 ㅎㅎ해보겠습니다! 01-28

오빠두엑셀 Lv.30

안녕하세요? ^^ 말씀하신 내용은 내장기능만으로는 불가능합니다.. VBA나 별도의 추가기능이 꼭 필요한 내용이구요..
반드시 차트위의 값을 클릭해야한다면, 별도의 ChartEvent 클래스모듈을 생성하신 뒤 VBA로 작업하셔야 합니다.
만약 차트위 값이 아닌 차트와 연동된 워크시트의 데이터(표)를 클릭해도 괜찮은 상황이라면, 별도의 클래스모듈없이 WorkSheet_Change 이벤트로 보다 쉽게 적용하실 수 있을듯 합니다.^^
차트이벤트 예제를 작성해서 첨부해드리니 첨부파일을 확인해보시겠어요?
감사합니다.

'/<--! 클래스 모듈에 추카합니다. 클래스모듈 이름 ChartClass -->
Private WithEvents CEvents As Chart
Private Sub Class_Initialize()
Set CEvents = ActiveSheet.ChartObjects(1).Chart
MsgBox "차트 개체를 활성화합니다."
End Sub

Private Sub CEvents_Activate()
Debug.Print CEvents.Name
End Sub

Private Sub CEvents_Select(ByVal ElementID As Long, _
ByVal Arg1 As Long, _
ByVal Arg2 As Long)

If ElementID = 3 Then _
MsgBox "차트 항목이 선택되었습니다."
If ElementID = 4 Then _
MsgBox "차트 제목이 선택되었습니다.": CEvents.ChartTitle.Text = Now()

End Sub

'<--! 차트가 포함된 시트 WorkSheet_Avtivate 이벤트 모듈에 추가합니다. -->
Dim chtItem As ChartClass
Private Sub Worksheet_Activate()
Set chtItem = New ChartClass
End Sub

안녕하세요? ^^ 말씀하신 내용은 내장기능만으로는 불가능합니다.. VBA나 별도의 추가기능이 꼭 필요한 내용이구요.. 
반드시 차트위의 값을 클릭해야한다면, 별도의 ChartEvent 클래스모듈을 생성하신 뒤 VBA로 작업하셔야 합니다. 
만약 차트위 값이 아닌 차트와 연동된 워크시트의 데이터(표)를 클릭해도 괜찮은 상황이라면, 별도의 클래스모듈없이 WorkSheet_Change 이벤트로 보다 쉽게 적용하실 수 있을듯 합니다.^^ 
차트이벤트 예제를 작성해서 첨부해드리니 첨부파일을 확인해보시겠어요? 
감사합니다. 
<div class="boxed"> 
'/<--! 클래스 모듈에 추카합니다. 클래스모듈 이름 ChartClass --> 
Private WithEvents CEvents As Chart 
Private Sub Class_Initialize() 
Set CEvents = ActiveSheet.ChartObjects(1).Chart 
MsgBox "차트 개체를 활성화합니다." 
End Sub 
 
Private Sub CEvents_Activate() 
Debug.Print CEvents.Name 
End Sub 
 
Private Sub CEvents_Select(ByVal ElementID As Long, _ 
 ByVal Arg1 As Long, _ 
 ByVal Arg2 As Long) 
 
 If ElementID = 3 Then _ 
 MsgBox "차트 항목이 선택되었습니다." 
 If ElementID = 4 Then _ 
 MsgBox "차트 제목이 선택되었습니다.": CEvents.ChartTitle.Text = Now() 
 
End Sub</div><div class="boxed"> '<--! 차트가 포함된 시트 WorkSheet_Avtivate 이벤트 모듈에 추가합니다. --> 
Dim chtItem As ChartClass 
Private Sub Worksheet_Activate() 
 Set chtItem = New ChartClass 
End Sub</div>

📄

엑셀-차트-이벤트-예제.gif

2020.01.28

오빠두엑셀 Lv.30

차트 관련 이벤트 목록은 아래 링크를 확인해보세요.
https://docs.microsoft.com/en-us/office/vba/excel/concepts/events-worksheetfunctions-shapes/chart-object-events
차트 개체 종류와 관련 인수 정보는 아래 링크를 확인해보시겠어요?^^
https://docs.microsoft.com/en-us/office/vba/api/excel.chart.getchartelement
감사합니다.