создание своего главного меню

[maksim_serg]

Добрый день.
Хочу создать свое меню не в форме, а прямо в окне MS EXCEL с помощью Win Api.
Использую такой код:

сначала убираю стандартное меню:

Private Sub ChangeInterface(Value As Boolean)
Dim iCommandBar As CommandBar
    
    With Application
        .ScreenUpdating = False
        .Caption = IIf(Value = True, Empty, "Excel")
        .DisplayStatusBar = Value:
        .DisplayFormulaBar = Value
        For Each iCommandBar In .CommandBars
            iCommandBar.Enabled = Value
        Next
        
        With .ActiveWindow
            .Caption = IIf(Value = True, .Parent.Name, "Металлокалькулятор")
            .DisplayHeadings = Value:
            .DisplayGridlines = Value
            .DisplayHorizontalScrollBar = Value
            .DisplayVerticalScrollBar = Value
            .DisplayWorkbookTabs = Value
        End With
       
        .ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", " & Value & ")"
        .ScreenUpdating = True
    End With
End Sub

потом создаю свое:

Sub menu()
hMenu = CreateMenu
hSubMenu = CreateMenu
b = SetMenu(Application.hwnd, hMenu)
m1 = AppendMenu(hSubMenu, 0, 0, "&Файл")
m2 = AppendMenu(hSubMenu, 0, 0, "&Правка")
m3 = AppendMenu(hSubMenu, 0, 0, "&О программе")
m1_1 = AppendMenu(hMenu, 0, hSubMenu, "&Выход")
DrawMenuBar (Application.hwnd)
End Sub

Но ни чего не получается...

[VictorM]

Посмотрите во эту тему CommandBars

[maksim_serg]

я хочу вообще убрать всю ленту (занимает много места) и создать простое меню в виде одной строчки.
думаю WinApi в самый раз.

[VictorM]

Посмотрите по форуму, поиск
Совсем недавно была тема о ленте

[maksim_serg]

да причем тут лента то? Видели меню скажем в excel 2003 - вверху строка там: файл, правка, сервис и т.п.

[tae1980]

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

да причем тут лента то? Видели меню скажем в excel 2003 - вверху строка там: файл, правка, сервис и т.п.

В природе есть патчик, который возвращает в офис2007 меню. Очень-очень полезная вещщьььь...

[maksim_serg]

зачем такой велосипед. Есть обычные функции winapi. У меня создается меню в одну строку. Но создать выпадающее меню к каждому пункту этого меню, что то не получается. И код ошибок не выдает...

[tae1980]

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

зачем такой велосипед. Есть обычные функции winapi. У меня создается меню в одну строку. Но создать выпадающее меню к каждому пункту этого меню, что то не получается. И код ошибок не выдает...

Как мне кажется это ты изобретатель велосипеда... Как раз эту функцию они скорее всего и использовали, создали стандартное меню - полный аналог. Бери и пользуйся....
Другой вопрос если тебе стандартное меню вообще не нужно, а нужно своя строка меню со своими командами.

[maksim_serg]

да мне нужна своя строка меню, со своими командами, занимающая всего одну строку в верху экрана. Самое обычное простое меню. Вспомнил, как в блокноте, такая синенькая полосочка...

[VictorM]

да причем тут лента то?

да вообще-то вот при этом

я хочу вообще убрать всю ленту (занимает много места)

так что формулируйте правильно свои вопросы
тогда и ответы будут соответствующие

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

а как раз вот это и описывается по той ссылке, что я давал