Application.SaveAsWebObject-Eigenschaft (Visio)

  • Artikel

Gibt einen Verweis auf die IDispatch-Schnittstelle eines VisSaveAsWeb-Objekts zurück. Schreibgeschützt.

Syntax

Ausdruck. SaveAsWebObject

expression Eine Variable, die ein Application-Objekt darstellt.

Rückgabewert

Objekt

HinwBemerkungeneise

Sobald Sie über einen Verweis auf das VisSaveAsWeb-Objekt verfügen, können Sie die Objekte, Methoden und Eigenschaften der API als Webseite speichern verwenden, um Microsoft Visio-Dokumente im Web zu veröffentlichen. Weitere Informationen zur API zum Speichern als Webseite finden Sie auf MSDN nach "Als Webseite-API speichern".

Um mit der API "Als Webseite speichern" arbeiten zu können, müssen Sie einen Verweis auf die Microsoft Visio 14.0-Webtypbibliothek in Ihrem Vba-Projekt (Microsoft Visual Basic oder Microsoft Visual Basic for Applications) abrufen. Gehen Sie wie folgt vor, um diesen Verweis in VBA abzurufen:

  1. Klicken Sie in der Gruppe Code auf der Registerkarte Entwicklertools auf Visual Basic.

  2. Klicken Sie im Menü Extras auf Verweise.

  3. Wählen Sie in der Liste Verfügbare Verweise die Option Microsoft Visio 2010 Save As Web Type Library aus, und klicken Sie auf OK.

Wenn Ihre Visual Studio-Projektmappe den Verweis Microsoft.Office.Interop.Visio enthält, wird diese Eigenschaft den folgenden Typen zugeordnet:

  • Microsoft.Office.Interop.Visio.IVApplication.SaveAsWebObject

Beispiel

Dieses VBA-Makro veranschaulicht, wie Sie mithilfe der SaveAsWebObject-Eigenschaft ein VisSaveAsWeb-Objekt abrufen. Außerdem wird gezeigt, wie Sie ein VisWebPageSettings-Objekt abrufen, Webseiteneinstellungen konfigurieren und eine Webseite erstellen, um das aktive Visio-Dokument anzuzeigen. Das Makro ruft ein Visio Application-Objekt ab und übergibt es an die SaveAsWeb-Prozedur , die das VisSaveAsWeb-Objekt abruft, die Einstellungen konfiguriert und die Webseite erstellt.

Rufen Sie vor dem Ausführen dieses Makros wie oben beschrieben einen Verweis auf die Microsoft Visio 14.0 Webtypbibliothek ab, und ersetzen path\filename Sie im Code durch den vollständigen Pfad zu und den Namen der .htm Datei, die Sie auf Ihrem Computer erstellen möchten, um die Webseite anzuzeigen.

 
Public Sub SaveAsWebObject_Example 
 
    Dim vsoApplication as Visio.Application 
    Call SaveAsWeb(vsoApplication) 
 
End Sub 
 
 
Public Sub SaveAsWeb (vsoApplication as Visio.Application) 
 
    Dim objSaveAsWeb As IVisSaveAsWeb 
    Dim objWebPageSettings As IVisWebPageSettings 
 
    ' Get a VisSaveAsWeb object that  
    ' represents a new webpage project 
    Set objSaveAsWeb = Application.SaveAsWebObject 
 
    ' Get a VisWebPageSettings object 
    Set objWebPageSettings = objSaveAsWeb.WebPageSettings 
 
    ' Configure Web-page settings 
    objWebPageSettings.StartPage = 1 
    objWebPageSettings.EndPage = 2 
    objWebPageSettings.LongFileNames = True 
    objWebPageSettings.TargetPath = "path\filename " 
 
    ' Now create the pages; because we did not identify  
    ' a particular document, the active document is saved 
    objSaveAsWeb.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.