PictureFormat.ReplaceEx-Methode (Publisher)

  • Artikel

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

Syntax

Ausdruck. 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.
InsertAs Optional PbPictureInsertAs-Wert Die Art, in der die Grafikdatei in das Dokument eingefügt werden soll: verknüpft oder eingebettet. Kann eine der in der Microsoft Publisher-Typbibliothek deklarierten PbPictureInsertAs-Konstanten sein. Der Standardwert ist pbPictureInsertAsOriginalState.
Fit Optional PbPictureInsertFit Gibt an, ob das eingefügte Bild an den Rahmen angepasst ist 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.

Ersetzen replacementPicturePath Sie vor dem Ausführen dieses Makros 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.