Propiedad Picture

Devuelve un objeto IPictureDisp que representa la imagen de un objeto CommandBarButton.

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

Comentarios

Al cambiar la imagen de un botón, también deseará utilizar 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 para el objeto CommandBarButton.

Nota  No se pueden cambiar las imágenes de los botones Ver aplicación de Microsoft e Insertar elemento de la barra de herramientas Estándar del Editor de Visual Basic.

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