22 VBA Advanced (Adding Customized Menu and Add Ins)

22 VBA Advanced

Follow-up of VBA Beyond Basics and VBA for EveryOne Series

Topics in this Video:
Adding Customized Menu to Excel Ribbon
Creating Add-Ins

My Blog: https://letsxcel.blogspot.com/

Code:
Sub vMenuCeator()

Dim vNewMenu As CommandBarPopup
Dim vSubMenu As Object
Dim vMenuItem As CommandBarButton

'Add Menu & Name it
Set vNewMenu = Application.CommandBars(1). _
Controls.Add(Type:=msoControlPopup, Temporary:=True)
vNewMenu.Caption = "New Menu"

'Add Sub Menu
Set vSubMenu = vNewMenu.Controls.Add _
(Type:=msoControlPopup)
vSubMenu.Caption = "My Commands 1"

'Menu Item 1
Set vMenuItem = vSubMenu.Controls.Add _
(Type:=msoControlButton)

vMenuItem.OnAction = "vHelloWorld"
vMenuItem.Caption = "Run Pop-Up Macro"
vMenuItem.FaceId = 230

'Menu Item 2
Set vMenuItem = vSubMenu.Controls.Add _
(Type:=msoControlButton)

vMenuItem.OnAction = "vHelloWorld"
vMenuItem.Caption = "Button 2"
vMenuItem.FaceId = 23

End Sub
Sub vHelloWorld()
MsgBox ("Hello World")
End Sub
Sub vDeleteMenu()
Application.CommandBars(1).Controls _
("New Menu").Delete
End Sub

Видео 22 VBA Advanced (Adding Customized Menu and Add Ins) канала 545sytes