Propriedade CommandBarButton.Picture (Office)

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

Observação

[!OBSERVAçãO] O uso de CommandBars em alguns aplicativos do Microsoft Office foi substituído pelo novo componente da faixa de opções da interface de usuário do Microsoft Office Fluent. Para obter mais informações, consulte Descrição geral do friso do Office Fluent.

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.

Observação

As imagens para os botões VerAplicação Microsoft e InserirItem na barra de ferramentas Padrão no Visual Basic Editor não podem ser alteradas.

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.