PictureFormat.ReplaceEx メソッド (Publisher)

必要に応じてフレームに交換用の画像を自動調整したり、フレームを入力は、指定した図に置き換えられます。 Nothing を返します。

構文

式。ReplaceEx (PathName、 InsertAs、 Fit)

式PictureFormat オブジェクトを表す変数。

パラメーター

名前	必須 / オプション	データ型	説明
PathName	必須	String	指定した図と置き換えるファイルの名前およびパスを指定します。
InsertAs	省略可能	PbPictureInsertAs	画像ファイルをリンクして文書に挿入するか、または埋め込んで文書に挿入するかを指定します。 Microsoft Publisher タイプ ライブラリで宣言されている PbPictureInsertAs クラスの定数の 1 つを指定できます。既定値は pbPictureInsertAsOriginalState です。
Fit	省略可能	PbPictureInsertFit	挿入された画像がフレームに合っているか、フレームに塗りつぶされるか。

例

次の Microsoft Visual Basic for Applications (VBA) マクロは、 ReplaceExメソッドを使用して、文書内のすべての画像を別の画像に置き換える方法を示します。 この例では、交換用の画像が前の画像のフレームに収まるようですが、代わりにフレームを追加する場合は、 pbFitの代わりに pbFillを使用することができます。 この例では、マスター ページ上の画像も除外されます。

このマクロを実行する前に、 を置き換えとして使用する画像へのパスに置 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 のサポートおよびフィードバックを参照してください。