Tālāk sniegtajā piemērā ir parādīts, kā varat izveidot CommandBar pogas/izvēlnes, kas makro nosūta vienu vai vairākus argumentus.
piemērs arī parāda, kā jūs varat pievienot jaunu vienumu šūnu saīsnes izvēlnei.
Sub AddCommandToCellShortcutMenu () Dim i Kā vesels skaitlis, ctrl Kā CommandBarButton DeleteAllCustomControls "izdzēš vadīklas, ja tās jau pastāv" izveido jaunas vadīklas ar Application.CommandBars (25) "šūnu īsinājumizvēlne" pievieno parastu komandu pogu Set ctrl = .Controls.Add (msoControlButton ,. poga, kas nodod vienu virknes argumentu Iestatiet ctrl = .Controls.Add (msoControlButton,,,, True) Ar ctrl .BeginGroup = False .Caption = "Jauna izvēlne2" .FaceId = 72 .Style = msoButtonIconAndCaption .Tag = "TESTTAG2" .OnAction = "'MyMacroName2" "Jauna izvēlne2" "" "Beigt ar" pievienot pogu, kas nokārto, iziet vienu virknes argumentu. Iestatīt ctrl = .Controls.Add (msoControlButton,,,, True) Ar ctrl .BeginGroup = False .Caption = "Jauns Izvēlne3 ".FaceId = 73 .Style = msoButtonIconAndCaption .Tag =" TESTTAG3 ".OnAction = "'MyMacroName2" "" & .Caption & "" "'" Beigt ar "pievienot pogu, kas nodod divus argumentus, virkni un veselu skaitli Set ctrl = .Controls.Add (msoControlButton,,,, True) Ar ctrl. BeginGroup = False .Caption = "Jauna izvēlne4" .FaceId = 74 .Style = msoButtonIconAndCaption .Tag = "TESTTAG4" .OnAction = "'MyMacroName3" "" & .Caption & "" ", 10'" Beigt ar beigas ar iestatījumu ctrl = Nothing End Sub Sub DeleteAllCustomControls () 'izdzēsiet vadīklas, ja tās jau pastāv Dim i As Integer For i = 1 to 4 DeleteCustomCommandBarControl "TESTTAG" & i Next i End Sub Private Sub DeleteCustomCommandBarControl (CustomControlTag As String) "izdzēš visas CommandBar vadīklas ar Tag = CustomControlTag On Error Atsākt Next Do Application.CommandBars.FindControl (,, CustomControlTag, False). Dzēst cilpu līdz Application.CommandBars.FindControl (,, _ CustomControlTag, False) Is Nothing On Error GoTo 0 End Sub 'example makro komandjoslas pogas Sub MyMacroName1 () MsgBox "Laiks ir" & Format (Time, h h: mm: ss ") Beigt apakšsadaļu MyMacroName2 (pēc izvēles MsgBoxCaption As String =" UNKNOWN ") MsgBox" Laiks ir "un formāts (laiks," hh: mm: ss "),, _" Šis makro tika sākts no " & MsgBoxCaption beigu apakšapakšdaļa MyMacroName3 (MsgBoxCaption kā virkne, DisplayValue kā vesels skaitlis) MsgBox "Laiks ir" & Format (Time, "hh: mm: ss"),, _ MsgBoxCaption & "" un DisplayValue End Sub