Office VBA教程:Picture属性

返回一个 IPictureDisp对象,表示 CommandBarButton对象的图像。

expression.Picture

expression   必需。该表达式返回一个 CommandBarButton对象。

说明

在更改按钮图像时,还希望使用 Mask属性设置屏蔽图像。屏蔽图像决定按钮图像透明的部分。通常在设置了 CommandBarButton对象的图片后设置屏蔽。

注释  Visual Basic 编辑器中“常用”工具栏上的“查看 Microsoft 应用程序”和“插入项”按钮上的图像不能更改。

VBA示例

本示例设置代码返回的第一个 CommandBarButton 的图像和屏蔽。要使本示例正常工作,请创建屏蔽图像和按钮图像,并以图像的路径替换范例中的路径。


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

本示例获得代码返回的第一个 CommandBarButton 的图像和屏蔽,并输出到文件。要使本示例正常工作,请指定输出文件的路径。


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

上页:Office VBA教程:Path属性 下页:Office VBA教程:Position属性

Office VBA教程:Picture属性

Office VBA教程:Position属性 Office VBA教程:Priority属性
Office VBA教程:Private属性 Office VBA教程:ProgId属性
Office VBA教程:PropertyTests属性 Office VBA教程:ProportionalFont属性
Office VBA教程:ProportionalFontSize属性 Office VBA教程:Protection属性
Office VBA教程:Reduced属性 Office VBA教程:RowCount属性
Office VBA教程:RowIndex属性 Office VBA教程:ScopeFolder属性
Office VBA教程:ScopeFolders属性 Office VBA教程:ScriptText属性
Office VBA教程:SearchFolders属性 Office VBA教程:SearchScopes属性
Office VBA教程:SearchSubFolders属性 Office VBA教程:SearchWhenProgramming属性
Office VBA教程:SecondValue属性 Office VBA教程:SelectedItems属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号