VisSaveAsWeb.CreatePages-Methode

Initiiert die Webseitenerstellung.

Syntax

Ausdruck. 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. Wenn kein Dokument angegeben ist, speichert Microsoft Visio das aktive Dokument standardmäßig.

Beispiel

Das folgende Beispiel zeigt, wie Sie eine vorhandene Datei öffnen und als Webseite speichern, indem Sie die Standardeinstellungen des Features Als Webseite speichern und die Methoden AttachToVisioDoc und CreatePages verwenden. Ersetzen path\filename Sie vor dem Ausführen dieses Beispiels durch einen gültigen Pfad und Dateinamen für ein Visio-Dokument, das an die Open-Methode übergeben werden soll. Ersetzen Sie außerdem durch targetpath\filename einen gültigen Zielpfad und einen Dateinamen für die Webseitenprojektdateien.

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.