Need to cast OleObject to CombBbox
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
--
Regards,
Tom Ogilvy
"Liline" wrote in message
...
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 ?
|