Khi bạn tạo biểu đồ Excel, với tư cách là một đối tượng được đặt trong một trang tính, đối tượng biểu đồ được định kích thước tự động để vừa với một phần tư kích thước màn hình. Bạn có thể không muốn đối tượng biểu đồ có kích thước cụ thể này. Ví dụ: bạn có thể muốn các đối tượng biểu đồ của mình luôn có kích thước chuẩn để chúng luôn xuất hiện cùng một liên quan đến trang tính của bạn.

Không có cách nào để chỉ định kích thước đối tượng biểu đồ khi bạn đang tạo biểu đồ. Tuy nhiên, bạn có thể thay đổi kích thước đối tượng biểu đồ sau khi nó được tạo, cũng như bạn có thể thay đổi kích thước các phần tử đồ họa khác của trang tính của mình. Bạn có thể viết macro để tạo đối tượng ở một kích thước cụ thể, nhưng làm như vậy sẽ loại bỏ nhiều tính linh hoạt vốn có trong trình hướng dẫn Biểu đồ. Ví dụ: khi bạn chỉ định kích thước của đối tượng biểu đồ đang được tạo, bạn cũng phải chỉ định các đặc điểm khác, chẳng hạn như loại biểu đồ. Việc chọn và chọn các đặc điểm như vậy thông qua trình hướng dẫn Biểu đồ dễ dàng hơn so với thực hiện trong macro.

Tuy nhiên, bạn có thể dễ dàng tạo một macro sẽ thay đổi kích thước đối tượng biểu đồ hiện có. Các lệnh chính của macro như vậy sẽ thay đổi thuộc tính Chiều rộng và Chiều cao cho đối tượng biểu đồ. Trong VBA, các thuộc tính này được chỉ định trong các điểm. Do đó, nếu bạn muốn thay đổi kích thước đối tượng biểu đồ để nó cao 4 inch, bạn sẽ đặt thuộc tính Chiều cao thành 288, là số điểm trong 4 inch (4 * 72).

Macro sau đây đưa ra một ví dụ về một cách để duyệt qua tất cả các đối tượng biểu đồ trên trang tính và làm cho chúng có cùng kích thước.

Sub ResizeCharts()

For j = 1 To ActiveSheet.Shapes.Count         If ActiveSheet.Shapes(j).Type = msoChart Then             ActiveSheet.Shapes(j).Width = 4  72             ActiveSheet.Shapes(j).Height = 3  72         End If     Next j End Sub

Macro cụ thể này đặt chiều rộng của mỗi đối tượng biểu đồ thành 4 inch và chiều cao là 3 inch.

_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 (2208) á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: