Commanbarbutton

[Steiner]

Имеется, собственная панель инструментов (Excel), которая создаётся при загрузке файла. Так вот, на этой панели видны только значки, а как сделать програмно так, чтобы разрешить отображение ещё и текста. Значки на пенели инструментов, это кнопки (Commanbarbutton)
которые добавляются в панель при её создании. Пример кода:

Sub InsertPanelTools()
Dim myBar As CommandBar
Dim Debet As CommandBarControl
Application.CommandBars.Add "MyPanel", msoBarTop, True, True
Set myBar = CommandBars("MyPanel")
Set Debet = myBar.Controls.Add(msoCommanBarButton)
With Debet
.Cation = "Приход"
.FaceId = 723
.OnAction = "Execute_Debet"
End with
myBar.visible = true
end Sub

Так вот, при таком раскладе текст не отображается. Помогите...

[uhm]

Задать свойство .Style нужного контрола. Например,

Debet.Style=msoButtonIconAndCaption

[Steiner]

Спасибо братан, помогло, с меня пиво...