Office VBA教程:Mask属性

返回表示 CommandBarButton对象的屏蔽图像的 IPictureDisp对象。屏蔽图像决定按钮图像透明的部分。

expression.Mask

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

说明

在创建要作为屏蔽图像使用的图像时,所有要透明的区域应该为白色,所有要显示的区域应该为黑色。

通常在设置了 CommandBarButton对象的图片后设置屏蔽。

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教程:LookIn属性 下页:Office VBA教程:MatchAllWordForms属性

Office VBA教程:Mask属性

Office VBA教程:MatchAllWordForms属性 Office VBA教程:MatchTextExactly属性
Office VBA教程:MenuAnimationStyle属性 Office VBA教程:Mode属性
Office VBA教程:MouseTips属性 Office VBA教程:MoveWhenInTheWay属性
Office VBA教程:Name属性 Office VBA教程:NameLocal属性
Office VBA教程:NewBalloon属性 Office VBA教程:Object属性
Office VBA教程:OLEMenuGroup属性 Office VBA教程:OLEUsage属性
Office VBA教程:On属性 Office VBA教程:OnAction属性
Office VBA教程:Parameter属性 Office VBA教程:Parent属性
Office VBA教程:Path属性 Office VBA教程:Picture属性
Office VBA教程:Position属性 Office VBA教程:Priority属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号