[raus]

не могу додумать, как в Офисе 2007 создать свои "Панели инструментов"

это:

Set cbar1 = CommandBars.Add(name:="CommandBarsNew", Position:=msoBarBottom) 
cbar1.Visible = True

не работает. Кто чё может подсказать?

[Sneezy]

.Visible = True

насколько я помню это делает только видимым или невидимым элемент ( невидимый false). Саму панельку ты вроде как не создал.

[raus]

это CommandBars.Add и есть добавить

там как то все через Ж... Динамические библиотеки аки на рисунке я ессно писать не умею.

"подцеплять" шаблоны dot тоже как то через (_*_) получается... некрасиво....

[igor177-ipristav]

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

не могу додумать, как в Офисе 2007 создать свои "Панели инструментов"

это:

Set cbar1 = CommandBars.Add(name:="CommandBarsNew", Position:=msoBarBottom) 
cbar1.Visible = True

не работает. Кто чё может подсказать?

Элементарно.

Сервис - макрос - начать запись.
Далее:
Сервис - настройка - панели инструментов - создать... и рисуй панель какую надо.
И:
Остановить запись макроса.

Открываем редактор барсика и смотрим как это делается, например так:

----
Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 03.11.2009 123
'
CommandBars.Add(Name:="Настраиваемая 1").Visible = True
CommandBars("Настраиваемая 1").Controls.Add Type:=msoControlButton, ID _
:=2522, Before:=1
End Sub
----

В чём различия с вами? А у вас нету "добавить контрол" = CommandBars("Настраиваемая 1").Controls.Add Type:=...
А без хоть одного контрола, по идее должна показывать пустую панель, и где вы на экране захотите её увидеть??? Посмотрите повнимательнее, может оно где-то в углу припряталось...

Ответил?

[raus]

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

Элементарно.

Ответил?

это работает в 2007 офисе? ХМ.... в нем даже менюшки такой нет...