엑셀 vba 고수님들 답변 감사합니다

엑셀 vba 고수님들 답변 감사합니다

작성일 2024.03.04댓글 1건
    게시물 수정 , 삭제는 로그인 필요

엑셀 vba 그래프 만들기 질문드립니다..

With 차트오브젝트.Chart ' 시리즈 추가 
(A열과 B열, 막대 그래프로 설정) 
.SeriesCollection.NewSeries 
.SeriesCollection(1).Values = 그래프범위.Offset(1, 1).Resize(그래프범위.Rows.Count - 1, 1) 
.SeriesCollection(1).XValues = 그래프범위.Offset(1, 0).Resize(그래프범위.Rows.Count - 1, 1) 
.SeriesCollection(1).ChartType = xlColumnClustered ' 막대 그래프로 설정 
' 시리즈 추가(A열과 C열, 꺾은선 그래프로 설정) 
.SeriesCollection.NewSeries 
.SeriesCollection(2).Values = 그래프범위.Offset(1, 2).Resize(그래프범위.Rows.Count - 1, 1) 
.SeriesCollection(2).XValues = 그래프범위.Offset(1, 0).Resize(그래프범위.Rows.Count - 1, 1) 
.SeriesCollection(2).ChartType = xlLineMarkers ' 꺾은선 그래프로 설정 
' 시리즈 추가 (A열과 D열, 꺾은선 그래프로 설정) 
.SeriesCollection.NewSeries 
.SeriesCollection(3).Values = 그래프범위.Offset(1, 3).Resize(그래프범위.Rows.Count - 1, 1) 
.SeriesCollection(3).XValues = 그래프범위.Offset(1, 0).Resize(그래프범위.Rows.Count - 1, 1) 
.SeriesCollection(3).ChartType = xlLineMarkers ' 꺾은선 그래프로 설정 End With

 지금 한 차트에 하나는 막대그래프 두개는 꺾은선 그래프를 만들었는데요 막대그래프만 따로 범례를 삭제하는법이 있을까요?.. 꺾은선 그래프는 범례를 표시하구요 감사합니다


#엑셀 vba #엑셀 vba 실행 #엑셀 vba 사용법 #엑셀 vba 단축키 #엑셀 vba 명령어 모음 #엑셀 vba 매크로 만들기 #엑셀 vba 암호 해제 #엑셀 vba if #엑셀 vba 함수 만들기 #엑셀 vba 검색 기능 만들기

profile_image 익명 작성일 -

코드가 복잡해서 정리 해 보았습니다.

'범례지우기 예

'혼선이 있으므로 뒷번호 부터 지워야함

.Legend.LegendEntries(4).Delete '4번 Series 범례 지우기

.Legend.LegendEntries(3).Delete '3번 Series 범례 지우기

Dim nRowsCount& nRowsCount = 그래프범위.Rows.Count - 1 Dim aa As Range Set aa = 그래프범위.Offset(1, 0).Resize(nRowsCount, 1) With 차트오브젝트.Chart With .SeriesCollection.NewSeries ' 시리즈 추가 (A열과 B열) .ChartType = xlColumnClustered ' 막대 그래프로 설정 .Values = aa.Columns("b") .XValues = aa End With With .SeriesCollection.NewSeries ' 시리즈 추가 (A열과 C열) .ChartType = xlLineMarkers ' 꺾은선 그래프로 설정 .Values = aa.Columns("c") .XValues = aa End With With .SeriesCollection.NewSeries ' 시리즈 추가 (A열과 D열) .ChartType = xlLineMarkers ' 꺾은선 그래프로 설정 .Values = aa.Columns("d") .XValues = aa End With '혼선이 있으므로 뒷번호 부터 지워야함 .Legend.LegendEntries(4).Delete '4번 Series 범례 지우기 .Legend.LegendEntries(3).Delete '3번 Series 범례 지우기 End With