Propiedad CommandBarButton.Picture (Office)

Obtiene o establece un objeto IPictureDisp que representa la imagen de un objeto CommandBarButton. 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. Imagen

expresión Variable que representa un objeto CommandBarButton .

Comentarios

Al cambiar la imagen en un botón, también querrá usar la propiedad Mask para establecer una imagen de máscara. La imagen de máscara determina qué partes de la imagen del botón son transparentes. Configure siempre la máscara después de establecer la imagen de un objeto CommandBarButton.

Nota:

No se pueden cambiar las imágenes de los botones Ver aplicaciónde Microsoft e Insertarelemento de la barra de herramientas Estándar de Visual Basic Editor.

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 

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