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_网站上的任何其他页面)中描述的宏,我准备了一个特殊页面,其中包含有用的信息。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧(10447)适用于Microsoft Excel 2007、2010、2013、2016、2019和Office 365中的Excel。您可以在此处为Excel的较早菜单界面找到此技巧的版本: