? Если вы пишете код, то можете прописать изменения значений нужных вам свойств прямо в коде. Если все делается маркоредактором, то при создании listbox-а, откройте свойства и там установите нужные значения, а почему нужны элементы ActiveX на листе, слышал, что они могут работать не стабильно, сделайте все на форме.
With ActiveSheet.OLEObjects.Add(ClassType:="Forms.ListBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=328.2, Top:=28.8, Width:=191.4, Height:= _
82.8)
...
...
end with
БМВ написал: With ActiveSheet.OLEObjects.Add(ClassType:="Forms.ListBox.1", Link:=False, _ DisplayAsIcon:=False, Left:=328.2, Top:=28.8, Width:=191.4, Height:= _ 82.......end with
О, супер, ListFillRange заполнился, а MultiSelect ошибку выдает "object doesn't support this property or method error 438"
Код
Sub dd()
With ActiveSheet.OLEObjects.Add(ClassType:="Forms.ListBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=328.2, Top:=28.8, Width:=191.4, Height:= _
82.8)
.ListFillRange = "qqq"
.MultiSelect = fmMultiSelectMulti ' object doesn't support this property or method error 438
End With
End Sub
Nordheim написал: Если вы пишете код, то можете прописать изменения значений нужных вам свойств прямо в коде.Если все делается маркоредактором, то при создании listbox-а, откройте свойства и там установите нужные значения, а почему нужны элементы ActiveX на листе, слышал, что они могут работать не стабильно, сделайте все на форме.
Вот в форме мне заполнять эти значения и надоело постоянно, хочу чтобы макрос их заполнял
Nordheim написал: А что мешает их заполнять на форме , во время ее инициализации? По мне так это удобней, чем на листе огород городить. Но это уж кто как привык.
Похоже что так и придется делать, если не научусь, чтобы VBA при создании ListBox .MultiSelect = fmMultiSelectMulti заполнял))