drop down box

[litoquez]

I am doing this for the first time. I got as far as creating the macro
for a combo box to have it appear on the slide so someone could click
on the drop down arrow and have a list of categories appear from which
they could select one. But when I view the slide the box is empty.
Can anyone walk me through this? Here is my macro:

Private Sub ComboBox1_DropButtonClick()
Sub FillBox()
With Slide6.ComboBox1
End Sub
..AddItem "Information Technology"
..AddItem "Working Capital"
..AddItem "Financial Reporting"
..AddItem "Control & Compliance"
..AddItem "Internal & External Audit"
..AddItem "Forecasting & Budgeting"
..ListIndex = 0
End With
End Sub

 

[Bill Foley]

Well, let's see:

With Slide6.ComboBox1
End Sub
'other stuff here'

Doesn't look like the other stuff (AddItem) will happen!

 

[litoquez]

You're right Bill, my bad on pasting the macro. Excluding the
inadvertent End Sub it still doesn't work for me.

 

[Steve Rindsberg]

This works here. Note that you have to be in slide show view:

Private Sub ComboBox1_DropButtonClick()
With Me.ComboBox1
.AddItem "Information Technology"
.AddItem "Working Capital"
.AddItem "Financial Reporting"
.AddItem "Control & Compliance"
.AddItem "Internal & External Audit"
.AddItem "Forecasting & Budgeting"
.ListIndex = 0
End With
End Sub