Добавление кнопки на верхней панеле инструментов.

[agregator]

Уважаемые программисты, напишите как макросом добавить кнопку на верхнюю панель инструментов, назначить ей макрос1 и переименовать "Макрос1". И как ее потом удалить макросом.

[EducatedFool]

http://www.programmersforum.ru/showp...98&postcount=8
http://www.programmersforum.ru/showp...63&postcount=5
http://yandex.ru/yandsearch?clid=145...s.add&lr=11162
http://forum.developing.ru/showpost....00&postcount=6

[agregator]

Скажите, где можно посмотреть какой значок кнопки, соответствуетствует какой цифре.

[EducatedFool]

Запустите макрос CreateMenuFaceID
В главное меню Excel (там, где Файл, Правка, Вид, ...) добавится новый пункт Значки

Sub CreateMenuFaceID()    ' создание меню ЗНАЧКИ с образцами кнопок панели инструментов
    Dim NewMenu As CommandBarPopup, MenuItem As CommandBarControl, Submenuitem As CommandBarButton
    Call DeleteMenuFaceID
    Set NewMenu = CommandBars(1).Controls.Add(Type:=msoControlPopup, Temporary:=True)
    NewMenu.Caption = "Значки": maxCount = 40: maxGroup = 8: n = maxGroup * maxCount
    For j = 0 To 20
        Set MenuItem = NewMenu.Controls.Add(Type:=msoControlPopup)
        With MenuItem: .Caption = j * n + 1 & " - " & (j + 1) * n: .BeginGroup = True: End With

        For i = 0 To maxGroup - 1
            Set MenuItem2 = MenuItem.Controls.Add(Type:=msoControlPopup)
            With MenuItem2: .Caption = 1 + j * n + maxCount * i & _
                                       " - " & j * n + maxCount * (i + 1): End With
            For ii = j * n + 1 + maxCount * i To j * n + maxCount * (i + 1)
                Set Submenuitem = MenuItem2.Controls.Add(Type:=msoControlButton)
                With Submenuitem: .Caption = "FaceId = " & ii: .FaceId = ii: End With
            Next ii
        Next i
    Next j
End Sub

Sub DeleteMenuFaceID(): On Error Resume Next
    ' удаление меню ЗНАЧКИ с образцами кнопок панели инструментов
    Dim cbc As CommandBarControl
    For Each cbc In CommandBars(1).Controls
        If cbc.Caption = "Значки" Then cbc.Delete
    Next:
End Sub

Или посмотрите здесь: http://skp.mvps.org/faceid.htm
Или здесь: http://www.outlookexchange.com/artic...InOLKIcons.asp
А ещё лучше - здесь.

[agregator]

Уважаемый EducatedFool, большое Вам спасибо за помощь.