Can you place a combo box in a custom toolbar?

  • Thread starter Thread starter coosk
  • Start date Start date
Try something like the following:

Sub Init()
Dim Cbx As Office.CommandBarComboBox
Set Cbx = Application.CommandBars("Standard").Controls.Add( _
Type:=msoControlComboBox)
With Cbx
.Caption = "Choose"
.Tag = "Combobox1"
.AddItem "Item 1"
.AddItem "Item 2"
.AddItem "Item 3"
.OnAction = ThisWorkbook.Name & "!CbxClick"
End With
End Sub

Sub CbxClick()
Dim Cbx As Office.CommandBarComboBox
Set Cbx = Application.CommandBars.ActionControl
MsgBox "You choose: " & Cbx.List(Cbx.ListIndex)
End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com (e-mail address removed)
 
Back
Top