Το παρακάτω παράδειγμα δείχνει πώς μπορείτε να δημιουργήσετε κουμπιά/μενού CommandBar που περνούν ένα ή περισσότερα ορίσματα σε μια μακροεντολή.
Το παράδειγμα δείχνει επίσης πώς μπορείτε να προσθέσετε ένα νέο στοιχείο στο μενού συντόμευσης κυψέλης.
Sub AddCommandToCellShortcutMenu () Dim i As Integer, ctrl As CommandBarButton DeleteAllCustomControls 'διαγράψτε τα στοιχεία ελέγχου αν υπάρχουν ήδη' δημιουργήστε τα νέα στοιχεία ελέγχου με το Application.CommandBars (25) 'το μενού συντόμευσης κυψέλης' προσθέστε ένα συνηθισμένο commandbarbutton Set ctrl = .Controls. (msoControlButton,,,, True) Με ctrl .BeginGroup = True .Caption = "New Menu1" .FaceId = 71 .State = msoButtonUp .Style = msoButtonIconAndCaption .Tag = "TESTTAG1" .OnAction = "MyMacroName2 κουμπί που περνά ένα όρισμα συμβολοσειράς Ορίστε ctrl = .Controls.Add (msoControlButton,,,, True) Με ctrl .BeginGroup = False .Caption = "New Menu2" .FaceId = 72 .Style = msoButtonIconAndCaption .Tag = "TESTTAG2" .OnA = "'MyMacroName2" "New Menu2" "" "End With" προσθέστε ένα κουμπί που περνάει περνάει ένα όρισμα συμβολοσειράς ctrl = .Controls.Add (msoControlButton,,,, True) Με ctrl .BeginGroup = False .Caption = "New Μενού3 ".FaceId = 73 .Style = msoButtonIconAndCaption .Tag =" TESTTAG3 ".OnAction = "'MyMacroName2" "" & .Caption & "" "" "End with" προσθέστε ένα κουμπί που περνά δύο ορίσματα, μια συμβολοσειρά και έναν ακέραιο Σύνολο ctrl = .Controls.Add (msoControlButton,,,, True) Με ctrl BeginGroup = Λάθος .Caption = "Νέο μενού4" .FaceId = 74 .Style = msoButtonIconAndCaption .Tag = "TESTTAG4" .OnAction = "" MyMacroName3 "" "& .Caption &" ", 10" "Τέλος με τέλος με ρύθμιση ctrl = Nothing End Sub Sub DeleteAllCustomControls () 'διαγράψτε τα στοιχεία ελέγχου εάν υπάρχουν ήδη Dim i As Integer For i = 1 έως 4 DeleteCustomCommandBarControl "TESTTAG" & i Next i End Sub Private Sub DeleteCustomCommandBarControl (CustomControlTag As String)' διαγράφει ΟΛΑ τα ControlBar Tag = CustomControlTag On Error Resume Next Do Application.CommandBars.FindControl (,, CustomControlTag, False) .Διαγραφή βρόχου έως την εφαρμογή.CommandBars.FindControl (,,, _ CustomControlTag, False) Δεν χρησιμοποιείται τίποτα στο σφάλμα Παράδειγμα μακροεντολών GoTo 0 End Sub ' τα κουμπιά της γραμμής εντολών Sub MyMacroName1 () MsgBox "The time is" & Format (Time, "h ώρα: ώρα: & MsgBoxCaption End Sub MyMacroName3 (MsgBoxCaption As String, DisplayValue As Integer) MsgBox "The time is" & Format (Time, "hh: mm: ss"),, _ MsgBoxCaption & "" & DisplayValue End Sub