CommandBarButton.Mask-Eigenschaft (Office)

Artikel
04/07/2023

Ruft ab oder legt diesen fest ein IPictureDisp -Objekt, das das Maskenbild eines CommandBarButton -Objekts darstellt. Das Maskenbild bestimmt, welche Teile des Schaltflächenbildes transparent sind. Lese-/Schreibzugriff.

Hinweis

[!HINWEIS] "CommandBar"-Objekte wurden in einigen Microsoft Office-Anwendungen durch die neue Menüband-Komponente der Microsoft Office Fluent-Benutzeroberfläche abgelöst. Weitere Informationen finden Sie unter Übersicht über das Office Fluent-Menüband.

Syntax

Ausdruck. Maske

Ausdruck Eine Variable, die ein CommandBarButton-Objekt darstellt.

HinwBemerkungeneise

Wenn Sie ein Bild erstellen, das als Maskenbild verwendet werden soll, sollten alle transparent gewünschten Bereiche weiß und alle sichtbaren Bereiche schwarz sein.

Legen Sie die Maske immer, nachdem Sie das Bild für ein CommandBarButton -Objekt festgelegt haben.

Beispiel

Im folgende Beispiel wird das Bild und die Maske des ersten CommandBarButton, der der Code zurückgibt. Damit dies funktioniert, erstellen Sie ein Maskenbild und ein Schaltflächensymbol und Ersetzen Sie die Pfade im Beispiel durch die Pfade zu Ihren Bildern.

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

Das folgende Beispiel ruft das Bild und die Maske des ersten CommandBarButton, dass der Code zurückgibt und jeweils in einer Datei gibt. Damit dies funktioniert, geben Sie einen Pfad für die Ausgabedateien.

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

Siehe auch

Elemente des CommandBarButton-Objekts

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Share via