Office) (CommandBarButton.Picture 屬性

取得或設定代表 CommandBarButton 物件的圖像的 IPictureDisp 物件。 讀取/寫入。

注意事項

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

語法

表達式。圖片

表達 代表 CommandBarButton 物件的 變數。

註解

當您變更按鈕上的影像時，您也會想要使用 Mask 屬性來設定遮罩影像。 遮罩圖像決定按鈕圖像的哪個部分是透明。 通常應當在設定 CommandBarButton 物件的圖片之後才設定遮罩。

注意事項

無法變更 Visual Basic 工具列上 [檢視Microsoft應用程式] 和 [插入專案] 按鈕的影像 編輯器。

範例

下列範例會將圖像和程式碼會傳回第一個 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 支援與意見反應。