그래프 축 영역변경 vba

VBA
작성자
H.B
작성일
2021-11-23 17:21
조회
36
엑셀버전 : M365

운영체제 : 윈도우10

안녕하세요.

이번 질문은 다름아니라, 그래프에 관한 부분인데요.

그래프의 축값에 해당하는 영역을 이름으로 설정해서, (일~십이까지 한글로 설정함) 다른 영역으로 변경시키는 작업을 하고있습니다.

하기와 같이 매크로를 통해 변경하는 값을 알아내긴 하였습니다만,

for each문을 써써 sheet1에 있는 모든 chart(그래프)를 일이라는 영역으로 변경하고 싶을 땐 어찌해야할까요?

activechart부분을 단순히 ChartObjects("abc")로 변경했는데 실행이 안되네요....

도움 부탁드립니다.

ActiveSheet.ChartObjects("abc").Activate
ActiveChart.FullSeriesCollection(1).XValues = "=sheet1!십이"
ActiveChart.FullSeriesCollection(2).XValues = "=sheet1!십이"

 

전체 3

  • 2021-11-24 09:26
    채택된 답변

    제가 알기론 사용자 정의 이름을 대입할 수 없습니다.
    실제, 사용자 정의 이름을 대입하고
    매크로 기록을 하면 range 범위로 변경됩니다.

    또한,
    ActiveChart.FullSeriesCollection(1).XValues 는 축 값을 대입하는 것으로
    적절한 사용방법이 아닙니다.

    위의 내용을 종합하면,
    Range 객체를 사용하여 설정하면 됩니다.

    ActiveChart.SetSourceData Source:=Range("M6:M36")

    또는 아래와 같이 해서 사용합니다.
    Dim rSourceData As Range
    rSourceData = Range("M6:M36")
    ActiveChart.SetSourceData Source:=rSourceData


  • 2021-11-24 09:29

    차트는 엑셀버전, 차트 유형, 데이터 컬럼 수에 따라
    vba 로 제어될 때와 그렇지 않을 때가 있습니다.

    아래 사이트를 참조하면 좋을 듯 합니다

    .https://www.thespreadsheetguru.com/blog/2015/3/1/the-vba-coding-guide-for-excel-charts-graph

     


  • 2021-11-24 10:04

    답변 감사합니다 야휘님^^ 알려주신 부분 참고해서 한번 해보겠습니다.

    감사합니다.


