InvisibleApp. SaveAsWebObject-Eigenschaft (Visio)InvisibleApp.SaveAsWebObject property (Visio)

Gibt einen Verweis auf die IDispatch -Schnittstelle eines VisSaveAsWeb -Objekts zurück.Returns a reference to the IDispatch interface of a VisSaveAsWeb object. Schreibgeschützt.Read-only.

SyntaxSyntax

Ausdruck. SaveAsWebObjectexpression.SaveAsWebObject

Ausdruck Eine Variable, die ein InvisibleApp -Objekt darstellt.expression A variable that represents an InvisibleApp object.

RückgabewertReturn value

ObjektObject

BemerkungenRemarks

Nachdem Sie einen Verweis auf das VisSaveAsWeb -Objekt erhalten haben, können Sie die Objekte, Methoden und Eigenschaften der Save as-Webseiten-API verwenden, um Microsoft Visio Dokumente im Internet zu veröffentlichen.Once you have a reference to the VisSaveAsWeb object, you can use the objects, methods, and properties of the Save as Web Page API to publish Microsoft Visio documents to the Web. Weitere Informationen zur API "als Webseiten speichern" finden Sie unter "Speichern als Webseiten-API" auf der MSDN-Seite.For more information about the Save as Web Page API, search for "Save as Web Page API" on MSDN.

Damit Sie mit der API "Save as"-Webseiten arbeiten können, müssen Sie einen Verweis auf die Bibliothek "14,0 Microsoft Visio speichern als " im Microsoft Visual Basic-oder Microsoft Visual Basic für Applikationen-Projekt (VBA) erhalten.To be able to work with the Save as Web Page API, you must get a reference to the Microsoft Visio 14.0 Save As Web Type Library in your Microsoft Visual Basic or Microsoft Visual Basic for Applications (VBA) project. Um diese Referenz in VBA zu erhalten, gehen Sie wie folgt vor:To get this reference in VBA, use the following procedure:

  1. Klicken Sie in der Gruppe Code auf der Registerkarte Entwicklertools auf Visual Basic.In the Code group on the Developer tab, click Visual Basic.

  2. Klicken Sie im Menü Extras auf Verweise.On the Tools menu, click References.

  3. Wählen Sie in der Liste Verfügbare Verweise Microsoft Visio 14,0 als webbibliothek speichern aus, und klicken Sie auf OK.In the Available References list, select Microsoft Visio 14.0 Save As Web Type Library and click OK.

BeispielExample

Dieses VBA-Makro zeigt, wie Sie mit der SaveAsWebObject -Eigenschaft ein VisSaveAsWeb -Objekt abrufen.This VBA macro shows how to use the SaveAsWebObject property to get a VisSaveAsWeb object. Außerdem wird gezeigt, wie Sie ein VisWebPageSettings -Objekt abrufen, die Einstellungen für die Webpage konfigurieren und eine Webseite erstellen, um das aktive Visio-Dokument anzuzeigen.It also shows how to get a VisWebPageSettings object, configure Web-page settings, and create a webpage to display the active Visio document. Das Makro ruft ein Visio- Anwendungs Objekt ab und übergibt es an die SaveAsWeb -Prozedur, die das VisSaveAsWeb -Objekt abruft, die Einstellungen konfiguriert und die Webseite erstellt.The macro gets a Visio Application object and passes it to the SaveAsWeb procedure, which gets the VisSaveAsWeb object, configures the settings, and creates the webpage.

Bevor Sie dieses Makro ausführen, erhalten Sie einen Verweis auf die Microsoft Visio 14,0 speichern als Web-Typbibliothek wie oben beschrieben path\filename , und ersetzen Sie im Code durch den vollständigen Pfad und Namen der HTM-Datei, die Sie auf Ihrem Computer erstellen möchten, um die Webseite anzuzeigen.Before running this macro, get a reference to the Microsoft Visio 14.0 Save As Web Type Library as described above, and replace path\filename in the code with the full path to and name of the .htm file you want to create on your computer to display the webpage.

 
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 Web page 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 FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.