PictureFormat.ReplaceEx 方法 (出版商)

會取代指定的圖片、 (選擇性) 橫取代圖片框或填寫圖文框。 會傳回 Nothing 。

語法

表情。ReplaceEx (PathName、 InsertAs、 Fit)

詞 一個代表 PictureFormat 物件的變數。

參數

名稱	必要/選用	資料類型	描述
PathName	必要	String	您要取代所指定圖片的檔案名稱和路徑。
插入式	選用	PbPictureInsertAs	您要圖片檔插入到文件的方式：連結或內嵌。 可以是 Microsoft Publisher 類型庫中宣告的 PbPictureInsertAs 常數之一;預設值為 pbPictureInsertAsOriginalState。
Fit	選用	PbPictureInsertFit	插入的圖片是否能放入畫框，或是填滿整個畫框。

範例

下列 Microsoft Visual Basic for Applications (VBA) 巨集會示範如何使用 ReplaceEx方法可在出版物中所有的圖片取代為不同的圖片。 在這個範例中，取代圖片配合至框架的上一個圖片，但您可以使用 pbFill取代 pbFit如果您要改用填滿框架。 這個範例也會排除主版頁面上的圖片。

在執行這個巨集之前，先替換 replacementPicturePath 成你想用來替代的圖片路徑。

Public Sub ReplaceEx_Example()
    
    Dim pubPage As Page
    Dim pubShape As Shape
    Dim strReplacePicturePath As String
    
    strReplacePicturePath = replacementPicturePath
    
    For Each pubPage In ActiveDocument.Pages
        
        For Each pubShape In pubPage.Shapes
            
            If pubShape.Type = pbPicture Then

                pubShape.PictureFormat.ReplaceEx strReplacePicturePath, pbPictureInsertAsOriginalState, pbFit

            End If
        
        Next pubShape
        
    Next pubPage
            
End Sub

支援和意見反應

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