전체 4,652
번호 카테고리 제목 작성자 작성일 추천 조회
공지사항 공지사항
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (9)
오빠두엑셀 | 2021.10.28 | 추천 15 | 조회 705
트로피 오빠두엑셀 2021.10.28 15 705
24166 기능/도구
New 질문있습니다.
최강씨맨 | 16:14 | 추천 0 | 조회 3
최강씨맨 16:14 0 3
24163 함수/공식
New 엑셀 특정 내용 추출하는 수식 질문드립니다. (1)
PAKSAW | 15:34 | 추천 0 | 조회 8
PAKSAW 15:34 0 8
24161 함수/공식
New 특정 날짜 값 찾기 (1)
ㄱ박민극 | 15:23 | 추천 0 | 조회 15
ㄱ박민극 15:23 0 15
24154 피벗테이블
New 설문조사 피벗테이블 구성이 어렵네요 첨부파일 (1)
가리 | 12:22 | 추천 0 | 조회 21
가리 12:22 0 21
24153 VBA
New 엑셀 검색 창 첨부파일 (1)
이혜 | 11:59 | 추천 0 | 조회 18
이혜 11:59 0 18
24149 VBA
New 엑셀 메일 보내기 자동화 매크로 관련 (저장경로 변경, 일정한 셀 값의 변화로 매크로 반복) 첨부파일
| 10:48 | 추천 0 | 조회 27
10:48 0 27
24148 피벗테이블
New 피벗테이블 형태의 데이터베이스 변환 (1)
이길호 | 10:34 | 추천 0 | 조회 20
이길호 10:34 0 20
파워쿼리/피벗
New Re:피벗테이블 형태의 데이터베이스 변환
Yukon | 16:08 | 추천 0 | 조회 3
Yukon 16:08 0 3
24140 VBA
New 특정 시트에 추출되어있는 값을 각각의 시트로 분류하려고합니다. 첨부파일 (1)
이치영 | 01:37 | 추천 0 | 조회 36
이치영 01:37 0 36
24135 VBA
New vlookup #N/A 에러가 나오는 경우 IF문은 어떻게.... (2)
툴잇지 with 우정기기 | 2021.11.29 | 추천 0 | 조회 47
툴잇지 with 우정기기 2021.11.29 0 47
24132 함수/공식
New 동적범위, 셀값을 시트명으로 인식하여 합계를 구하는것 첨부파일 (6) 답변완료
키큰아저씨 | 2021.11.29 | 추천 0 | 조회 49
키큰아저씨 2021.11.29 0 49
24129 VBA
New 직사각형 도형 삭제vba (2) 답변완료
H.B | 2021.11.29 | 추천 1 | 조회 32
H.B 2021.11.29 1 32
24126 VBA
New "요청한 레지스트리에 엑세스할 수 없습니다." 라는 에러때문에 진행이 안됩니다. (3)
볼펜수리공 | 2021.11.29 | 추천 0 | 조회 29
볼펜수리공 2021.11.29 0 29
24120 기능/도구
New 조건부서식으로 찾은 바탕색을 실제 엑셀 바탕색 컬러로 변경하고 싶습니다. 첨부파일 (3) 답변완료
glas**** | 2021.11.29 | 추천 0 | 조회 35
glas**** 2021.11.29 0 35
24117 함수/공식
New 맨 끝자리를 제외한 7자리 추출 첨부파일 (2) 답변완료
감사하모니카 | 2021.11.29 | 추천 0 | 조회 41
감사하모니카 2021.11.29 0 41
24116 VBA
New VBA 2007버전과 2021버전에서의 속도 차이가 많이 납니다. 해결방안이 있을까 해서요? 첨부파일 (2)
한정석 | 2021.11.29 | 추천 0 | 조회 44
한정석 2021.11.29 0 44
24113 함수/공식
New 조건 서식 질문입니다. 첨부파일 (1)
space | 2021.11.29 | 추천 0 | 조회 38
space 2021.11.29 0 38
24111 피벗테이블
New 피벗테이블 DAX함수 관련 문의
T첫 | 2021.11.29 | 추천 0 | 조회 24
T첫 2021.11.29 0 24
24106 함수/공식
New 엑셀에서 해당 날짜기간 동안을 찾아 날짜열에 각각 표기하는 방법 첨부파일 (5)
공수래 | 2021.11.29 | 추천 0 | 조회 39
공수래 2021.11.29 0 39
24099 함수/공식
New 입력한 값에 따라 IMAGE 자동입력 함수 문제 관련 (1)
유지연 | 2021.11.29 | 추천 0 | 조회 29
유지연 2021.11.29 0 29
24098 VBA
New 워드 Format(숫자, "#,###") (1) 답변완료
argus | 2021.11.28 | 추천 0 | 조회 38
argus 2021.11.28 0 38
24097 VBA
New 각각 형식이 다른 여러 시트에서 원하는 값들만 가져와서 한 시트에 보기 쉽게 합치고 싶습니다. 첨부파일 (1)
축전 | 2021.11.28 | 추천 0 | 조회 42
축전 2021.11.28 0 42
24096 VBA
New 엑셀 재고관리툴 만들기 VBA영상 시청중 오류 발생관련 문의입니다. 첨부파일
가을전어 | 2021.11.28 | 추천 0 | 조회 23
가을전어 2021.11.28 0 23
24093 기능/도구
New 작업표시줄 클릭으로 클립보드에 복사 문제 관련 (1)
어루 | 2021.11.28 | 추천 0 | 조회 21
어루 2021.11.28 0 21
24091 VBA
New 도와주세요! 뭐가 문제인지 못찾겠습니다.
y**** | 2021.11.28 | 추천 0 | 조회 40
y**** 2021.11.28 0 40
24089 VBA
New 엑셀 vlookup vba 문의드립니다. (4) 답변완료
ㅈㄱㄹ | 2021.11.28 | 추천 0 | 조회 45
ㅈㄱㄹ 2021.11.28 0 45
24088 함수/공식
New 개인별 회비 납부 현황에 따라 월별 납부액 결정 관련 함수 또는 VBA (미납, 매월 16일 이후 납부할 경우 월회비 10% 가산) 첨부파일 (5) 답변완료
007 | 2021.11.28 | 추천 0 | 조회 59
007 2021.11.28 0 59
24081 함수/공식
New 영문주소를 한글주소로 변경 희망합니다. (1)
루s cos 개인대행 | 2021.11.28 | 추천 0 | 조회 37
루s cos 개인대행 2021.11.28 0 37
24072 VBA
New 수식이 있는 데이터에서 매크로를 사용하여 다른시트에 결과값만 붙여넣고 싶습니다. 첨부파일 (6) 답변완료
호랑이파워 | 2021.11.28 | 추천 0 | 조회 58
호랑이파워 2021.11.28 0 58
24068 파워쿼리/피벗
New 파워쿼리 간단한 '값 바꾸기' 에 대해서 질문드립니다. 첨부파일 (3)
월마리아 | 2021.11.28 | 추천 0 | 조회 31
월마리아 2021.11.28 0 31
24065 피벗테이블
New 열과 행 바꾸는 쉬운 방법있나요? 첨부파일 (5) 답변완료
jyj6**** | 2021.11.27 | 추천 0 | 조회 56
jyj6**** 2021.11.27 0 56