Основной стиль для кнопки на панели

[agregator]

Здравствуйте. Напишите, как включить макросом основной стиль для кнопки на панели инструментов (чтобы кнопка была представлена только рисунком). Надо добавить кнопку Автофильтр и включить для неё Основной стиль

Sub Макрос()
    Application.CommandBars("Моё меню").Controls.Add Type:=msoControlButton, ID:=899, Before:=14
End Sub

[EducatedFool]

не знаю, что такое "основной стиль для кнопки", но для изменения стиля кнопки есть свойство style:



Вам нужен .Style = msoButtonIcon

Sub Макрос()
    Dim cb As CommandBarButton
    Set cb = Application.CommandBars(1).Controls.Add(Type:=msoControlButton, ID:=899, Before:=14)
    cb.Style = msoButtonIcon
End Sub

Sub Макрос2()
    Application.CommandBars(1).Controls.Add(Type:=msoControlButton, ID:=899, Before:=14).Style = msoButtonIcon
End Sub

[agregator]

EducatedFool, спасибо за помощь. Ещё назначил значек на кнопку FaceId = 2127

Sub Макрос()
    Dim cb As CommandBarButton
    Set cb = Application.CommandBars("Моё меню").Controls.Add(Type:=msoControlButton, ID:=900, Before:=14)
    cb.Style = msoButtonIcon
    cb.FaceId = 2127
End Sub