Propiedad Mask

Devuelve un objeto IPictureDisp que representa la imagen de máscara de un objeto CommandBarButton. La imagen de máscara determina qué partes de la imagen del botón son transparentes.

expresión   Requerida. Expresión que devuelve un objeto CommandBarButton.

Comentarios

Al crear una imagen para utilizar como imagen de máscara, las áreas que desee que sean transparentes deberán ser blancas y las que desee mostrar, negras.

Configure siempre la máscara después de establecer la imagen para el objeto CommandBarButton.

Ejemplo

El ejemplo siguiente establece la imagen y la máscara del primer CommandBarButton que devuelve el código. Para realizar este trabajo, cree una imagen de máscara y una imagen de botón y sustituya las rutas de acceso del ejemplo por las rutas de acceso a las imágenes.

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 = picButton

        'Use the second image to define the area of the
        'button that should be transparent.
        .Mask = picMask
    End With
End Sub

El ejemplo siguiente obtiene la imagen y la máscara del primer CommandBarButton que devuelve el código y envía cada una a un archivo. Para realizar este trabajo, especifique una ruta de acceso a los archivos de salida.

Sub GetButtonImageAndMask()
    Dim picPicture As IPictureDisp
    Dim picMask As IPictureDisp

    With Application.CommandBars.FindControl(msoControlButton)
        'Get the button image and mask of the this CommandBarButton object
        Set picPicture = .Picture
        Set picMask = .Mask
    End With

    'Save the button image and mask in a folder.
    stdole.SavePicture picPicture, "c:\temp\image.bmp"
    stdole.SavePicture picMask, "c:\temp\mask.bmp"
End Sub