Проблема с созданием панели инструментов (точнее кнопки) в MS powerpoint
И вот тут возникла проблема:
Sub addbutton()
Dim CalculatorBut As CommandBarButton
Set CalculatorBut = _
CommandBars("Standard").Controls.Add(Type:=msoControlButton)
With CalculatorBut
.Style = msoButtonCaption
.OnAction = "CalcWithButton"
.Caption = "Start Calculator"
End With
End Sub
sub CalcWithButton работает исправно, кнопка добавляется в меню надстроек, но после нажатия выдает сообщение "Макрос не найден. Возможно, он отключен по соображениям безопасности". В настройках включил макросы - та же ерунда.
По правде говоря, это мой первый "пробный" макрос, прошу сильно не бить))
Может создать кнопку можно как-то по-другому?
+как еще можно "облегчить" добавление макроса\кнопки для других пользователей?
Заранее благодарю!