Propiedad CommandBarButton.Mask (Office)

Obtiene o establece 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. Lectura y escritura.

Nota:

El uso de CommandBars en algunas aplicaciones de Microsoft Office sustituido por el nuevo componente cinta de la interfaz de usuario de Microsoft Office Fluent. Para obtener más información, vea Información general de la cinta de opciones de Office Fluent.

Sintaxis

expresión. Máscara

Expresión Variable que representa 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 de un 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 en el ejemplo con 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 = picPicture 
 
        'Use the second image to define the area of the 
        'button that should be transparent. 
        .Mask = picMask 
    End With 
End Sub

El ejemplo siguiente se obtiene la imagen y la máscara del primer CommandBarButton que devuelve el código y envía cada una de ellas a un archivo. Para realizar este trabajo, especifique una ruta de acceso para 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 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 

Consulte también

• Miembros del objeto CommandBarButton

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.