InvisibleApp.SaveAsWebObject-Eigenschaft (Visio)
Gibt einen Verweis auf die IDispatch-Schnittstelle eines VisSaveAsWeb-Objekts zurück. Schreibgeschützt.
Syntax
Ausdruck. SaveAsWebObject
Ausdruck Eine Variable, die ein InvisibleApp-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:
Klicken Sie in der Gruppe Code auf der Registerkarte Entwicklertools auf Visual Basic.
Klicken Sie im Menü Extras auf Verweise.
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.
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 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 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.
Feedback
https://aka.ms/ContentUserFeedback.
Bald verfügbar: Im Laufe des Jahres 2024 werden wir GitHub-Issues stufenweise als Feedbackmechanismus für Inhalte abbauen und durch ein neues Feedbacksystem ersetzen. Weitere Informationen finden Sie unterFeedback senden und anzeigen für