Freigeben über

Verwenden des Objektmodells "Als Webseite speichern" aus Visual Basic: Ein Beispiel

Um die Api zum Speichern als Webseite in Ihrem Visual Basic-Projekt zu verwenden, legen Sie einen Verweis in Ihrem Projekt auf Microsoft Visio 15.0 Als Webtypbibliothek speichern fest.

Hinweis

Im in Visio enthaltenen Visual Basic-Editor finden Sie die Liste der verfügbaren Verweise, indem Sie im Menü Extras auf Verweise klicken. In Visual Basic 6.0 finden Sie diese Liste, indem Sie im Menü Projektauf Verweise klicken.

Das Modell "Als Webseite speichern" enthält zwei Klassen: VisSaveAsWeb und VisWebPageSettings, die die Schnittstellen IVisSaveAsWeb bzw. IVisWebPageSettings implementieren.

  • Ein VisSaveAsWeb-Objekt implementiert die Methoden, die den Erstellungsprozess der Webseite ausführen.
  • Ein VisWebPageSettings-Objekt enthält die Eigenschaften Ihres Webseitenprojekts.

Wenn Sie eine Webseite und ihre unterstützenden Dateien (auch als Webseitenprojekt bezeichnet) erstellen, führen Sie in der Regel die folgenden Schritte aus:

  1. Verwenden Sie die SaveAsWebObject-Eigenschaft des Visio Application-Objekts, um eine instance eines VisSaveAsWeb-Objekts abzurufen.

  2. Verwenden Sie die WebPageSettings-Eigenschaft des VisSaveAsWeb-Objekts , um einen Verweis auf ein VisWebPageSettings-Objekt abzurufen, mit dem Sie die Webseiteneinstellungen für Ihr Projekt abrufen oder festlegen können.

  3. Legen Sie die Eigenschaften des VisWebPageSettings-Objekts fest.

    Hinweis

    Sie müssen immer einen Zielpfad für Ihre Dateien angeben.

  4. Rufen Sie die AttachToVisioDoc-Methode auf, um das Dokument zu identifizieren, das als Webseite gespeichert werden soll. Wenn Sie nicht angeben, welches Dokument gespeichert werden soll, wird die aktive Zeichnung gespeichert.

  5. Rufen Sie die CreatePages-Methode auf, um den Vorgang Als Webseite speichern zu starten.

Das folgende Verfahren zeigt, wie Sie ein neues Webseitenprojekt öffnen, ausgewählte Eigenschaften festlegen und die Webseitendateien erstellen.

Public Sub SaveAsWeb () 
 Dim vsoSaveAsWeb As VisSaveAsWeb 
 Dim vsoWebSettings As VisWebPageSettings 
 
 ' Get a VisSaveAsWeb object that 
 ' represents a new webpage project. 
 Set vsoSaveAsWeb = Visio.Application.SaveAsWebObject 
 
 ' Get a VisWebPageSettings object. 
 Set vsoWebSettings = vsoSaveAsWeb.WebPageSettings 
 
 ' Configure preferences. 
 With vsoWebSettings 
 .StartPage = 1 
 .EndPage = 2 
 .QuietMode = True 
 .TargetPath = "c:\your_folder_name\your_filename.htm" 
 End With 
 
 ' Create the pages. Because no particular document 
 ' is specified, the active drawing is saved. 
 vsoSaveAsWeb.CreatePages 
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.

  • Last updated on