VBA EXCEL

[eri]

Может так лучше???

[eri]

По-моему, with ничего не меняет

[Hugo121]

Перенабирать ваше никакого желания нет, поэтому вот что нашёл рабочего:

Option Explicit

Sub PopupMenuCreate()    'Создание меню.
    Dim Sub_Report As Object, mnuManage As Object

    On Error Resume Next
    Application.CommandBars("Manage (Ctrl+m)").Delete

    'Создание меню.
    Set mnuManage = Application.CommandBars.Add(Name:="Manage (Ctrl+m)", Position:=msoBarTop, MenuBar:=False, temporary:=True)
    mnuManage.Visible = True

    'Создание подпункта меню.
    Set Sub_Report = mnuManage.Controls.Add(Type:=msoControlPopup)
    Sub_Report.Caption = "Калькулятор"
    With Sub_Report.Controls.Add(Type:=msoControlButton)
        .Style = msoButtonCaption
        .Caption = "Калькулятор"
        .OnAction = "ShowForm"
    End With

End Sub

Sub PopupMenuDelete()    'Удаление меню.
    On Error Resume Next
    Application.CommandBars("Manage (Ctrl+m)").Delete
End Sub

[Hugo121]

Файл появился...

Sub add_Button()
    Set MyBar = CommandBars.Add(Name:="Cat", Position:=msoBarTop, temporary:=True)

    Set buttonOne = MyBar.Controls.Add(Type:=msoControlButton)
    With buttonOne
        .FaceId = 133
        .Tag = "rightArrow"
        .OnAction = "c1"
    End With

    Set buttontwo = MyBar.Controls.Add(Type:=msoControlButton)
    With buttontwo
        .FaceId = 134
        .Tag = "upArrow"
        .OnAction = "c2"
    End With

    Set buttonthree = MyBar.Controls.Add(Type:=msoControlButton)
    With buttonthree
        .FaceId = 135
        .Tag = "downArrow"
        .OnAction = "c3"
    End With
    MyBar.Visible = True
End Sub

Sub delbar()
    Application.CommandBars("Cat").Delete
End Sub

[eri]

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

[Hugo121]

Зачем спрашивать, если уже есть ответ?

[eri]

Мы просто одновременно отправили сообщения
БОЛЬШОЕ СПАСИБО!!!!!