Excel에서는 풀 컬러로 차트를 만들 수 있습니다. 차트를 인쇄 할 준비가되면 Excel에 “흑백”으로 인쇄하도록 지시 할 수 있습니다.

(페이지 설정 대화 상자의 차트 탭에 있음). 다른 프로그램에서 작업 할 수 있도록 차트의 “흑백”버전을 내보내는 방법이 있는지 궁금 할 수 있습니다.

대답은 최소한 직접적으로는 할 수 없다는 것입니다. 그 이유를 이해하려면 “흑백 인쇄”기능이 어떻게 작동하는지 이해해야합니다. 이 기능은 프린터 드라이버 (프린터)로 전송되는 항목에만 영향을 미치며 실제 차트에는 전혀 영향을주지 않습니다. 인쇄 미리보기를 사용하는 경우에도 실제 차트를 보는 것이 아니라 인쇄 할 때 차트가 어떻게 보이는지 나타냅니다. 따라서 실제 차트가 아닌 프린터 출력이 표시됩니다.

차트의 흑백 버전을 내보내려면 여러 가지 방법으로 작업을 수행 할 수 있습니다. 첫 번째는 인쇄 미리보기에서 차트를보고 화면 캡처를 수행하는 것입니다 (Alt + Print Screen 누르기). 그런 다음 화면을 좋아하는 그래픽 프로그램에 붙여넣고 원하는대로 수정할 수 있습니다.

화면을 캡처하는 대신 차트를 내보내려면 차트의 색상을 변경하여 실제로 회색조가되고 흑백으로 인쇄하도록 선택한 경우 볼 수있는 것과 동일한 패턴을 포함해야합니다. 이 방법은 인쇄 할 때 차트를 변환하기 위해 Excel에 의존하는 대신 실제로 차트의 소스를 변경합니다. 서식 변경을 완료하면 차트를 “차트 템플릿”으로 저장하여 생성 한 다른 차트의 패턴으로 사용할 수도 있습니다.

원하는 경우 매크로를 사용하여 컬러 차트와 회색조 차트 프레젠테이션간에 변환 할 수도 있습니다. 이 접근 방식은 차트에서 사용하려는 색상, 사용중인 차트 유형 및 차트의 데이터 시리즈 수에 따라 크게 달라집니다. 다음은 최대 5 개의 데이터 계열에 대해 데이터 계열의 색상을 색상과 흑백간에 전환하는 매크로의 예입니다.

Option Explicit Public bColored As Integer

Sub ColoredToBW()

Dim cht As Chart     Dim chtSC As SeriesCollection     Dim x As Integer     Dim iSeriesCount As Integer     Dim iColors(1 To 5, 0 To 1) As Integer     Dim iColor As Integer

'Set colors for BW series     iColors(1, 0) = 1 'Black     iColors(2, 0) = 56 'Gray-80%     iColors(3, 0) = 16 'Gray-50%     iColors(4, 0) = 48 'Gray-40%     iColors(5, 0) = 15 'Gray-25%

'Set colors for Color series     iColors(1, 1) = 55 'Indigo     iColors(2, 1) = 7 'pink     iColors(3, 1) = 6 'yellow     iColors(4, 1) = 8 'Turquoise     iColors(5, 1) = 13 'Violet

'Toggle Color/BW change 0 to 1 or 1 to 0     bColored = 1 - bColored

Set cht = ActiveChart

'check that a chart is selected     If cht Is Nothing Then         MsgBox ("Select a chart")

Exit Sub     End If

Set chtSC = cht.SeriesCollection

'Check for MIN of number of series or     'colors and only do the minimum     iSeriesCount = Application.WorksheetFunction.Min _       (UBound(iColors), chtSC.Count)



For x = 1 To iSeriesCount         'Define the color         iColor = iColors(x, bColored)



'Set the LINE color         chtSC(x).Border.ColorIndex = iColor

'Marker color         With chtSC(x)

.MarkerBackgroundColorIndex = xlNone             .MarkerForegroundColorIndex = iColor         End With     Next x End Sub

이 예제는 모든 차트 유형에서 작동하지 않습니다. 필요에 맞게 수정해야합니다. 그러나 이것은 자신 만의 매크로를 만들기위한 시작점 역할을합니다.

_ 참고 : _

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

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

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

이 팁 (10447)은 Office 365의 Microsoft Excel 2007, 2010, 2013, 2016, 2019 및 Excel에 적용됩니다. 여기에서 Excel의 이전 메뉴 인터페이스에 대한이 팁 버전을 찾을 수 있습니다.

link : / excel-Exporting_Black_and_White_Charts [흑백 차트 내보내기].