Propriété CommandBarButton.Picture (Office)

  • Article

Cette propriété obtient ou définit un objet IPictureDisp qui représente l'image d'un objet CommandBarButton. Lecture-écriture.

Remarque

L’utilisation des barres de commandes dans certaines applications Microsoft Office a été remplacée par le nouveau composant ruban de l’interface utilisateur Microsoft Office Fluent. Pour plus d’informations, voir Vue d’ensemble du ruban Office Fluent.

Syntaxe

expression. Image

Expression Variable qui représente un objet CommandBarButton .

Remarques

Lorsque vous modifiez l’image sur un bouton, vous pouvez également utiliser la propriété Mask pour définir une image de masque. L'image de masque détermine quelles parties de l'image du bouton sont transparentes. Définissez toujours le masque après avoir défini l'image pour un objet CommandBarButton.

Remarque

Les images des boutons Afficherl’application Microsoft et Insérerun élément de la barre d’outils Standard dans Visual Basic Editor ne peuvent pas être modifiées.

Exemple

Cet exemple montre comment définir l'image et le masque du premier objet CommandBarButton que le code renvoie. Créez pour cela une image de masque et une image de bouton et remplacez les chemins contenus dans l'exemple par les chemins d'accès à vos 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

Cet exemple montre comment obtenir l'image et le masque du premier objet CommandBarButton que le code renvoie et comment les placer dans un fichier. Pour cela, spécifiez un chemin pour les fichiers de sortie.

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

Voir aussi

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.