Setting Forms controls from outside

[Hans Preuer]

Hi,

I will telecommand an excel application from another excel application. All
works fine, except 2 combobox form controls, which I can't set from outside.
How can I set a combobox form control in an App1 by code from my 2nd App?

Set app1 = CreateObject("Excel.Application")
Set wb1 = appSchein.Workbooks.Open("Test.xls")

Set ws1 = wbSchein.Worksheets("Employees")
app1.Visible = True

ws1.Activate
ws1.Shapes("combobox1").select
?????????????????? does not work
SendKeys ("February")
??????????????????

Thanks
Hans

 

[Tom Ogilvy]

You mean a the forms toolbar and not the control toolbox toolbar

Dim drpdown as Excel.DropDown

.. . .


set drpdown = ws1.Dropdowns("combobox1")
drpdown.ListIndex = 2

 

[Hans Preuer]

Hi Tom,

Thank you for your Answer. The combobox is from the control toolbox toolbar
and not from the forms toolbar. Your code always results in an error
("Application or object specific error"). Is it possible to do it with a
toolbar from the controlbox?

Thanks for your help!!!
Hans

 

[Tom Ogilvy]

ws1.Activate
ws1.OleObjects("combobox1").Object.Value = "February"