VisSaveAsWeb.CreatePages-Methode

Initiiert die Webseitenerstellung.

Syntax

Ausdruck verwendet werden. CreatePages

Ausdruck Ein Ausdruck, der ein VisSaveAsWeb-Objekt zurückgibt.

Rückgabewert

Nothing

Hinweise

Da das VisSaveAsWeb-Objekt die Einstellungen in seinem VisWebPageSettings-Objekt verwendet, um die Webseite zu erstellen, sollten Sie die CreatePages-Methode aufrufen, nachdem Sie alle erforderlichen Änderungen am VisWebPageSettings-Objekt vorgenommen haben.

Verwenden Sie die AttachToVisioDoc-Methode , um anzugeben, welches Dokument als Webseite gespeichert werden soll. Ist kein Dokument angegeben, speichert Microsoft Visio standardmäßig das aktive Dokument.

Beispiel

Im folgenden Beispiel wird gezeigt, wie Sie mithilfe der Standardeinstellungen des Features "Als Webseite speichern" und der Methoden "AttachToVisioDoc " und " CreatePages" eine vorhandene Datei öffnen und als Webseite speichern. Bevor Sie dieses Beispiel ausführen, ersetzen Sie path\filename durch einen gültigen Pfad und Dateinamen für ein Visio-Dokument, um es an die Open-Methode zu übergeben. Ersetzen Sie targetpath\filename außerdem die Datei durch einen gültigen Zielpfad und einen Dateinamen für die Projektdateien der Webseite.

Public Sub CreatePages_Example () 
    Dim vsoSaveAsWeb As VisSaveAsWeb 
    Dim vsoWebSettings As VisWebPageSettings 
    Dim vsoDocument As Visio.Document
 
    Set vsoDocument = Application.Documents.Open("path\filename") 
    Set vsoSaveAsWeb = Visio.Application.SaveAsWebObject 
    Set vsoWebSettings = vsoSaveAsWeb.WebPageSettings
 
    vsoWebSettings.TargetPath = "targetpath\filename"
    
    With vsoSaveAsWeb
        .AttachToVisioDoc vsoDocument
        .CreatePages 
    End With
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.