Documents.Add-Methode (Visio)
Fügt einer Documents-Auflistung ein neues Document-Objekt hinzu.
Syntax
Ausdruck. Hinzufügen (FileName)
Ausdruck Eine Variable, die ein Documents-Objekt darstellt.
Parameter
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
|---|---|---|---|
| FileName | Erforderlich | String | Der Typ oder Dateiname des hinzuzufügenden Dokuments; Wenn Sie keinen Pfad angeben, durchsucht Visio den Ordner oder die Ordner, die in der TemplatePaths-Eigenschaft des Application-Objekts angegeben sind, und alle veröffentlichten Vorlagen, einschließlich der veröffentlichten Vorlagen von Drittanbietern. |
Rückgabewert
Dokument
Hinweise
Übergeben Sie eine leere Zeichenfolge ("") an die Add-Methode, um eine neue Zeichnung ohne eine Vorlage zu erstellen.
Um eine neue Zeichnung basierend auf einer anderen Datei wie einer Vorlage zu erstellen, übergeben Sie den Dateinamen der ursprünglichen Datei an die Add-Methode . Visio öffnet Schablonen, die Teil des Arbeitsbereichs der Vorlage sind, und kopiert Stile und andere Einstellungen, die der Vorlage zugeordnet sind, in das neue Dokument. Wenn der Name der Vorlagendatei ungültig ist, wird kein Dokument zurückgegeben, und es wird ein Fehler generiert.
Übergeben Sie ("vss"), um eine neue Schablone zu erstellen, die auf keiner Schablone basiert.
Hinweis
Das Übergeben eines Dateinamens als Argument an die Add-Methode entspricht dem Öffnen einer Datei wie einer Vorlage, bei der eine neue leere Zeichnung erstellt wird, die aus dem Original kopierten Inhalt enthält.
Beispiel
Mit dem folgenden Makro wird gezeigt, wie Document-Objekte wie Vorlagen, Schablonen und Zeichnungen der Documents-Auflistung hinzugefügt werden.
Ersetzen Sie vor dem Ausführen dieses Makros Myfile.vsd durch eine gültige VSD-Datei.
Public Sub AddDocument_Example()
Dim vsoDocument As Visio.Document
'Add a Document object based on the Basic Diagram template.
Set vsoDocument = Documents.Add("Basic Diagram.vst")
'Add a Document object based on a drawing (creates a copy of the drawing).
Set vsoDocument = Documents.Add("Myfile.vsd ")
'Add a Document object based on a stencil (creates a copy of the stencil).
Set vsoDocument = Documents.Add("Basic Shapes.vss")
'Add a Document object based on no template.
Set vsoDocument = Documents.Add("")
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.