ErikssonСложность в том что мне надо создать от 10 до 200 одинковых комбобоксов (с одним и тем же содержанием - к примеру: нал, б/нал) на рабочем листе Exel'я. Т.е. я не знаю сколько их будет - это зависит от объема базы...
OK, предположим.
Eriksson и использовать Worksheets(1).ComboBox1.Additem не получиться (((... Подскажите пожалуста - как это можно реализовать ? Как программно будет осуществляться доступ к объектам?
Eriksson, надо различать control extender от самого control. Control extender на листе Excel - это OLEObject (жать F2, смотреть свойства/методы/события в Object Browser). В control extender может быть помещён некий ActiveX control со своими свойствами/методами/событиями (подключать библиотеку, если не подключена, жать F2, смотреть). Чтобы до них добраться программно универсальным способом, надо обратиться к свойству Object экземпляра OLEObject, убедиться, что объект нужного типа, и общаться с ним соответственно.
Что из этого следует. Во-первых, что удобно получить нормальную типизированную ссылку на объект - чтобы и раннее связывание работало, и редактор список свойств/методов показывал. См. пример выше. Во-вторых, следует, что неплохо бы, а то и просто необходимо (если надо ловить события от неопределённого количества объектов, например), иметь свои коллекции (обычно) однотипных объектов. Вот пара перекликающихся тем для изучения:
1 ,
2 .
Пример на AddItem:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Sub TestComboboxAddItem()
Dim objOle As Excel.OLEObject
Dim cboCombo As MSForms.ComboBox
Set objOle = ActiveSheet.OLEObjects.Add( _
ClassType:="Forms.ComboBox.1", Link:=False, DisplayAsIcon:=False, _
Left:= 38 . 25 , Top:= 33 . 75 , Width:= 144 , Height:= 21 . 75 )
Set cboCombo = objOle.Object
With cboCombo
.AddItem "вот это первый"
.AddItem "а вот второй"
.AddItem "а это третий - три аккорда"
End With
End Sub
Пример на заполнение выпадающего списка через свойство OLEObject.ListFillRange. Может быть удобней, если надо заполнять много списков одним и тем же.
1.
2.
3.
4.
5.
6.
Sub TestListFillRange()
Dim objOle As Excel.OLEObject
Set objOle = ActiveSheet.OLEObjects.Add( _
ClassType:="Forms.ComboBox.1", Link:=False, DisplayAsIcon:=False, _
Left:= 38 . 25 , Top:= 33 . 75 , Width:= 144 , Height:= 21 . 75 )
objOle.ListFillRange = "R4C7:R7C7"
End Sub
