Aşağıdaki örnek, bir veya daha fazla bağımsız değişkeni bir makroya ileten Komut Çubuğu düğmelerini/menülerini nasıl oluşturabileceğinizi gösterir.
örnek ayrıca Hücre kısayol menüsüne nasıl yeni bir öğe ekleyebileceğinizi gösterir.
Sub AddCommandToCellShortcutMenu() Dim i Integer, ctrl As CommandBarButton DeleteAllCustomControls ' zaten varsa kontrolleri silin ' yeni kontroller oluşturun Application.CommandBars(25) ile ' hücre kısayol menüsü ' sıradan bir komut çubuğu düğmesi ekleyin ctrl = .Controls.Add (msoControlButton, , , , True) ctrl ile .BeginGroup = True .Caption = "New Menu1" .FaceId = 71 .State = msoButtonUp .Style = msoButtonIconAndCaption .Tag = "TESTTAG1" .OnAction2 ile EndAction2 = "MyMacroName" bir dize bağımsız değişkeni geçen düğme Set ctrl = .Controls.Add(msoControlButton, , , , , True) ctrl ile .BeginGroup = False .Caption = "Yeni Menü2" .FaceId = 72 .Style = msoButtonIconAndCaption .Tag = "TESTTAG2" . = "'MyMacroName2 ""Yeni Menü2"""" İle Bitir ' ile bir dize argümanını geçen bir düğme ekleyin Set ctrl = .Controls.Add(msoControlButton, , , , True) ctrl ile .BeginGroup = False .Caption = "Yeni Menu3" .FaceId = 73 .Style = msoButtonIconAndCaption .Tag = "TESTTAG3" .OnAction = "'MyMacroName2 """ & .Caption & """'" End With ' iki bağımsız değişken, bir dize ve bir tamsayı ileten bir düğme ekleyin Set ctrl = .Controls.Add(msoControlButton, , , , , True) ctrl ile. BeginGroup = False .Caption = "Yeni Menü4" .FaceId = 74 .Style = msoButtonIconAndCaption .Tag = "TESTTAG4" .OnAction = "'MyMacroName3 """ & .Caption & """, 10'" Bitiş ile Bitiş ctrl ctrl = Nothing End Sub Sub DeleteAllCustomControls() ' zaten varsa kontrolleri sil Dim i As Integer For i = 1 ila 4 DeleteCustomCommandBarControl "TESTTAG" & i Next i End Sub Private Sub DeleteCustomCommandBarControl(CustomControlTag As String) ' ile TÜM CommandBar kontrollerini siler Tag = CustomControlTag Açık Hata Devam Et Sonrakini Yap Application.CommandBars.FindControl(, , CustomControlTag, False).Delete Döngü Application.CommandBars.FindControl(, , _ CustomControlTag, False) Hatada Hiçbir Şey Olmayana Kadar GoTo 0 End Sub ' tarafından kullanılan örnek makrolar komut çubuğu düğmeleri Sub MyMacroName1() MsgBox "Time is " & Format(Time, "h s:dd:ss") End Sub Sub MyMacroName2(İsteğe Bağlı MsgBoxCaption As String = "UNKNOWN") MsgBox "Time is " & Format(Time, "ss:dd:ss"), , _ "Bu makro başlatıldı " & MsgBoxCaption End Sub Sub MyMacroName3(MsgBoxCaption As String, DisplayValue As Integer) MsgBox "The time is " & Format(Time, "ss:dd:ss"), , _ MsgBoxCaption & " " & DisplayValue End Sub