Chris는 작고 동일한 차트가 많이 포함 된 통합 문서를 가지고 있습니다. 그는 각 차트에있는 요소의 일부 속성 (예 : 색상 또는 글꼴 크기)을 한 번에 모두 변경하려고합니다.

“기본이 아닌”차트를 자주 사용하는 경우 (즉, 차트를 만든 후 특정 차트 요소의 모양을 변경 함) 사용자 지정 차트를 만들고 해당 형식을 Excel에 저장하는 것이 좋습니다. 그런 다음 저장된 형식을 사용하여 모든 새 차트를 만들 수 있으므로 나중에 수행해야하는 서식의 양을 최소화 할 수 있습니다. 사용자 정의 차트 형식을 저장하는 방법은 _ExcelTips._의 다른 문제에서 다루었습니다.

사용자 지정 차트 형식은 미래에 유용 할 수 있지만 기존 통합 문서에 이미 많은 차트가있는 경우에는 도움이되지 않습니다. 이 경우 가장 좋은 해결책은 통합 문서의 모든 차트를 단계별로 살펴보고 원하는대로 변경할 수있는 매크로를 사용하는 것입니다. 변경할 항목을 미리 결정한 다음 해당 항목을 구체적으로 변경하도록 매크로를 프로그래밍하기 만하면됩니다.

예를 들어, 다음 매크로는 Y 축 레이블의 글꼴 색상과 크기를 변경합니다. 통합 문서의 모든 차트, 시트 및 포함 된 차트를 반복합니다.

Sub ChangeAllCharts1()

Dim cht As Chart     Dim sht     Dim ChtObj As ChartObject

For Each cht In ActiveWorkbook.Charts         With cht.Axes(xlValue).TickLabels.Font             .Size = 20             .Color = vbRed         End With     Next

For Each sht In ActiveWorkbook.Sheets         For Each ChtObj In sht.ChartObjects             With ChtObj.Chart.Axes(xlValue).TickLabels.Font                 .Size = 20                 .Color = vbRed             End With         Next     Next End Sub

여기에 쓰여진대로 매크로는 글꼴 크기를 20으로 변경하고 색상을 빨간색으로 변경합니다. 매크로가 다른 요소를 변경하도록하려면 변경하려는 요소를 반영하도록 With 문을 변경하거나 For …​ Next 루프를 사용하여 모든 차트 요소를 단계별로 실행할 수 있습니다. 다음 매크로는 통합 문서에서 차트의 배경색을 변경하는이 기술을 보여줍니다.

Sub ChangeAllCharts2()

On Error Resume Next     NewChartAreaColor = 34

For J = 1 To ActiveWorkbook.Charts.Count         ActiveWorkbook.Charts(J).Select

'The pairs of line code indicate desired changes         ActiveChart.ChartArea.Select         Selection.Interior.ColorIndex = NewChartAreaColor     Next J

For J = 1 To ActiveWorkbook.Sheets.Count         For K = 1 To Sheets(J).ChartObjects.Count             Sheets(J).Select             Sheets(J).ChartObjects(K).Activate

'The pairs of line code indicate desired changes             ActiveChart.ChartArea.Select             Selection.Interior.ColorIndex = NewChartAreaColor         Next K     Next J End Sub

_ 참고 : _

이 페이지 (또는 ExcelTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / excelribbon-ExcelTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_ExcelTips_는 비용 효율적인 Microsoft Excel 교육을위한 소스입니다.

이 팁 (3125)은 Microsoft Excel 97, 2000, 2002 및 2003에 적용됩니다. 여기에서 Excel (Excel 2007 이상)의 리본 인터페이스에 대한이 팁 버전을 찾을 수 있습니다.

link : / excelribbon-Changing_Elements_in_Lots_of_Charts_at_One_Time [한 번에 많은 차트의 요소 변경].