Application.CommandBars("Name").Position=...

[jetcom]

Привет всем!
Возможно ли применение данной команды в каком-либо контексте, чтобы указать расположение CommandBars("Name") ниже CommandBars("Standard") ???
Потому что если я указываю ей Position=msoBarTop, то при появлении она постоянно сдвигает Стандартную и приходится ручками их сдвигать по своим местам...
Заранее благодарю за дельный совет!

[tyomitch]

Афаик нельзя, но не уверен...

[jetcom]

До того, как хард посыпался, добивался я этого как-то...
Давно это было, - почти год назад, программу восстановил, а этот нюанс не помню, чем достигался...

[proga]

Можно поместить вниз вместо панели рисования. Или тебе нужно поместить только свое меню (.Controls.Add Type:=msoControlPopup)?

[jetcom]

Именно вверх, но следующим по счету, после стандартной панели.
Все ...mso... я естесственно перепробовал.
Наверное, это досигается каким то другим путем...
Что-то типа Before:=

[proga]

читал статью http://vbstreets.ru/VBA/Articles/65843.aspx?

[jetcom]

Да, читал я эту статью, и даже взывал к Виталию...
Но...чего то молчит.

[proga]

После панели приложения вряд ли можно поместить свою или меню, т.к. оно занимает всю строку. Её можно сдвинуть вниз, если мешает или заменить своей, как описано в статье, ну и вставить свои меню на любое место (кроме последнего) любой панели (зачем париться?).

[jetcom]

Следующим по счету сверху вниз, а не слева-направо
Т.е. ни-же, на одну строчку

[jetcom]

А если я создаю не одну, а несколько своих панелей?
Их расположение (очередность сверу-вниз) тоже невозможно задать программно?
И на что это будет похоже?

[tyomitch]

Ну, если смелый - шли Ворду WM_LBUTTONDOWN, WM_MOUSEMOVE и потом WM_LBUTTONUP
Только это возни не на один день, наверное, - такое запрограммировать.

[proga]

Application.CommandBars.Add Name:="MB", Position:=msoBarTop
Set mb = Application.CommandBars("MB")
mb.Visible = True
mb.RowIndex = 20
'mb.Delete
Помогло?

[jetcom]

proga, спасибо ОГРОМНОЕ!!!
ROWINDEX - это было самое то, что нужно!!!