Làm thế nào để thêm một số lệnh thường dùng vào nút phải chuột trong Excel?

15.5901

Trả lời :
Excel (hay các ứng dụng khác trong bộ Microsoft Office) quản lý nhiều menu khác nhau, mỗi menu được nhận dạng thông qua tên riêng. Thí dụ menu pop-up được hiển thị mỗi khi bạn ấn phải chuột trên 1 cell bảng tính có tên là menu "Cell". Microsoft cho phép người dùng được toàn quyền truy xuất, hiệu chỉnh nội dung của từng menu. Thí dụ macro VBA sau đây cho phép bạn thêm 1 lệnh (control) mới vào menu pop-up "Cell":

Sub AddMenuItem()
'định nghĩa biến tham khảo đến menu.
Dim objCommandBar As Office.CommandBar
'định nghĩa biến tham khảo đến control option.
Dim objCommandBarButton As Office.CommandBarButton
'Xác định menu "Cell"
Set objCommandBar = Application.CommandBars.Item("Cell")
'thêm 1 option (lệnh) mới vào menu "Cell"
Set objCommandBarButton = objCommandBar.Controls.Add(msoControlButton)
'thiết lập các thuộc tính cho option mới
With objCommandBarButton
.Caption = "Chuc nang 1"
.FaceId = 43
.Style = msoButtonIconAndCaption
.OnAction = "OnChucNang1"
End With
End Sub
'thủ tục xử lý option mới
Sub OnChucNang1()
'thí dụ thông báo cho người dùng biết
MsgBox "Bạn mới ấn chức năng 1"
End Sub
0--1

Liên hệ xóa tin: [email protected]