Форум пользователей 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/ |