Propriedade CommandBarButton.Picture (Office)

Obtém ou define um objeto IPictureDisp que representa a imagem de um objeto CommandBarButton. Leitura/gravação.

Sintaxe

expressão. Imagem

expressão Uma variável que representa um objeto CommandBarButton .

Comentários

Quando alterar a imagem num botão, também deverá utilizar a propriedade Máscara para definir uma imagem de máscara. A imagem de máscara determina que partes da imagem do botão são transparentes. Defina sempre a máscara após ter definido a figura para um objeto CommandBarButton.

Exemplo

O exemplo a seguir define a imagem e máscara do primeiro CommandBarButton que o código retorna. Para que isso funcione, criar uma imagem de máscara e uma imagem de botão e substitua os caminhos na amostra com os caminhos de suas imagens.

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

O exemplo a seguir obtém a imagem e máscara do primeiro CommandBarButton que o código retorna e envia a cada uma em um arquivo. Para fazer esse trabalho, especifique um caminho para os arquivos de saída.

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 

Confira também

• CommandBarButton object members (Membros do objeto CommandBarButton)

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.