Các tính năng đồ họa của Excel cho phép bạn thêm một số hình dạng được xác định trước vào sổ làm việc. Những hình dạng này, được gọi là AutoShapes, đáp ứng nhiều nhu cầu. Tuy nhiên, nếu bạn muốn thêm hình dạng vào tính năng AutoShapes, bạn đã không gặp may. Các hình dạng này dường như được mã hóa cứng trong Excel và không thể sửa đổi.

Tuy nhiên, bạn có thể thêm các hình dạng vào Thư viện Clip. Nếu bạn định dạng các hình dạng dưới dạng tệp WMF, chúng sẽ dễ dàng thêm và dễ đặt trong trang tính. Ví dụ: nếu bạn có một số biểu tượng lưu đồ khác nhau mà bạn muốn cung cấp trong Excel, tất cả những gì bạn cần làm là lưu từng biểu tượng ở định dạng WMF, sau đó nhập chúng vào Thư viện Clip. (Để lưu đồ họa ở định dạng WMF, bạn sẽ cần sử dụng chương trình đồ họa chuyên dụng, chẳng hạn như Paint Shop Pro hoặc Corel Draw.)

Nếu bạn không muốn sử dụng Thư viện Clip vì lý do nào đó, bạn có thể mô phỏng các Hình dạng Tự động của riêng mình thông qua sự kết hợp của macro và đồ họa trong một trang tính ẩn. Các bước chung sau đây trình bày chi tiết cách thực hiện việc này cho một loạt hai mươi ký hiệu lưu đồ. Các bước giả định rằng bạn hoàn toàn thoải mái khi viết macro và tùy chỉnh thanh công cụ.

  1. Mở sổ làm việc mẫu và đảm bảo rằng nó chỉ có một trang tính duy nhất.

  2. Đặt tất cả đồ họa lưu đồ trên trang tính.

  3. Tạo một thanh công cụ mới, đặt tên là MyShapes và đảm bảo rằng nó được liên kết với sổ làm việc mẫu.

  4. Thêm hai mươi nút vào thanh công cụ, một nút cho mỗi đồ họa lưu đồ. Ý tưởng là việc nhấp vào một nút sẽ thêm hình dạng lưu đồ được liên kết vào trang tính đang hoạt động.

  5. Chỉnh sửa từng mặt nút để hiển thị từng đồ họa sơ đồ càng chặt chẽ càng tốt. (Đây là phần khó nhất trong các bước này).

  6. Thay đổi văn bản Mẹo công cụ cho mỗi nút, như mong muốn. Điều này rất hữu ích để người dùng có thể hiểu mục đích của mỗi đồ họa lưu đồ.

  7. Lần lượt, chọn và đặt tên cho từng đồ họa lưu đồ. (Bạn đặt tên cho đồ họa bằng cách chọn chúng và nhập tên vào hộp Tên ở bên trái của thanh Công thức.) Với mục đích của các bước này, giả sử bạn sử dụng các tên như FlowObj1, FlowObj2, v.v.

  8. Viết hai mươi macro (một macro cho mỗi đồ họa lưu đồ) loại sau:

Sub AddFlowObj1()

ThisWorkbook.Sheets(1).Shapes("FlowObj1").Copy     ActiveSheet.Paste End Sub

  1. Gán từng macro cho nút thanh công cụ tương ứng.

  2. Trong mô-đun Workbook của mẫu, hãy thêm các thủ tục sau:

Private Sub Workbook_Open()

Application.CommandBars("MyShapes").Visible = True End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.CommandBars("MyShapes").Delete End Sub

  1. Lưu mẫu dưới dạng bổ trợ Excel.

  2. Khởi động lại Excel và sử dụng Công cụ | Bổ trợ để kích hoạt bổ trợ mới của bạn.

_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 (1995) áp dụng cho Microsoft Excel 97, 2000, 2002 và 2003.