Форум пользователей Visio
http://visio.getbb.ru/

Свой рисунок на кнопке CommandBarButton
http://visio.getbb.ru/viewtopic.php?f=6&t=1356
Страница 1 из 1

Автор:  vin [ 06 июл 2018, 13:40 ]
Заголовок сообщения:  Свой рисунок на кнопке CommandBarButton

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

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

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

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

Автор:  vin [ 06 июл 2018, 16:35 ]
Заголовок сообщения:  Re: Свой рисунок на кнопке CommandBarButton

Решил.

Код:
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

Страница 1 из 1 Часовой пояс: UTC + 3 часа [ Летнее время ]
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/