Ví dụ:

Trong file Excel chúng ta có 2 Shape gồm:

• Hình mũi tên: biểu thị từ A tới B
• Hình chữ nhật: khi click chuột vào hình này sẽ làm ẩn / hiện hình mũi tên

Ghi macro tô màu cho Shape

Việc ẩn / hiện Shape thực chất chính là việc tô màu (gồm màu nền và màu đường viền) hay bỏ tô màu của Shape đó. Vì vậy để bắt đầu chúng ta cần biết Code tô màu / bỏ tô màu của Shape như thế nào.

Cách thực hiện như sau:

• Trong thẻ Developer bấm nút Record Macro
• Bấm vào Shape hình mũi tên
• Trong thẻ Format (thẻ này hiện ra khi bấm vào Shape) thực hiện tô màu tại Shape Fill và Shape Outline, ví dụ tô màu Orange Accent 2

• Sau khi thực hiện xong thao tác này, trở lại thẻ Developer rồi bấm Stop Recording

Chúng ta thu được đoạn code trong VBA như sau:

Trong đoạn code trên ta thấy: đối tượng làm việc ở đây gồm 2 đối tượng:

• Shapes.Fill là màu nền của Shapes
• Shapes.Line là đường kẻ viền của Shapes

Đoạn code trên có thể viết lại thành macro HienShape như sau:

Sub HienShape()With ActiveSheet.Shapes(“Right Arrow 3”).Fill.Visible = msoTrue.ForeColor.ObjectThemeColor = msoThemeColorAccent2End WithWith ActiveSheet.Shapes(“Right Arrow 3”).Line.Visible = msoTrue.ForeColor.ObjectThemeColor = msoThemeColorAccent2End WithEnd Sub

Các nội dung có giá trị = 0 có thể loại bỏ, không cần dùng tới trong câu lệnh mà không ảnh hưởng gì. Ở đây chúng ta chỉ quan tâm tói 2 thuộc tính:

• isible: có xuất hiện hay không. Với msoTrue tức là có xuất hiện, còn msoFalse là không xuất hiện
• ForeColor.ObjectThemColor: tô màu cho đối tượng

Macro ẩn Shape

Câu lệnh ẩn / hiện Shape mỗi lần click

• Khi bấm công tắc vào chế độ ON thì bóng đèn sáng
• Khi bấm công tắc vào chế độ OFF thì bóng đèn tắt

• Quy ước 1 giá trị đại diện cho việc Ẩn / hiện, ví dụ 1 là Hiện, 0 là Ẩn
• Mỗi khi click để hiện, gán giá trị 1 vào 1 ô nào đó (ví dụ ô D2)
• Mỗi khi click để ẩn, gán giá trị 0 vào ô D2 thay cho giá trị 1
• Nếu giá trị ô D2 đang là 0 thì sẽ đổi sang 1, còn khi giá trị ô D2 đang là 1 sẽ đổi sang 0

Sub AnHienShape()If Range(“D2”).Value = 0 Then ‘Nếu giá trị ô D2 đang là 0 thìCall HienShape ‘Chạy lệnh HienShapeRange(“D2”).Value = 1 ‘Đổi giá trị tại D2 sang 1ElseIf Range(“D2”).Value = 1 Then ‘Nếu giá trị ô D2 đang là 1 thìCall AnShape ‘Chạy lệnh AnShapeRange(“D2”).Value = 0 ‘Đổi giá trị D2 sang 0End If ‘Kết thúc cấu trúc IFEnd Sub

• Bấm chuột phải vào shape Ẩn/hiện
• Chọn Assign Macro
• Trong cửa sổ Assign Macro chọn macro AnHienShape