PictureFormat.ReplaceEx-Methode (Publisher)

Ersetzt die angegebene Grafik, optional Zeilenbreite Replacement Bild auf den Frame oder Rahmens ausfüllen. Gibt Nothing zurück.

Syntax

Ausdruck verwendet werden. ReplaceEx (PathName, InsertAs, Fit)

Ausdruck Eine Variable, die ein PictureFormat-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
PathName	Erforderlich	String	Der Name und Pfad der Datei, durch die die angegebene Grafik ersetzt werden soll.
Einfügen als	Optional	PbPictureInsertAs-Wert	Die Art, in der die Grafikdatei in das Dokument eingefügt werden soll: verknüpft oder eingebettet. Kann eine der PbPictureInsertAs-Konstanten sein, die in der Microsoft Publisher-Typbibliothek deklariert sind. Der Standardwert ist pbPictureInsertAsOriginalState.
Fit	Optional	PbPictureInsertFit	Ob das eingefügte Bild in den Rahmen passt oder den Rahmen ausfüllt.

Beispiel

Der folgende Microsoft Visual Basic für Applikationen (VBA)-Makro veranschaulicht, wie mithilfe die ReplaceEx -Methode alle Bilder in einer Publikation durch eine andere Grafik ersetzt. In diesem Beispiel wird die neue Grafik wird an die Frames der vorherigen Bilder anpassen, aber pbFill anstelle von pbFit können, wenn Sie stattdessen die Frames füllen möchten. In diesem Beispiel schließt auch Bilder auf Gestaltungsvorlagen.

Bevor Sie dieses Makro ausführen, ersetzen replacementPicturePath Sie es durch den Pfad zu dem Bild, das Sie als Ersatz verwenden möchten.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.