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 đồ sẽ tự động được định kích thước theo một số kích thước được xác định trước mà Excel chọn. Bạn có thể không muốn đối tượng biểu đồ có kích thước bất kỳ mà Excel xác định; 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, vì vậy 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 các công cụ tạo biểu đồ của Excel. 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 các công cụ trên ruy-băng sẽ 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. 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.

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

_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 (8526) áp dụng cho Microsoft Excel 2007, 2010, 2013 và 2016.

Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện menu cũ hơn của Excel tại đây: