Свойство CommandBarButton.Picture (Office)

Статья
04/07/2023

Возвращает или задает объект IPictureDisp , представляющий изображение объекта CommandBarButton . Для чтения и записи.

Примечание.

Использование CommandBars в некоторых приложениях Microsoft Office было заменено новым компонентом ленты пользовательского интерфейса Microsoft Office Fluent. Дополнительные сведения см. в статье Обзор ленты Office Fluent.

Синтаксис

expression. Картина

выражение Переменная, представляющая объект CommandBarButton .

Замечания

При изменении изображения на кнопке вам также потребуется использовать свойство Mask для задания изображения маски. Изображение маски определяет, какие части изображения кнопки являются прозрачными. Всегда устанавливайте маску после задания рисунка для объекта CommandBarButton .

Примечание.

Изображения кнопок Просмотрприложения Майкрософт и Вставкаэлемента на стандартной панели инструментов в Редактор Visual Basic изменить нельзя.

Пример

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

Sub ChangeButtonImage() 
    Dim picPicture As IPictureDisp 
    Dim picMask As IPictureDisp 
 
    Set picPicture = stdole.StdFunctions.LoadPicture( _ 
        "c:\images\picture.bmp") 
    Set picMask = stdole.StdFunctions.LoadPicture( _ 
        "c:\images\mask.bmp") 
 
    'Reference the first button on the first command bar 
    'using a With...End With block. 
    With Application.CommandBars.FindControl(msoControlButton) 
        'Change the button image. 
        .Picture = picPicture 
 
        'Use the second image to define the area of the 
        'button that should be transparent. 
        .Mask = picMask 
    End With 
End Sub

В следующем примере показано, как получить изображение и маску первого элемента CommandBarButton , который код возвращает и выводит каждый из них в файл. Чтобы сделать это, укажите путь к выходным файлам.

Sub GetButtonImageAndMask() 
    Dim picPicture As IPictureDisp 
    Dim picMask As IPictureDisp 
 
    With Application.CommandBars.FindControl(msoControlButton) 
        'Get the button image and mask of this CommandBarButton object. 
        Set picPicture = .Picture 
        Set picMask = .Mask 
    End With 
 
    'Save the button image and mask in a folder. 
    stdole.SavePicture picPicture, "c:\image.bmp" 
    stdole.SavePicture picMask, "c:\mask.bmp" 
End Sub

См. также

Элементы объекта CommandBarButton

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через