Xin code menu add ins trong Word 2007 (1 người xem)

[trungtamcnc]

Nhờ các bác tư vấn các chỉnh sửa menu do em tạo ra (ảnh đính kèm)
(1) Các biểu tượng đầu dòng các lệnh có thể chỉnh được không? Trong hình là do máy tự tạo. Nếu chỉnh thì chỉnh như thế nào ạ?
(2) Trong hình menu chính là "Công việc", em muốn chia làm 2 nhóm công việc thì làm thế nào ạ?
Cảm ơn các bác đã quan tâm.
Code:
Public Sub AutoExec()
On Error Resume Next
Dim MenuObject As CommandBarPopup
Dim MnC%
CustomizationContext = NormalTemplate

CommandBars("Menu Bar").Controls("&C" + ChrW(244) + "ng vi" + ChrW(7879) + "c").Delete
MnC = CommandBars("Menu Bar").Controls.Count + 1
'Ta?o Menu Mo´i'
Set MenuObject = CommandBars("Menu Bar").Controls.Add(Type:=msoControlPopup, Before:=MnC, Temporary:=True)
MenuObject.Caption = "&C" + ChrW(244) + "ng vi" + ChrW(7879) + "c"

With MenuObject.Controls.Add(Type:=msoControlButton)
'Chen ngay thang hien tai
.OnAction = "Ngaythangnam"
.FaceId = 10
.Caption = "&Ch" + ChrW(232) + "n ng" + ChrW(224) + "y th" + ChrW(225) + "ng hi" + ChrW(7879) + "n t" + ChrW(7841) + "i"
.ShortcutText = "Ctrl + Shift + 1"
End With
' KeyBindings.Add KeyCode:=BuildKeyCode(wdKey1, wdKeyControl, wdKeyShift), _
' KeyCategory:=wdKeyCategoryMacro, Command:="Ngaythangnam()"


With MenuObject.Controls.Add(Type:=msoControlButton)
.OnAction = "Baitapvenha"
.FaceId = 20
.Caption = "BTVN"
.ShortcutText = "Ctrl + Shift + 2"
End With

With MenuObject.Controls.Add(Type:=msoControlButton)
.OnAction = "ABCD"
.FaceId = 30
.Caption = "Ch" + ChrW(232) + "n ABCD"""
.ShortcutText = "Ctrl + Shift + 3"
End With

With MenuObject.Controls.Add(Type:=msoControlButton)
.OnAction = "An_tai_lieu"
.FaceId = 30
.Caption = ChrW(7848) + "n t" + ChrW(224) + "i li" + ChrW(7879) + "u"
.ShortcutText = "Ctrl + Shift + 4"
End With
With MenuObject.Controls.Add(Type:=msoControlButton)
.OnAction = "Hien_tai_lieu"
.FaceId = 40
.Caption = "Hi" + ChrW(7879) + "n t" + ChrW(224) + "i li" + ChrW(7879) + "u"
.ShortcutText = "Ctrl + Shift + 5"
End With
With MenuObject.Controls.Add(Type:=msoControlButton)
.OnAction = "No_format"
.FaceId = 50
.Caption = "Trang l" + ChrW(224) + "m " + ChrW(273) + ChrW(7873)
.ShortcutText = "Ctrl + Shift + 6"
End With
With MenuObject.Controls.Add(Type:=msoControlButton)
.OnAction = "a1DanhsothutuCau"
.FaceId = 60
.Caption = ChrW(272) + ChrW(225) + "nh l" + ChrW(7841) + "i STT c" + ChrW(226) + "u"
.ShortcutText = "Ctrl + Shift + 7"
End With
With MenuObject.Controls.Add(Type:=msoControlButton)
.OnAction = "a1TaoABCD"
.FaceId = 70
.Caption = "S" + ChrW(7855) + "p x" + ChrW(7871) + "p " + ChrW(273) + ChrW(225) + "p " + ChrW(225) + "n ABCD"
.ShortcutText = "Ctrl + Shift + 8"
End With
With MenuObject.Controls.Add(Type:=msoControlButton)
.OnAction = "a1Xoakhoangtrong"
.FaceId = 80
.Caption = "X" + ChrW(243) + "a kho" + ChrW(7843) + "ng tr" + ChrW(7889) + "ng th" + ChrW(7915) + "a"
.ShortcutText = "Ctrl + Shift + 9"
End With
With MenuObject.Controls.Add(Type:=msoControlButton)
.OnAction = "Vanbanchuan"
.FaceId = 90
.Caption = "M" + ChrW(7851) + "u trang chu" + ChrW(7849) + "n"
.ShortcutText = "Ctrl + Shift + 10"
End With

