Excel позволяет создавать полноцветные диаграммы. Когда вы будете готовы распечатать диаграмму, вы можете указать Excel напечатать ее в «черно-белом» режиме

(на вкладке «Диаграмма» диалогового окна «Параметры страницы»). Вы можете задаться вопросом, есть ли способ экспортировать эту «черно-белую» версию диаграммы, чтобы вы могли работать с ней в другой программе.

Ответ в том, что вы не можете этого сделать, по крайней мере, напрямую. Чтобы понять, почему это так, вы должны понимать, как работает функция «черно-белая печать». Эта функция влияет только на то, что отправлено драйверу принтера (на ваш принтер), она вообще не влияет на фактическую диаграмму. Даже при использовании предварительного просмотра перед печатью вы просматриваете не фактическую диаграмму, а представление о том, как ваша диаграмма будет выглядеть при печати. Таким образом, вы видите вывод на принтер, а не настоящую диаграмму.

Если вы хотите экспортировать черно-белую версию диаграммы, есть несколько способов выполнить эту задачу. Первый — просто просмотреть диаграмму в режиме предварительного просмотра и сделать снимок экрана (нажмите Alt + Print Screen). Затем вы можете вставить экран в свою любимую графическую программу и подправить его по своему желанию.

Если вы хотите экспортировать диаграмму, а не просто снимать экран, вам следует изменить цвета диаграммы так, чтобы они действительно были в оттенках серого и содержали те же шаблоны, которые вы бы увидели, если бы вы выбрали печать в черно-белом режиме. Этот подход фактически изменяет источник диаграммы, а не полагается на Excel для преобразования диаграммы при печати. Когда вы закончите вносить изменения в форматирование, вы даже можете сохранить диаграмму как «шаблон диаграммы», чтобы использовать ее в качестве шаблона для других диаграмм, которые вы создаете.

При желании вы также можете использовать макрос для преобразования представления диаграммы в цветном и в градациях серого. Этот подход во многом зависит от цветов, которые вы хотите использовать в диаграмме, типа диаграммы, которую вы используете, и количества рядов данных в диаграмме. Ниже приведен пример макроса, который будет переключать цвета в серии данных между цветным и черным и белым для максимум пяти серий данных.

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) применим к Microsoft Excel 2007, 2010, 2013, 2016, 2019 и Excel в Office 365. Вы можете найти версию этого совета для старого интерфейса меню Excel здесь:

link: / excel-Exporting_Black_and_White_Charts [Экспорт черно-белых диаграмм].