Re: ComboBox and UserForm_Initialize

Tech-Archive recommends: Fix windows errors by optimizing your registry

A document in which you place a combobox from the controls menu is not a
userform. As a result, there is no userform initialize event that can be
used to populate your combobox.

While I would never use a combobox of that type in a document, if you want
to, you can get it populated by the use of code such as the following in the
This Document module

Private Sub ComboBox1_GotFocus()
Dim i As Long
For i = ComboBox1.ListCount - 1 To 0 Step -1
ComboBox1.RemoveItem (i)
Next i
ComboBox1.AddItem "Above Left"
ComboBox1.AddItem "Above Center"
ComboBox1.AddItem "Above Right"
ComboBox1.AddItem "Below Left"
ComboBox1.AddItem "Below Center"
ComboBox1.AddItem "Below Right"
ComboBox1.AddItem "Centered"
End Sub


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"Scott" <Scott@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:A337691F-9E37-4724-B9FC-A4528C5E2455@xxxxxxxxxxxxxxxx
I used the View>Toolbars>Control Toolbox. After adding the ComboBox I
right
clicked , then view code. Which placed me into Visual Basic. I added the
UserForm_Initialize code as shown in the VBA help example.

Which contains:

Private Sub UserForm_Initialize ()

ComboBox1.AddItem "Above Left"
ComboBox1.AddItem "Above Center"
ComboBox1.AddItem "Above Right"
ComboBox1.AddItem "Below Left"
ComboBox1.AddItem "Below Center"
ComboBox1.AddItem "Below Right"
ComboBox1.AddItem "Centered"

'Use drop-down list
ComboBox1.Style = fmStyleDropDownCombo

'Combo box values are ListIndex values
ComboBox1.BoundColumn = 0

'Set combo box to first entry
ComboBox1.ListIndex = 0
End Sub



I also added the ComboBox1_Change and _Click code into the same window
(titled the same name as my word doc - This Document). The _Change code
works
but the Dropdown List is not populated.

Should I place the Initialization code elsewhere ?

-Scott


"Doug Robbins - Word MVP" wrote:

How are you calling the UserForm?

Is it really a UserForm or have you inserted controls directly into the
document from the View>Toolbars>Control Toolbox?

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"Scott" <Scott@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:FD64BE86-8A59-475D-9525-5BAEDC553AFD@xxxxxxxxxxxxxxxx
I am trying to implement a comboBox using the controls menu. I have
writtem
a
UserForm_Initialize routine but it seems not to execute. When I click
on
the
drop down all I get is a blank dropdown space with the down arrow. The
drop
down menu is not populated (initialized), However if I use the debugger
to
step through the UserForm_Initialze routine all works fine the comboBox
is
populated and I can make different selections. What gives? When/How is
the
UserForm_Initialize routine executed? How can I force the routine to be
executed ? Or is there something else I need to do?

-Thanks in advance





.

Relevant Pages

  • Re: Drop down list with 100 items + using AutoComplete
    ... What I added is the method to control the combobox "look". ... ' Load the ListBox with the retrieved records ... Consider building the userform to accommodate all the questions, ... Now I need to populate the combobox with the 100 + items from my ...
    (microsoft.public.word.vba.general)
  • RE: "ComboBox1.ListIndex = 0" Doesnt seem to always work.
    ... event won't fire when you show it again and your ComboBox will show the last ... I have "ComboBox1" on a UserForm. ... In the Sub Form Initialize procedure, ...
    (microsoft.public.excel.programming)
  • Re: combo box, drop down - dynamic populate
    ... procedure to populate the combobox. ... The ClientID public variable will be ... There is a clientid value in that field before the userform ...
    (microsoft.public.word.vba.general)
  • Re: Populate a combo box
    ... I am using the add item way to populate a combobox in a userform ... Private Sub Userform_Initialize ...
    (microsoft.public.excel.misc)
  • populating one list/combobox based on the results of another
    ... I'd be grateful if someone could help with what i think is probably quite a ... I have a userform with two comboboxes; the data for these come from one ... single row) and this works fine; what i can't do is populate the the second ... (as chosen in the first combobox). ...
    (microsoft.public.excel.programming)