Разделитель группы меню второго и третьего уровня?

[Vitaly1]

Господа, все могу в меню сделать, а вот этого не как:

Как задать разделитель в группы (т.е. разделяющую линию пункты меню) второго и третьего уровня?


За рание всем спасибо!

[GSerg]

А это вообще как?

[RayShade]

Ровно также как и любой другой разделитель. Создаем menu item с caption - (весь капшен просто один дефис) и все.

[Vitaly1]

Set n = Application.CommandBars.ActiveMenuBar.Controls("Мой")
With n.Controls.Add(Type:=msoControlMenuitem)
.Caption = "-"
End With

Не выходит! Дает ошибку!

Пытался задать тип MenuItem, то-же не выходит, с типом msoControlButton в меню кэпшен "-" а не сквозная черта.

[RayShade]

Блин! Я не понял что речь про Офисное меню Это так делается в VBшном Menu Editor

[Vitaly1]

Господа, да как же задать разделитель в группы (т.е. разделяющую линию пункты меню) второго и третьего уровня?
В VBA а не в обычном VB!

Ведь в приложении такой разделитель есть!



Помогите, пожалуйсто!

[Calvin]

Ну попробуй метод BeginGroup:

Код: Выделить всё

Set fff = Application.CommandBars("Панель_Инструментов")
  fff.Controls(1).Controls(2).BeginGroup = True


если конечно я правильно понял

[sergmagunov]

Ты это имел в виду?

Sub test()
Set MyMenuBar = CommandBars.ActiveMenuBar
Set NewMenu = MyMenuBar.Controls.Add(Type:=msoControlPopup, _
Before:=8, temporary:=True)
NewMenu.Caption = "Sample"
Set Ctrl1 = NewMenu.Controls.Add(Type:=msoControlButton)
Ctrl1.FaceId = 41
Ctrl1.Caption = "123"
Set Ctrl2 = NewMenu.Controls.Add(Type:=msoControlButton)
Ctrl2.FaceId = 200
Ctrl2.Caption = "234"

Ctrl2.BeginGroup = True 'вот он разделитель

End Sub

Сергей

[Vitaly1]

Calvin
Я говорил не про панель инструментов, а про меню, и не про вертикальное разделение, а про горизонтальное, в меню первого уровня выходит:
Application.CommandBars.ActiveMenuBar.Controls("Мой").BeginGroup = True
появляется вертикальный разделитель группы.

а мне нужен горизонтальный, так не выходит:
Application.CommandBars.ActiveMenuBar.Controls("Мой").Controls("Два").BeginGroup = True
сбой и ничего не происходит в меню

так тоже не выходит:
Set fff = Application.CommandBars.ActiveMenuBar.Controls("Мой")
fff.Controls(1).Controls(2).BeginGroup = True
сбоев нет, но и в меню ничего нет.

[Vitaly1]

sergmagunov

Спасибо, через указатель получилось!

Set f = Application.CommandBars.ActiveMenuBar.Controls("Мой").Controls("Два")
f.BeginGroup = True


п.с.
sergmagunov - какое значение свойства .FaceId для того что бы в меню галочка была, а то я ее делаю такими окольными путями, а оказывается все так посто! , спасибо.

[Calvin]

Application.CommandBars.ActiveMenuBar.Controls("Мой").BeginGroup = True

ActiveMenuBar - это какое меню в данном случае?

[Vitaly1]

Calvin, если не создал новое или встроил его в стандартное, то это меню приложения, если создал, то созданное тобой меню, которое удалится после закрытия приложения.

[Calvin]

Да, тема конечно же интересная, хочу дополнить немного (да заодно что-нибудь и услышать):
А на счет панелей инструментов и меню, то там одно и то же в данном случае
Единственное, относительно вышесказанного я не совсем понимаю, как можно в меню сделать "вертикальное" разделение групп (чтобы не путаться, то я имею ввиду "вертикальную палочку разделителя"). Вот, допустим на панели инструментов это можно сделать.

Тот пример, который я написал в первом посте, то там fff.Controls(1).Controls(2).BeginGroup = True (вот то, что жирным, то это новое меню, которых на панели инструментов может быть даже больше, чем один - вот их можно разделять по группам ВЕРТИКАЛЬНО - fff.Controls(2).BeginGroup = True), а вот fff.Controls(1).Controls(2).BeginGroup = True --- внутри меню контролы объединяются в группы только горизонтально (т.е. горизонтальным разделителем группы)

[Vitaly1]

Corgi:
Да совершенно верно, в первом уроне разделитель групп вертикальный, а во втором и далее горизонтальный, я вроде, ничего другого не говорил.

[Vitaly1]

Господа, как это бывает часто в программировании, думаешь на одно, а происходит из-за другого, данный пример может работать и без указателя:
Set f = Application.CommandBars.ActiveMenuBar.Controls("Мой").Controls("Два")
f.BeginGroup = True

Application.CommandBars.ActiveMenuBar.Controls("Мой").Controls("Два").BeginGroup = True

А не работало из-за того, в других случаях, что в объекте Controls надо использовать не имя OnAction, соответствующего пункта меня, а его Caption, вот оно как, кто бы мог подумать что так!

[corgi]

2Vitaly1 ты верно хотел сказать Calvin

[Vitaly1]

Да Corgi, я хотел сказать Calvin