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

Статья
04/07/2023

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

Примечание.

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

Синтаксис

expression. Маска

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

Замечания

При создании изображения, которое планируется использовать в качестве маски, все области, которые нужно прозрастить, должны быть белыми, а все области, которые нужно отобразить, должны быть черными.

Всегда устанавливайте маску после задания рисунка для объекта CommandBarButton .

Пример

В следующем примере задаются изображение и маска первого элемента 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 и обратная связь.

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