Excel cho phép bạn tạo biểu đồ với đầy đủ màu sắc. Khi bạn đã sẵn sàng để in biểu đồ, bạn có thể hướng dẫn Excel in nó ở dạng “đen trắng”

(thông qua Tệp | Thiết lập Trang | Biểu đồ | In Đen trắng). Bạn có thể tự hỏi nếu có cách nào để xuất phiên bản “đen trắng” này của biểu đồ, để bạn có thể làm việc với nó trong một chương trình khác.

Câu trả lời là bạn không thể làm điều này, ít nhất là không trực tiếp. Để hiểu tại sao lại như vậy, bạn phải hiểu cách hoạt động của tính năng “in đen trắng”. Tính năng này chỉ ảnh hưởng đến những gì được gửi đến trình điều khiển máy in (tới máy in của bạn), nó hoàn toàn không ảnh hưởng đến biểu đồ thực tế. Ngay cả khi bạn nhấp vào Xem trước khi in, bạn không phải đang xem biểu đồ thực tế của mình, mà là bản trình bày biểu đồ của bạn sẽ trông như thế nào khi được in. Do đó, bạn đang nhìn thấy đầu ra của máy in, không phải biểu đồ thực.

Nếu bạn muốn xuất phiên bản đen trắng của biểu đồ, có một số cách để hoàn thành nhiệm vụ. Đầu tiên là chỉ cần xem biểu đồ trong Print Preview và chụp màn hình (nhấn Alt + Print Screen). Sau đó, bạn có thể dán màn hình vào chương trình đồ họa yêu thích của mình và chạm vào nó như mong muốn.

Nếu bạn muốn xuất biểu đồ thay vì chỉ chụp màn hình, thì bạn nên thay đổi màu sắc của biểu đồ để chúng thực sự có thang độ xám và chứa các mẫu giống như bạn sẽ thấy nếu bạn chọn in đen trắng. Cách tiếp cận này thực sự thay đổi nguồn cho biểu đồ, thay vì dựa vào Excel để thực hiện chuyển đổi biểu đồ khi bạn in. Sau khi thực hiện xong các thay đổi định dạng, bạn thậm chí có thể lưu biểu đồ dưới dạng “loại biểu đồ” để bạn có thể sử dụng nó làm mẫu cho các biểu đồ khác mà bạn tạo.

Nếu muốn, bạn cũng có thể sử dụng macro để chuyển đổi giữa bản trình bày biểu đồ màu và thang độ xám. Cách tiếp cận này phụ thuộc nhiều vào màu sắc bạn muốn sử dụng trong biểu đồ, loại biểu đồ bạn đang sử dụng và số lượng chuỗi dữ liệu trong biểu đồ. Sau đây là ví dụ về macro sẽ chuyển đổi các màu trong chuỗi dữ liệu giữa màu và đen và trắng, cho tối đa năm chuỗi dữ liệu.

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

Ví dụ này sẽ không hoạt động với tất cả các loại biểu đồ; bạn sẽ cần phải sửa đổi nó để phản ánh nhu cầu của bạn. Tuy nhiên, nó sẽ đóng vai trò là điểm khởi đầu để tạo macro của riêng bạn.

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên trang ExcelTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

ExcelTips là nguồn của bạn để đào tạo Microsoft Excel hiệu quả về chi phí.

Mẹo này (2204) áp dụng cho Microsoft Excel 97, 2000, 2002 và 2003. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện ribbon của Excel (Excel 2007 trở lên) tại đây: