Форум пользователей Visio

Форум по вопросам применения и программирования в Visio
Текущее время: 21 сен 2018, 00:37

Часовой пояс: UTC + 3 часа [ Летнее время ]


Правила форума


При размещении файлов предпочтительным является формат vsd (а не vsdx/vsdm)



Начать новую тему Ответить на тему  [ Сообщений: 3 ] 
Автор Сообщение
 Заголовок сообщения: Как привязать макрос к кнопке на панели инструментов.
СообщениеДобавлено: 20 июн 2018, 15:51 
Не в сети
Бывалый

Зарегистрирован: 19 июн 2015, 22:18
Сообщений: 101
Использую Visio c: 2013
Очков репутации: 21

Добавить очки репутацииУменьшить очки репутации
Работаю в Visio 2007.
Нужно выполнять много однообразных операций. Сделал макросы, хотел привязать к кнопке на панели инструментов - не могу!

Макросы находятся в отдельном модуле документа - NewMacros.
Через меню вызываются: Сервис - Макрос - NewMacros - RedFont(это имя макроса)

А вот как привязать к кнопке на панели инструментов?
Вызываю панель инструментов, создаю свою пустую панель. Могу перетаскивать на нее команды.
НО СРЕДИ КОМАНД МАКРОСОВ НЕ ВИДНО. Как быть?

Вложение:
Macros.png
Macros.png [ 37.93 Кб | Просмотров: 179 ]


На рисунке видно мою пустую панель, а в списке команд только "Марокросы..." и "Список макросов". Если поместить "Макросы..." - вызывается диалоговое окно выбора макроса для запуска. "Список макросов" - вообще кнопка неактивна.

Вывернулся пока так - поместил на кнопку меню Макросы. При вижу меню Макросы, а в нем уже виден мой модуль и в нем уже я вижу свои макросы. То есть мне каждого действия проделать кучу телодвижений. То есть в пользу бедных. :cry:


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Как привязать макрос к кнопке на панели инструментов.
СообщениеДобавлено: 20 июн 2018, 17:12 
была похожая тема еще на старом форуме


Пожаловаться на это сообщение
Вернуться к началу
  
Ответить с цитатой  
 Заголовок сообщения: Re: Как привязать макрос к кнопке на панели инструментов.
СообщениеДобавлено: 21 июн 2018, 15:07 
Не в сети
Бывалый

Зарегистрирован: 19 июн 2015, 22:18
Сообщений: 101
Использую Visio c: 2013
Очков репутации: 21

Добавить очки репутацииУменьшить очки репутации
Спасибо, помогло. Помучился только с назначением макроса OnAction. В примере задано .OnAction=ThisDocument.Main.
Я написал подобное, но вылетала ошибка. В результате все же сделал так - поместил вызываемые макросы в модуль и указал на него:

Код:
Sub InitMacros()
    Dim cbrCommandBar As CommandBar
    Dim cbbCommandBarButton As CommandBarButton
   
    Set cbrCommandBar = Application.CommandBars("Мои макросы")
    Do While (cbrCommandBar.Controls.Count > 0)
        cbrCommandBar.Controls.Item(1).Delete
    Loop
   
    Set cbbCommandBarButton = cbrCommandBar.Controls.Add(Type:=msoControlButton)
    With cbbCommandBarButton
        .Caption = "Синий"
        .TooltipText = "Синий - резервный кананал"
        .Tag = "синий"
        .FaceID = 59
        .Style = msoButtonIconAndCaption
        .OnAction = "NewMacros.AllBlue"
    End With
   
    Set cbbCommandBarButton = cbrCommandBar.Controls.Add(Type:=msoControlButton)
    With cbbCommandBarButton
        .Caption = "Красный"
        .TooltipText = "Красный - резервный кананал"
        .Tag = "красный"
        .FaceID = 59
        .Style = msoButtonIconAndCaption
        .OnAction = "NewMacros.AllRed"
    End With
   

    Set cbbCommandBarButton = cbrCommandBar.Controls.Add(Type:=msoControlButton)
    With cbbCommandBarButton
        .Caption = "Черный"
        .TooltipText = "Черный - резервный кананал"
        .Tag = "Черный"
        .FaceID = 59
        .Style = msoButtonIconAndCaption
        .OnAction = "NewMacros.AllBlack"
    End With

End Sub


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 3 ] 

Часовой пояс: UTC + 3 часа [ Летнее время ]



Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1


Вы можете начинать темы
Вы можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
cron
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Вы можете создать форум бесплатно PHPBB3 на Getbb.Ru, Также возможно сделать готовый форум PHPBB2 на Mybb2.ru
Русская поддержка phpBB