Menu - VBA
Aby dodać przy pomocy VBA nową pozycję menu:
Sub dodaj_NoweMenu()'dodaje NoweMenu do paska menu Set NoweMenu = CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControlPopup, before:=10)
'before:=10 - określa w którym miejscu wstawia NoweMenu NoweMenu.Caption = "&NoweMenu"'dodaje pozycję do nowego menu Set poz1 = NoweMenu.Controls.Add With poz1 .Caption = "&Poz1" .OnAction = "mojemakro5" .FaceId = 160 End With'dodaje pozycję rozwijaną do menu NoweMenu Set poz2 = NoweMenu.Controls.Add(Type:=msoControlPopup) With poz2 .Caption = "&Poz2" End With Set podpoz1 = poz2.Controls.Add With podpoz1 .Caption = "&Podpoz1" .Style = msoButtonIconAndCaption .OnAction = "mojemakro3" .FaceId = 1096 End With Set podpoz2 = poz2.Controls.Add With podpoz2 .Caption = "&Podpoz2" .Style = msoButtonIconAndCaption .OnAction = "mojemakro4" .FaceId = 126 End With'rozpoczyna grupę dla Poz2 poz2.BeginGroup = TrueEnd Sub
Kod usuwający nasze menu:
Sub usun_NoweMenu()On Error GoTo koniec Set NoweMenu = CommandBars("Worksheet Menu Bar").Controls("&NoweMenu") NoweMenu.Deletekoniec:
End Sub
kkkate