อันดับแรกต้องอ้างอิง References ไปยัง Microsoft Office X.X Object Library แล้วลองนำโค้ดต่อไปนี้ไปลองปรับใช้ดู Sub CreateNew() Dim cbar1 As CommandBar Set cbar1 = CommandBars.Add(Name:="Custom1", Position:=msoBarFloating) cbar1.Visible = True End Sub Sub SpecifyCommandBarAndButton() CreateCustomButton "Custom1", "My custom button" End Sub Function CreateCustomButton(strBarName As String, strName As String) As Integer Dim cmdBar As CommandBar, cmdBarCustomButton As CommandBarButton Set cmdBar = CommandBars(strBarName) ' Show command bar if it's not already visible. If cmdBar.Visible = False Then cmdBar.Visible = True On Error Resume Next Set cmdBarCustomButton = cmdBar.Controls(strName) If Err <> 0 Then ' Custom button doesn't already exist, so create it. msoControlPopup msoControlButton Set cmdBarCustomButton = cmdBar.Controls.Add(msoControlButton, , , , True) Set cmdBarCustomButton = cmdBar.Controls.Add End If With cmdBarCustomButton .Caption = strName .BeginGroup = True .OnAction = "=msgbox(""Hello World"")" ' Run your macro or custom function here. .Style = msoButtonCaption End With End Function Sub AddItemOne() Dim newCombo As CommandBarComboBox Set newCombo = CommandBars("Custom1").Controls _ .Add(Type:=msoControlComboBox) With newCombo .AddItem "Q1" .AddItem "Q2" .AddItem "Q3" .AddItem "Q4" .Style = msoComboNormal .OnAction = "ScrollToQuarter" End With End Sub ศึกษาเพิ่มเติมใน Help โดยใช้คำค้นว่า Menu Bar ดูครับ