Megan có một báo cáo hàng tháng mà cô ấy tạo trong Excel. Cô ấy có hầu hết các báo cáo tự động, ngoại trừ một vấn đề khó chịu mà cô ấy phải xử lý thủ công. Báo cáo bao gồm bốn biểu đồ hình tròn được sử dụng để minh họa một số giá trị từ báo cáo. Mỗi biểu đồ hình tròn có kích thước khác nhau một chút và nhiệm vụ thủ công là Megan cần làm cho tất cả chúng có cùng kích thước. Cô ấy muốn mỗi chúng có kích thước là 5 cm vuông và rất thích cách loại bỏ công việc định dạng thủ công mỗi tháng.

Lý do mà mỗi biểu đồ hình tròn có kích thước khác nhau một chút là vì khi bạn tạo biểu đồ với cài đặt mặc định, Excel quyết định nó có thể điều chỉnh kích thước biểu đồ khi nó thấy phù hợp. Kích thước này có thể phụ thuộc vào một số yếu tố, chẳng hạn như không gian có sẵn, kích thước nhãn, số điểm dữ liệu, v.v. Một cách để cải thiện cơ hội rằng mỗi biểu đồ sẽ có cùng kích thước là tạo biểu đồ đầu tiên của bạn, sau đó sử dụng Ctrl + C và Ctrl + V để sao chép biểu đồ ba lần. Mỗi phạm vi phải giống hệt nhau và sau đó bạn có thể điều chỉnh phạm vi dữ liệu được phản ánh trong biểu đồ để chúng hiển thị phạm vi mong muốn.

Nếu việc sao chép và dán biểu đồ là không thực tế (ví dụ: nếu biểu đồ được tạo bằng macro), thì bạn có thể quan tâm đến việc chỉ sử dụng macro nhanh để điều chỉnh kích thước của tất cả các biểu đồ trong trang tính. Macro sau sẽ đi qua từng biểu đồ và điều chỉnh các thuộc tính Chiều cao và Chiều rộng thành 5 cm.

Sub AdjChartSizes()

Dim cht As ChartObject     For Each cht In ActiveSheet.ChartObjects         cht.Chart.ChartArea.AutoScaleFont = False         cht.Height = Application.CentimetersToPoints(5)

cht.Width = Application.CentimetersToPoints(5)

Next cht 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 (2429) á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: