Freigeben über

Shape.Document-Eigenschaft (Visio)

  • Artikel

Ruft das Document-Objekt ab, das einem -Objekt zugeordnet ist. Schreibgeschützt.

Syntax

Ausdruck. Dokument

Ausdruck Eine Variable, die ein Shape-Objekt darstellt.

Rückgabewert

Dokument

Beispiel

Das folgende Makro von VBA (Microsoft Visual Basic für Applikationen) veranschaulicht, wie die Document-Eigenschaft verschiedener Objekte zum Abrufen von Daten über diese Objekte verwendet wird, und führt folgende Aktionen aus:

  • Es fügt ein Document-Objekt zur Documents-Auflistung hinzu und legt zahlreiche der Eigenschaften des Document-Objekts fest.

  • Es ruft das aktive Fenster und das aktive Zeichenblatt ab, zeichnet ein Rechteck auf das Zeichenblatt und legt ein Master-Shape im Document-Objekt ab, um es so zahlreichen Objekten zum Bearbeiten bereitzustellen.

  • Es verwendet die Document-Eigenschaft zum Abrufen des Document-Objekts, das jedem dieser anderen Objekte zugeordnet ist.

 
Public Sub Document_Example() 
 
 Dim vsoDocument As Visio.Document 
 Dim vsoTempDocument As Visio.Document 
 Dim vsoPage As Visio.Page 
 Dim vsoShape As Visio.Shape 
 Dim vsoWindow As Visio.Window 
 Dim vsoMaster As Visio.Master 
 
 'Add a document to the Documents collection. 
 Set vsoDocument = Documents.Add("") 
 
 'Set the title of the document. 
 vsoDocument.Title = "My Document" 
 
 'Get the active window and active page. 
 Set vsoWindow = ActiveWindow 
 Set vsoPage = ActivePage 
 
 'Draw a rectangle on the page. 
 Set vsoShape = vsoPage.DrawRectangle(2, 2, 5, 5) 
 
 'Add a master. 
 Set vsoMaster = vsoDocument.Masters.Add 
 
 'Get the Document object associated with various other objects. 
 'Get the Document object associated with the Window object. 
 Set vsoTempDocument = vsoWindow.Document 
 
 'Get the Title property of the Document object 
 'to verify that this is the same document we added earlier. 
 Debug.Print vsoTempDocument.Title 
 
 'Get the Document object associated with the Page object. 
 Set vsoTempDocument = vsoPage.Document 
 Debug.Print vsoTempDocument.Title 
 
 'Get the Document object associated with the Shape object. 
 Set vsoTempDocument = vsoShape.Document 
 Debug.Print vsoTempDocument.Title 
 
 'Get the Document object associated with the Master object. 
 Set vsoTempDocument = vsoMaster.Document 
 Debug.Print vsoTempDocument.Title 
 
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.