ComboBox .List problem
I'm using VB6 to create Excel files and add .bas files to it. From VB6, I'm
running a subroutine (macro) in the Excel file (it belongs to a .bas file I just added) that adds an Excel Forms combobox to a sheet and sets its source to a named range on another sheet. Here's the code snippet I'm running: Set CB = WS.DropDowns.Add(Left, Top, 128.25, 15.75) '(Left, Top, Width, Height) With CB .Name = Name .ListFillRange = Source .ListIndex = 0 .DropDownLines = 8 .Display3DShading = False .OnAction = Name & "_Change" End With This all appears to be working (except the .ListIndex is not actually setting the text of the combobox to the first value - this is not my real problem). Next, I'm running the Change event of the combobox I just added (I also added the Change event subroutine through code, in case that matters). In it I have the following line: SelectedValue = WS.DropDowns("cmbServices").List(WS.DropDowns("cmb Services").ListIndex) When I'm in VB6 running this as a macro, the above line errors off saying "Unable to get the List property of the DropDown class". However, if I save the Excel file and open it, then this line of code works perfectly. Any ideas? Thx. |
ComboBox .List problem
One other note is that the second part of the line is working. In
SelectedValue = WS.DropDowns("cmbServices").List(WS.DropDowns("cmb Services").ListIndex) The WS.DropDowns("cmbServices").ListIndex does contain a value of zero. So, it does see the object. |
All times are GMT +1. The time now is 11:26 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com