Office) (CommandBarButton.Mask 屬性

取得或設定代表 CommandBarButton 物件的遮罩圖像的 IPictureDisp 物件。 遮罩圖像決定的按鈕圖像哪些部分是透明。 讀取/寫入。

注意事項

[!注意事項] CommandBars 用於部分的 Microsoft Office 應用程式已經由 Microsoft Office Fluent 使用者介面的新功能區元件取代。 如需詳細資訊，請參閱 Office Fluent 功能區概觀。

語法

運算式。面具

表達 代表 CommandBarButton 物件的 變數。

註解

當您建立一個圖像，並計劃將其用作遮罩圖像時，則想要設為透明的全部區域都應當為白色，而想要顯示的區域應當設為黑色。

通常應當在設定 CommandBarButton 物件的圖片之後才設定遮罩。

範例

下列範例會將圖像和程式碼會傳回第一個 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 = picPicture 
 
        '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 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 

另請參閱

• CommandBarButton 物件成員

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。