With MenuObject.Controls.Add(Type:=msoControlButton)
.OnAction = "No_format_text"
.FaceId = 100
.Caption = "No_format_text"
.ShortcutText = "Ctrl + Shift + 12"
End With
With MenuObject.Controls.Add(Type:=msoControlButton)
.OnAction = "gt"
.FaceId = 100
.Caption = "Gi" + ChrW(7899) + "i thi" + ChrW(7879) + "u"
.ShortcutText = "Ctrl + Shift + 11"
End With


End Sub

 

[chuot0106]

Nhờ các bác tư vấn các chỉnh sửa menu do em tạo ra
-------------------------------------------------------------------------------------------
End Sub

Tiêu đề topic là xin addins nhưng nội dung lại là nhờ tư vấn tức là sao bạn????

 

[befaint]

(1)_ Thay đổi biểu tượng bởi giá trị .FaceID (Google search: "faceid excel")
(2)_ CommandBars("Menu Bar").Controls.Add() để add thêm menu

 

[tor]

(1) Các biểu tượng đầu dòng các lệnh có thể chỉnh được không? Trong hình là do máy tự tạo. Nếu chỉnh thì chỉnh như thế nào ạ?

» Bạn tải Add-In (mở trên Excel) này về, nó liệt kê các biểu tượng và số FaceId;
» Trong code của bạn, thay số FaceId bằng số FaceId tương ứng với biểu tượng mà bạn ưng ý;

»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»

(2) Trong hình menu chính là "Công việc", em muốn chia làm 2 nhóm công việc thì làm thế nào ạ?

Kịch bản [1/2] --Chia danh sách "Công việc" thành nhiều nhóm, ngăn cách bởi dấu gạch ngang (separator)
» Thêm dòng .Begin Group = True vào cuối khối With..End With

    With MenuObject.Controls.Add(Type:=msoControlButton)
        .OnAction = "gt"
        .FaceId = 100
        .Caption = "Gi" + ChrW(7899) + "i thi" + ChrW(7879) + "u"
        .ShortcutText = "Ctrl + Shift + 11"
        [COLOR="#0000CD"].BeginGroup = True[/COLOR]
    End With

Kịch bản [2/2] --Tạo 2 danh sách riêng
» Bạn có thể tham khảo code sau :

Public Sub AutoExec02()
    Dim STR_GROUP01, STR_GROUP02 As String
    STR_GROUP01 = "&C" + ChrW(244) + "ng vi" + ChrW(7879) + "c 1"
    STR_GROUP02 = "&C" + ChrW(244) + "ng vi" + ChrW(7879) + "c 2"
    '
    On Error Resume Next
    Dim MenuObject1, MenuObject2 As CommandBarPopup
    Dim MnC%
    CustomizationContext = NormalTemplate
    '
    MnC = CommandBars("Menu Bar").Controls.Count + 1
    '
    CommandBars("Menu Bar").Controls(STR_GROUP01).Delete
    Set MenuObject1 = CommandBars("Menu Bar").Controls.Add(Type:=msoControlPopup, Before:=MnC, Temporary:=True)
    MenuObject1.Caption = STR_GROUP01
    '
    CommandBars("Menu Bar").Controls(STR_GROUP02).Delete
    Set MenuObject2 = CommandBars("Menu Bar").Controls.Add(Type:=msoControlPopup, Before:=MnC + 1, Temporary:=True)
    MenuObject2.Caption = STR_GROUP02
End Sub