ник: pashulka
Re: CommandBarButton Private Sub InsertPanelTools()
With Application.CommandBars.Add("MyPanel", msoBarTop, True, True)
With .Controls.Add(msoControlButton)
.Caption = "Приход"
.FaceId = 723
.Style = msoButtonIconAndCaption
.OnAction = "Execute_Debet"
End With
.Visible = True
End With
End Sub