ComboBox ToolBar Button (97, 2K or XP)

[SammyB]

I can create a custom toolbar button which is a combobox (see code below) , but it dosn't seem to have any of the nice autocomplete features that "normal" combobox's have. Also, I don't see any difference between .Style = msoComboNormal and .Style = msoComboLabel. What types of comboboxes/drop-down lists are possible? TIA --Sam
<pre>Option Explicit
Public Sub AddComboBar()
Dim cbar As CommandBar
Dim ctl As CommandBarControl
Set cbar = CommandBars.Add(Name:="Demo", Position:=msoBarTop, _
Temporary:=True)
cbar.Visible = True
Set ctl = cbar.Controls.Add(Type:=msoControlComboBox)
With ctl
.Tag = "HL"
.AddItem "Great"
.AddItem "OK"
.AddItem "Poor"
.ListIndex = 0 ' Nothing selected
.Style = msoComboNormal
.OnAction = "DoComboBar"
End With
End Sub</pre>

[Gary Frieder]

Hi Sam,

Sorry I don't have any specific info, other than it's my impression that it's an incomplete implementation in the Word/VBA object model.

Gary

[jscher2000]

In experimenting with the style, font, and zoom comboboxes, they don't seem to have nice autocomplete features either...

There are illustrations of incredibly fancy looking controls under the Type Property for the control objects. The differences between msoControlDropdown and msoControlComboBox are lost on me. The msoControlGauge could be a fun progress indicator, maybe. The graphic ones look a bit complicated to use. Hmmm...

[Gary Frieder]

Jefferson,

How do you get to those control object Type Property illustrations - curious....

Gary

[SammyB]

In a VBE code window type CommandBars & press F1.
In help, press the CommandBars collection link.
Press the CommandBar ComboBox picture link.
Press the Type property link.

It's a nice table, but not much use.