Thêm biểu đồ vào tài liệu tính Office Web Components Tuy Microsoft Word, Excel, PowerPoint có sẵn công cụ vẽ biểu đồ mạnh mẽ cách sử dụng đơn giản số trường hợp việc vẽ biểu đồ ngôn ngữ VBA từ tính Office Web Components đơn giản thuận tiện Bài viết giới thiệu đến bạn cách chèn biểu đồ trực tiếp vào tài liệu Word cách sử dụng mã VBA Bạn thực tương tự Microsoft Excel Microsoft PowerPoint Kích hoạt tính Design Mode Đầu tiên, bạn mở tài liệu Word vào menu File > chọn Options bấm vào mục Customise Ribbon Trong khung Customise the Ribbon bên phải, bạn đánh dấu chọn vào mục Developer khung Main Tabs, bấm OK Trở cửa sổ Word, bạn thấy thêm menu Developer menu Trong nhóm Controls, bạn bấm vào tính Design Mode để kích hoạt tính Chèn biểu đồ Bài viết sử dụng biểu đồ hiển thị liệu ngân sách tháng với ngân sách trung bình hàng tháng tính từ đầu năm Trong ví dụ này, tác giả đặt giá trị mảng bên mã VBA bạn sử dụng nhiều kỹ thuật để tải biến mảng từ nhiều nguồn khác, ví dụ từ tâp tin bảng tính từ biểu mẫu nhập liệu hàng tháng Sau kích hoạt tính Design Mode, bạn bấm vào biểu tượng thư mục/công cụ Legacy Tools nhóm Controls Trong hộp thoại xổ xuống, bạn bấm vào tính More Controls bên mục ActiveX Controls Trong hộp thoại ra, bạn kéo trượt tìm danh sách Microsoft Office Chart xx.x, bấm OK Khi xong, bên tài liệu bạn xuất biểu đồ trống có tên Microsoft Office Web Components, sẵn sàng hiển thị nhập liệu vào Bước tiếp theo, bạn cần phải viết đoạn mã VBA quy định kiểu biểu đồ hiển thị liệu Nếu muốn trình nạp hiển thị liệu có điều khiển bạn tạo nút bấm tài liệu Nhưng bạn thực việc cách tự động cách đặt hàm Document_Open() vào đoạn mã VBA, thêm vào bên tính đoạn mã sau: Private Sub Document_Open() Dim i As Integer Dim oChart Dim oSeries1 Dim oSeries2 'Create arrays for the x-values and the y-values Dim xValues As Variant, yValues1 As Variant, yValues2 As Variant xValues = Array("Electric Bill", "Mortgage", "Phone Bill", "Heating Bill", "Groceries", "Gasoline", "Clothes", "Shopping") yValues1 = Array(124.53, 1250.24, 45.43, 253.54, 143.32, 259.85, 102.5, 569.94) yValues2 = Array(110, 1250, 50, 200, 130, 274, 95, 300) Trong đoạn mã gồm ba kiểu mảng, kiểu xValues trục x mô tả cho phần tử liệu, kiểu yValues1 dùng để tạo đồ thị dạng cột, kiểu yValues2 dùng để tạo đồ thị đường thẳng Bạn tiếp tục thêm đoạn mã: With ThisDocument.ChartSpace1 Clear Refresh Set oChart = Charts.Add oChart.HasTitle = True oChart.Title.Caption = "Monthly Budget Numbers vs Average" Đoạn mã giúp tạo biểu đồ trống, chưa có liệu thời điểm Nhưng với vài dòng lệnh sau, bạn thêm vào tiêu đề cho biểu đồ, thích Set oSeries1 = oChart.SeriesCollection.Add With oSeries1 Caption = "This Month" SetData chDimCategories, chDataLiteral, xValues SetData chDimValues, chDataLiteral, yValues1 Type = chChartTypeColumnClustered End With 'Add another series to the chart with the x-values and y-values 'from the arrays and set the series type to a line chart Set oSeries = oChart.SeriesCollection.Add With oSeries Caption = "Average Spending" SetData chDimCategories, chDataLiteral, xValues SetData chDimValues, chDataLiteral, yValues2 Type = chChartTypeLineMarkers End With Đoạn mã giúp tạo hai dạng hiển thị biểu đồ bạn Kiểu thứ thiết lập để hiển thị đối tượng định dạng ColumnClustered, kiểu thứ hai thiết lập để hiển thị đối tượng định dạng TypeLineMarkers Bây giờ, bạn thêm vào liệu hoàn thành chi tiết biểu đồ đoạn mã sau: 'Format the Value Axes oChart.Axes(chAxisPositionLeft).NumberFormat = "$#,##0" oChart.Axes(chAxisPositionLeft).MajorUnit = 1000 'Show the legend at the bottom of the chart oChart.HasLegend = True oChart.Legend.Position = chLegendPositionBottom End With End Sub Khi xong, bạn lưu tài liệu nạp thêm liệu vào hai mảng Có thể xem biểu đồ minh họa: Lưu ý - Nếu xuất thông báo The function you are attempting to run contains macros bấm vào tính Design Mode bạn đưa đĩa cài đặt vào ổ đĩa, chạy lại tập tin cài đặt, chọn Add or Remove Feature, bấm Continue Trong cửa sổ tiếp theo, bạn tìm đến nhóm Office Shared Features chọn Run from My Computer mục Visual Basic for Application, bấm Continue để bắt đầu tiến trình cài đặt bổ sung - Nếu không tìm thấy tính Microsoft Office Chart hộp thoại More Controls bạn truy cập vào địa http://tinyurl.com/officechart để tải cài đặt thêm tính cho ứng dụng văn phòng ... trượt tìm danh sách Microsoft Office Chart xx.x, bấm OK Khi xong, bên tài liệu bạn xuất biểu đồ trống có tên Microsoft Office Web Components, sẵn sàng hiển thị nhập liệu vào Bước tiếp theo, bạn cần... kiểu biểu đồ hiển thị liệu Nếu muốn trình nạp hiển thị liệu có điều khiển bạn tạo nút bấm tài liệu Nhưng bạn thực việc cách tự động cách đặt hàm Document_Open() vào đoạn mã VBA, thêm vào bên tính. .. Khi xong, bạn lưu tài liệu nạp thêm liệu vào hai mảng Có thể xem biểu đồ minh họa: Lưu ý - Nếu xuất thông báo The function you are attempting to run contains macros bấm vào tính Design Mode bạn