Excel VBA: how to cast a generic control object into a ComboBox object?

Question

I need to cast a generic VBA form control object into a ComboBox object so that I can add items to it. The generic object won't allow me to insert items into my existing lists

Dim ctlCurrent As MSForms.Control
For Each ctlCurrent In frmItemInput.Controls
    If TypeName(ctlCurrent) = "ComboBox" Then
         Dim lbCurrentComboBox As MSForms.ComboBox
         lbCurrentComboBox = ctlCurrent 'This is where the error occurs, when I try to convert one into another

         ' Adiciona os itens necessários
         lbCurrentComboBox.AddItem ("R")
         lbCurrentComboBox.AddItem ("D")
    End If
Next ctlCurrent

My problem is: I have tons of ComboBoxes in my form and I need to add the same options for all of them. So I would like to do this progrmatically.

henchman has it right. You need to use Set. – Stewbob Mar 03 '10 at 02:10 — Stewbob, Mar 03 '10 at 02:10

score 15 · Accepted Answer · answered Mar 03 '10 at 01:47

15

You can "cast" an VBA Object by using SET, eg:

SET lbCurrentComboBox = ctlCurrent

answered Mar 03 '10 at 01:47

Phil Rykoff

11,999
3
39
63

score 8 · Answer 2 · edited May 23 '17 at 10:29

8

If phil's answer didn't work try

SET lbCurrentComboBox = ctlCurrent.Object

edited May 23 '17 at 10:29

Community

1
1

answered Apr 13 '12 at 17:51

Mahmoud Ghozlan

89
1
1

Excel VBA: how to cast a generic control object into a ComboBox object?

2 Answers2

Linked