Propriedade CommandBarButton.Mask (Office)

Obtém ou define um objeto IPictureDisp que representa a imagem de máscara de um objeto CommandBarButton. A imagem de máscara determina que partes da imagem do botão são transparentes. 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 Visão geral da faixa de opções fluente do Office.

Sintaxe

expressão. Máscara

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

Comentários

Quando você cria uma imagem que pretende usar como uma imagem de máscara, todas as áreas que deseja manter transparentes devem ser brancas, e todas as áreas que deseja exibir devem ser pretas.

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

• 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.