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.

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.