Ana Menülere İlave Menü Yapmak

Bir menü eklemek istiyorsanız o halde şu kodları sayfanıza ekleyin ve istediğiniz bölümlerini düzenleyip kendinize özelleştirin.
Aşağıdaki kodları modül kısmına yazın, dosyanızı kaydedip kapatın ve yeniden açın. Menünün ana menü grubuna eklendiğini göreceksiniz.

    Sub auto_open()
    Set AnaMenu1 = Application.CommandBars(1).Controls.Add(msoControlPopup, , , , True)

    With AnaMenu1
    .Caption = "Ana Menü-1 &Oluşturma"
    .Tag = "ÖzelMenü"
    .BeginGroup = True
    End With

    With AnaMenu1.Controls.Add(msoControlButton, 1, , , True)
    .Caption = "Komut 1"
    .FaceId = 325
    .OnAction = "Komut_1"
    End With

    With AnaMenu1.Controls.Add(msoControlButton, 1, , , True)
    .Caption = "Komut 2"
    .FaceId = 356
    .OnAction = "Komut_2"
    End With         

    Set AltMenu = AnaMenu1.Controls.Add(msoControlPopup, 1, , , True)
            With AltMenu
            .Caption = "Alt Menü Oluşturma"
            .BeginGroup = True
            End With

                    With AltMenu.Controls.Add(msoControlButton, 1, , , True)
                    .Caption = "Alt Komut 1"
                    .FaceId = 343
                    .OnAction = "Alt_Komut_1"
                    .BeginGroup = True
                    End With
                   
                    With AltMenu.Controls.Add(msoControlButton, 1, , , True)
                    .Caption = "Alt Komut 2"
                    .Style = msoButtonIconAndCaption
                    .FaceId = 146
                    .OnAction = "Alt_Komut_2"
                    End With
       
                    With AltMenu.Controls.Add(msoControlButton, 1, , , True)
                    .Caption = "Alt Komut 3"
                    .FaceId = 446
                    .OnAction = "Alt_Komut_3"
                    .Enabled = False
                    End With
       
                    With AltMenu.Controls.Add(msoControlButton, 1, , , True)
                    .Caption = "Alt Komut 4"
                    .FaceId = 219
                    .OnAction = "Alt_Komut_4"
                    End With   

    With AnaMenu1.Controls.Add(msoControlButton, 1, , , True)
    .Caption = "Komut 3"
    .FaceId = 386
    .OnAction = "Komut_3"
    .BeginGroup = True
    End With

    With AnaMenu1.Controls.Add(msoControlButton, 1, , , True)
    .Caption = "Komut 4"
    .FaceId = 542
    .OnAction = "Komut_4"
    .BeginGroup = True
    End With
               
            Set AltMenu2 = AnaMenu1.Controls.Add(msoControlPopup, 1, , , True)
            With AltMenu2
            .Caption = "Alt Menü Oluşturma 2"
            .BeginGroup = True
            End With

                    With AltMenu2.Controls.Add(msoControlButton, 1, , , True)
                    .Caption = "Alt Komut 1"
                    .FaceId = 257
                    .OnAction = "Alt_Komut_1"
                    .BeginGroup = True
                    .State = msoButtonDown ' or msoButtonUp
                    End With
                   
                    With AltMenu2.Controls.Add(msoControlButton, 1, , , True)
                    .Caption = "Alt Komut 2"
                    .FaceId = 45
                    .OnAction = "Alt_Komut_2"
                    End With
       
                    With AltMenu2.Controls.Add(msoControlButton, 1, , , True)
                    .Caption = "Alt Komut 3"
                    .FaceId = 87
                    .OnAction = "Alt_Komut_3"
                    End With
       

    With AnaMenu1.Controls.Add(msoControlButton, 1, , , True)
    .Caption = "Komut 5"
    .FaceId = 15
    .OnAction = "Komut_5"
    .BeginGroup = True
    End With
    End Sub

Menüyü iptal etmek için :

    Sub Menu_Sil()
    DeleteCustomCommandBarControl "ÖzelMenü" ' yeni menüyü siler
    End Sub

Private Sub DeleteCustomCommandBarControl(CustomControlTag As String)
On Error Resume Next
Do
Application.CommandBars.FindControl(, , CustomControlTag, False).Delete
Loop Until Application.CommandBars.FindControl(, , CustomControlTag, False) Is Nothing
On Error GoTo 0
End Sub

Sub auto_close()
Menu_Sil
End Sub

alıntıdır...(Kaynak:excelvba.net)