Powerpoint Combo-boxes

[jmarcrum]

Hello Everyone!

Thank you for taking the time to view my question! I have a powerpoint slide that I have put a combobox on. In code, I populate the combo box when the user clicks on the drop-down arrow. The code seems to be working fine, however... :)

When the user clicks the drop down arrow, only 1 record is showing. If they click it a second time, it lists all 13-14 records. Why is it doing this? I want all 13-14 records to show the first time the user clicks on the drop-down arrow.

What am I missing??

Here is my code...Thanks for all of your help!!

Private Sub cmb92_GotFocus()

With cmb92
    .Clear
    .AddItem ("3/8 OHSW")
    .AddItem ("7 #8 AW OHSW")
    .AddItem ("0.555 OPGW (Fiber Optic)")
    .AddItem ("101.8 HS ACSR (River)")
    .AddItem ("2/0 ACSR OHSW")
    .AddItem ("397.5 26/7 ACSR")
    .AddItem ("795 26/7 ACSR")
    .AddItem ("795 45/7 ACSR")
    .AddItem ("1033.5 45/7 ACSR")
    .AddItem ("1351.5 54/9 ACSR")
    .AddItem ("795 26/7 SSAC/ACSS")
    .AddItem ("1033.5 45/7 SSAC/ACSS")
    .AddItem ("1351.5 54/19 SSAC/ACSS")
End With

End Sub

[jmarcrum]

Got It

I figured it out...Instead of

Private Sub cmb92_GotFocus()

It's supposed to be

Private Sub cmb92_DropButtonClick()