ник: 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
Так вот, при таком раскладе текст не отображается. Помогите...
_________________
Если человек до двадцати лет не поумнел, значит он увы уже никогда НЕ ПОУМНЕТ!