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

Форум по вопросам применения и программирования в Visio
Текущее время: 28 мар 2024, 23:25

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


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


При размещении файлов предпочтительным является формат vsd (а не vsdx/vsdm)
Размещая ваши вложения на форуме не используйте имена файлов содержащих кириллицу, в противном случае файл будет иметь имя .<расширение файла> !

Для форматирования ваших сообщений используйте BBCodes, описание используемых на форуме BBCodes.



Начать новую тему Ответить на тему  [ Сообщений: 2 ] 
Автор Сообщение
 Заголовок сообщения: Свой рисунок на кнопке CommandBarButton
СообщениеДобавлено: 06 июл 2018, 13:40 
Не в сети
Бывалый

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

Добавить очки репутацииУменьшить очки репутации
У кнопки есть FaceID, но мне нужно добавить свои рисунки.

Через пользовательский интерфейс я это сделать могу - вызываю контекстное меню Настройка на панели инструментов. Затем становится доступным контекстное меню на кнопке, которое позволяет вызвать редактор для изображения на кнопке.

Если записываю при этих действиях макрос - он остается пустым.

Можно назначить кнопке свой рисунок?


Пожаловаться на это сообщение
Вернуться к началу
 Профиль  
Ответить с цитатой  
 Заголовок сообщения: Re: Свой рисунок на кнопке CommandBarButton
СообщениеДобавлено: 06 июл 2018, 16:35 
Не в сети
Бывалый

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

Добавить очки репутацииУменьшить очки репутации
Решил.

Код:
Public Sub BuildMenuItemAndMenu()
    Const pth = "c:\Users\vin1\Pictures\accordion.bmp"
   
    Dim picPicture As IPictureDisp
   
   
    Dim cbrCommandBar As CommandBar
    Dim cbbCommandBarButton As Office.CommandBarButton
    Const NameBar = "Ñõåìû ñâÿçè"
   
    On Error Resume Next
    Set cbrCommandBar = Application.CommandBars(NameBar)
    On Error GoTo 0
   
    If Not cbrCommandBar Is Nothing Then
        cbrCommandBar.Delete
    End If
    Set cbrCommandBar = Application.CommandBars.Add(NameBar, msoBarTop)
   
   
    Set cbbCommandBarButton = cbrCommandBar.Controls.Add(Type:=msoControlButton)
    With cbbCommandBarButton
        .Caption = "Ñèíèé"
        .TooltipText = "Ñèíèé - ðåçåðâíûé êàíàíàë"
        .Tag = "ñèíèé"
        .FaceID = 0
        .Style = msoButtonIconAndCaption
        .OnAction = "ThisDocument.MyMacro"
    End With
   
    Set picPicture = stdole.StdFunctions.LoadPicture(pth)
    cbbCommandBarButton.Picture = picPicture
   
    cbrCommandBar.Visible = True
End Sub
Public Sub MyMacro()
    MsgBox "Hello!"
End Sub


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

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



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

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


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

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