CommandBarButton. Picture-Eigenschaft (Office)CommandBarButton.Picture property (Office)

Ruft ab oder legt diesen fest ein IPictureDisp -Objekt, das das Bild eines CommandBarButton -Objekts darstellt.Gets or sets an IPictureDisp object representing the image of a CommandBarButton object. Lese-/Schreibzugriff.Read/write.

Hinweis

[!HINWEIS] "CommandBar"-Objekte wurden in einigen Microsoft Office-Anwendungen durch die neue Menüband-Komponente der Microsoft Office Fluent-Benutzeroberfläche abgelöst.The use of CommandBars in some Microsoft Office applications has been superseded by the new ribbon component of the Microsoft Office Fluent user interface. Weitere Informationen finden Sie unter Übersicht über das Office Fluent-Menüband.For more information, see Overview of the Office Fluent ribbon.

SyntaxSyntax

Ausdruck. Bildexpression.Picture

Ausdruck Eine Variable, die ein CommandBarButton -Objekt darstellt.expression A variable that represents a CommandBarButton object.

HinweiseRemarks

Wenn Sie das Bild auf einer Schaltfläche ändern, sollten Sie auch die Mask -Eigenschaft verwenden, um ein Maskenbild festlegen.When you change the image on a button, you will also want to use the Mask property to set a mask image. Das Maskenbild bestimmt, welche Teile des Schaltflächenbildes transparent sind.The mask image determines which parts of the button image are transparent. Legen Sie die Maske immer, nachdem Sie das Bild für ein CommandBarButton -Objekt festgelegt haben.Always set the mask after you have set the picture for a CommandBarButton object.

Hinweis

Die Bilder für die Schaltflächen Microsoft - Anwendung anzeigen und Element Einfügen in der Standard Symbolleiste im Visual Basic-Editor können nicht geändert werden.The images for the View Microsoft Application and Insert Item buttons on the Standard toolbar in the Visual Basic Editor cannot be changed.

BeispielExample

Im folgende Beispiel wird das Bild und die Maske des ersten CommandBarButton, der der Code zurückgibt.The following example sets the image and mask of the first CommandBarButton that the code returns. Damit dies funktioniert, erstellen Sie ein Maskenbild und ein Schaltflächensymbol und Ersetzen Sie die Pfade im Beispiel durch die Pfade zu Ihren Bildern.To make this work, create a mask image and a button image and substitute the paths in the sample with the paths to your images.

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.The following example gets the image and mask of the first CommandBarButton that the code returns and outputs each of them to a file. Damit dies funktioniert, geben Sie einen Pfad für die Ausgabedateien.To make this work, specify a path for the output files.

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 auchSee also

Support und FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.