Выпадающие списки внутри создаваемых новых книг excel

[Юлианн]

Реализован метод создания большого числа файлов excel с динамическим именем и соответствующими данными.
Есть необходимость в этих файлах реализовать 3 выпадающих списка: 2 выбираются только из заданных значений ("Должность" и "ФИО"), третий выбирается и в него вставляются дополнительные данные (решение по вопросу - один из вариантов, в котором прописывается всегда разный номер карты и дополнительные параметры).
Если воспользоваться макрорекордером (даже для банальных ФИО и должности) и поместить результат в код, в новых файлах после закрытия и сохранения (задал програмно - большое же число файлов) списки исчезают.
Если брать пару комбоксов и радиобэттон - им необходимо присваивать код (да, очень по-русски "присваивать код" - не смеяться!) внутри каждого файла.
Что делать? Как быть?? Я озадачен. Надеюсь на вашу помощь.

[kuklp]

Текста много, а понял смутно. Создайте шаблон со всеми нужными контролами и на его основании создавайте файлы.

[Юлианн]

Ок. Немного проще буду. Как ListFillRange программно задать для комбобокса на листе?

[kuklp]

ActiveSheet.Shapes("Drop Down 1").DrawingObject.ListFillRange = "$b$1:$b$28"

Или:

ActiveSheet.DrawingObjects("Drop Down 1").ListFillRange = "$b$1:$b$28"

[staniiislav]

Me.ComboBox1.List = Range("A1:A10").Value
Me.ComboBox1.RowSource = "$A$1:$A$10"

можно еще через массивы...

[staniiislav]

наверное я не совсем то предложил

[Юлианн]

Буду краток. Ничего из вышесказанного не подошло, но всё-равно спасибо!

Вот как решил задачу: создаем combobox на листе и задаем ему значения выпадающего списка с другого листа

ActiveWorkbook.OLEObject.Add(ClassType:="Forms.ComboBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=0, Top:=348, Width:=780,Height:=31.5). _
Select
ActiveWorkbook.Shapes("ComboBox1").OLEFormat.Object.ListFillRange = "Лист1!A1:A4"
ActiveWorkbook.Shapes("ComboBox1").OLEFormat.Object.LinkCell = "A72"

немного по-детски. знаю

Вот ищу теперь только как цвет фона combobox сменить - ибо через OleFormat не хочет слушаться...