Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Проблема с созданием панели инструментов (точнее кнопки) в MS powerpoint

82K
01 мая 2012 года
DeLee
1 / / 01.05.2012
Хочу написать макрос для powerpoint, причем необходимо сделать процесс добавления и запуска макроса как можно более простым, решил попробовать создать add-in файл с кнопкой.
И вот тут возникла проблема:

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 работает исправно, кнопка добавляется в меню надстроек, но после нажатия выдает сообщение "Макрос не найден. Возможно, он отключен по соображениям безопасности". В настройках включил макросы - та же ерунда.

По правде говоря, это мой первый "пробный" макрос, прошу сильно не бить))
Может создать кнопку можно как-то по-другому?
+как еще можно "облегчить" добавление макроса\кнопки для других пользователей?
Заранее благодарю!
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог