Drop Down List Box size too small

Howdie,

I have created a macro that launches a drop down list box, problem is
the list box is to small, left to right, to hold the length of
charchters I want to include in it, how do I change the length or style
of the list box....

Below is extracted code in case it sheds some light....

Thanks

D

' Set properties of the drop-down list box.
Set cbcCommandBarListBox = _
.Add(Type:=msoControlDropdown)
With cbcCommandBarListBox
.AddItem " .Add new sample"
.AddItem " .Modify exisiting sample"
.ListIndex = 1
.Caption = "I want to.."
.Style = msoComboLabel
.BeginGroup = True
.OnAction = "LaunchMacro_comment"
.Tag = "lstSet_Sample_size"
End With


*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

The CommandBarCombobox has a width property. Try setting that to something
wider.

--
Regards,
Tom Ogilvy

"Darin Kramer" <darin_kramer@hotmail.com> wrote in message
news:eQP0H9eCFHA.520@TK2MSFTNGP09.phx.gbl...
>
> Howdie,
>
> I have created a macro that launches a drop down list box, problem is
> the list box is to small, left to right, to hold the length of
> charchters I want to include in it, how do I change the length or style
> of the list box....
>
> Below is extracted code in case it sheds some light....
>
> Thanks
>
> D
>
> ' Set properties of the drop-down list box.
> Set cbcCommandBarListBox = _
> .Add(Type:=msoControlDropdown)
> With cbcCommandBarListBox
> .AddItem " .Add new sample"
> .AddItem " .Modify exisiting sample"
> .ListIndex = 1
> .Caption = "I want to.."
> .Style = msoComboLabel
> .BeginGroup = True
> .OnAction = "LaunchMacro_comment"
> .Tag = "lstSet_Sample_size"
> End With
>
>
> *** Sent via Developersdex http://www.developersdex.com ***
> Don't just participate in USENET...get rewarded for it!