Publisher) (PictureFormat.ReplaceEx 方法

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

語法

運算式。ReplaceEx (PathName、 InsertAs、 Fit)

運算式 代表 PictureFormat 物件的變數。

參數

名稱 必要/選用 資料類型 描述
PathName 必要 String 您要取代所指定圖片的檔案名稱和路徑。
InsertAs 選用 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 支援與意見反應。

  • 上次更新時間：