Редактирование свойств форм

[tae1980]

В ячейке A1 расположена "Форма" "Поле со список".
Как из VBA редактировать его свойства? В частности нужно изменить ячейку на которую для вывода номера выбранного пункта.

[nemoomen]

Я сделал следующее:
Запустил на запись макрос, сделал изменения в свойствах раскрывающегося списка (поменял связаную ячейку на С1), остановил макрос и посмотрел, что получилось.

Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 22.03.2009 (User)
'

'
    ActiveSheet.Shapes("Drop Down 1").Select
    With Selection
        .ListFillRange = "$D$4:$D$13"
        .LinkedCell = "$C$1"
        .DropDownLines = 8
        .Display3DShading = False
    End With
    Range("C18").Select
End Sub

Осталось подредактировать и подогнать под свои потребности.

Очень полезное упражнение. Я им частенько пользуюсь!

[tae1980]

Сообщение от nemoomen

Sub Макрос1()
    ActiveSheet.Shapes("Drop Down 1").Select
    With Selection
    Range("C18").Select
End Sub

Что-то я про тормозил.....
Хорошо, а если на листе много подобных форм. И создавались они методом копирования через буфер обмена то есть имена их не известны. Но я знаю адреса ячеек на которых они располагаться. Ситуация может осложняться тем что копирование и удаление форм могут идти совершенно произвольном порядке, отследить который нет ни какой возможности.
Как быть с выбором нужной "формы" на редактирование в этом случае?

[nemoomen]

И создавались они методом копирования через буфер обмена то есть имена их не известны.

Правой кнопкой мыши на форме, смотрим на строку формул, слева в окошке будет имя формы в твоем примере - "Раскр. список 1"

ActiveSheet.Shapes("Drop Down 1").Select

ActiveSheet.Shapes("Раскр. список 1").Select

Оба кода в данном случае равноценны.

[EducatedFool]

Программно узнать параметры комбобокса можно так:

Sub ВыводИнформацииОКомбобоксах()
    Dim sh As Worksheet, dd As DropDown: Set sh = ActiveSheet
    For i = 1 To sh.DropDowns.Count
        Set dd = sh.DropDowns(i)
        Debug.Print dd.Name & "  расположен в ячейке  " & dd.TopLeftCell.Address
    Next i
End Sub

В результате получаем что-то вроде этого:

Drop Down 7 расположен в ячейке $A$13
Drop Down 8 расположен в ячейке $A$14
Drop Down 9 расположен в ячейке $D$17

Аналогично, если нам известен адрес ячейки, в которой расположен комбобокс, мы легко сможем его найти, перебирая все комбобоксы на листе в поисках того, у которого свойство TopLeftCell равно адресу нужной ячейки.