Thêm biểu đồ vào tài liệu bằng tính năng Office Web Components

Tuy Microsoft Word, Excel, PowerPoint đã có sẵn công cụ vẽ biểu đồ mạnh mẽ và cách sử dụng khá đơn giản nhưng trong một số trường hợp việc vẽ biểu đồ bằng ngôn ngữ VBA từ tính năng Office Web Components sẽ đơn giản và thuận tiện hơn. Bài viết này giới thiệu đến các bạn cách chèn một biểu đồ trực tiếp vào tài liệu Word bằng cách sử dụng mã VBA. Bạn cũng có thể thực hiện tương tự đối với Microsoft Excel và Microsoft Word....
Nội dung trích xuất từ tài liệu:
Thêm biểu đồ vào tài liệu bằng tính năng Office Web Components Thêm biểu đồ vào tài liệu bằng tính năng Office Web ComponentsTuy Microsoft Word, Excel, PowerPoint đã có sẵn công cụ vẽ biểu đồ mạnh mẽ và cáchsử dụng khá đơn giản nhưng trong một số trường hợp việc vẽ biểu đồ bằng ngôn ngữVBA từ tính năng Office Web Components sẽ đơn giản và thuận tiện hơn.Bài viết này giới thiệu đến các bạn cách chèn một biểu đồ trực tiếp vào tài liệu Wordbằng cách sử dụng mã VBA. Bạn cũng có thể thực hiện tương tự đối với Microsoft Excelvà Microsoft PowerPoint.1. Kích hoạt tính năng Design ModeĐầu tiên, bạn mở tài liệu Word rồi vào menu File > chọn Options rồi bấm vào mụcCustomise Ribbon. Trong khung Customise the Ribbon bên ph ải, bạn đánh dấu chọn vàomục Developer ở khung Main Tabs, bấm OK.Trở về cửa sổ Word, bạn sẽ thấy thêm một menu Developer trên thanh menu. Trongnhóm Controls, bạn bấm vào tính năng Design Mode để kích hoạt tính năng này.2. Chèn biểu đồBài viết này sử dụng biểu đồ hiển thị dữ liệu ngân sách tháng hiện tại với ngân sách trungbình hàng tháng tính từ đầu năm. Trong ví dụ này, tác giả đặt các giá trị trong một mảngngay bên trong mã VBA nh ưng bạn có thể sử dụng nhiều kỹ thuật để tải các biến mảng từnhiều nguồn khác, ví dụ từ một tâp tin bảng tính hoặc từ một biểu mẫu đ ược nhập liệuhàng tháng.Sau khi kích hoạt tính năng Design Mode, bạn bấm vào biểu tượng thư mục/công cụLegacy Tools trong nhóm Controls. Trong hộp thoại xổ xuống, bạn bấm vào tính năngMore Controls bên dưới mục ActiveX Controls. Trong hộp thoại hiện ra, bạn kéo thanhtrượt và tìm trong danh sách Microsoft Office Chart xx.x, b ấm OK. Khi xong, bên trongtài liệu của bạn xuất hiện một biểu đồ trống có tên là Microsoft Office Web Components,sẵn sàng hiển thị nếu nhập dữ liệu vào.Bước tiếp theo, bạn cần phải viết một đoạn mã VBA quy định kiểu biểu đồ và hiển thị dữliệu. Nếu muốn quá trình nạp và hiển thị dữ liệu có sự điều khiển thì bạn có thể tạo ramột nút bấm trên tài liệu. Nhưng bạn vẫn có thể thực hiện việc này một cách tự độngbằng cách đặt hàm Document_Open() vào trong đoạn mã VBA, rồi thêm vào bên trongtính năng đó đoạn mã sau:Private Sub Document_Open()Dim i As IntegerDim oChartDim oSeries1Dim oSeries2Create arrays for the x-values and the y-valuesDim xValues As Variant, yValues1 As Variant, yValues2 As Varia ntxValues = 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ã trên gồm ba kiểu mảng, đầu tiên là kiểu xValues là trục x mô tả cho mỗiphần tử dữ liệu, kiểu yValues1 dùng để tạo ra đồ thị dạng cột, kiểu yValues2 dùng để tạora đồ thị đường thẳng. Bạn tiếp tục thêm đoạn mã:With ThisDocument.ChartSpace1.Clear.RefreshSet oChart = .Charts.AddoChart.HasTitle = TrueoChart.Title.Caption = Monthly Budget Numbers vs AverageĐoạn mã này giúp tạo ra một biểu đồ trống, chưa có một dữ liệu nào trong thời điểm này.Nhưng với một vài dòng lệnh sau, bạn có thể thêm vào tiêu đề cho biểu đồ, cũng như chúthích.Set oSeries1 = oChart.SeriesCollection.AddWith oSeries1.Caption = This Month.SetData chDimCategories, chDataLiteral, xValues.SetData chDimValues, chDataLiteral, yValues1.Type = chChartTypeColumnClusteredEnd WithAdd another series to the chart with the x-values and y-valuesfrom the arrays and set the series type to a line chartSet oSeries = oChart.SeriesCollection.AddWith oSeries.Caption = Average Spending.SetData chDimCategories, chDataLiteral, xValues.SetData chDimValues, chDataLiteral, yValues2.Type = chChartTypeLineMarkersEnd WithĐoạn mã trên giúp tạo ra hai dạng hiển thị trong biểu đồ của bạn. Kiểu thứ nhất đ ượcthiết lập để hiển thị các đối tượng như là định dạng ColumnClustered, kiểu thứ hai đượcthiết lập để hiển thị các đối tượng như là định dạng TypeLineMarkers. Bây giờ, bạn thêmvào dữ liệu và hoàn thành các chi tiết của biểu đồ bằng đoạn mã sau:Format the Value AxesoChart.Axes(chAxisPosition Left).NumberFormat = $#,##0oChart.Axes(chAxisPositionLeft).MajorUnit = 1000Show the legend at the bottom of the chartoChart.HasLegend = TrueoChart.Legend.Position = chLegendPositionBottomEnd WithEnd SubKhi xong, bạn lưu tài liệu và nạp thêm dữ liệu vào hai mảng. Có thể xem biểu đồ minhhọa:3. Lưu ý- Nếu xuất hiện thông báo The function you are attempting to run contains macros... khibấm vào tính năng Design Mode thì bạn đưa đĩa cài đặt vào ổ đĩa, rồi 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 đếnnhóm Office Shared Features rồi chọn Run from My Computer ở mục Visual Basic forApplication, 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 năng Microsoft Office Chart trong hộp thoại More Controls thìbạn truy ...