Need to cast OleObject to CombBbox

[Liline]

Hello,
I would need to cast an OleObject into a Combobox because VBA Excel doesn't
seem to do it implicitely
That is for using the AddItem method on it (this method is not supported by
the OleObject)

This is my code
' OleObject(1) is supposed to be a combobox
ActiveSheet.OleObjects(1).AddItem "Hello"

Can someone help me please ?

 

[Tom Ogilvy]

OleObject(1) is supposed to be a combobox
if typeof OleObjects(1).Object is MSForms.Combobox then
ActiveSheet.OleObjects(1).Object AddItem "Hello"
End if

additem is a method of the combobox. OleObjects(1).Object is the combobox

for example:

Sub Tester3()
Dim rng As Range
Dim cell As Range
Set rng = Range(Cells(3, "A"), _
Cells(Rows.Count, "A").End(xlUp))
For Each cell In rng
ActiveSheet.OLEObjects(1).Object.AddItem cell.Text
Next

End Sub