CommandBarButton.Picture-Eigenschaft (Office)

Ruft ab oder legt diesen fest ein IPictureDisp -Objekt, das das Bild eines CommandBarButton -Objekts darstellt. 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 Overview of the Office Fluent ribbon.

Syntax

Ausdruck. Picture

Ausdruck Eine Variable, die ein CommandBarButton-Objekt darstellt.

Bemerkungen

Wenn Sie das Bild auf einer Schaltfläche ändern, sollten Sie auch die Mask -Eigenschaft verwenden, um ein Maskenbild festlegen. Das Maskenbild bestimmt, welche Teile des Schaltflächenbildes transparent sind. Legen Sie die Maske immer, nachdem Sie das Bild für ein CommandBarButton -Objekt festgelegt haben.

Hinweis

Die Bilder für die Schaltflächen Microsoft-Anwendung anzeigen und Element einfügen auf der Symbolleiste Standard im Visual Basic Editor können nicht geändert werden.

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

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.