Shape プロパティ (Visio)Shape.Document property (Visio)

オブジェクトに関連付けられたDocumentオブジェクトを取得します。Gets the Document object that is associated with an object. 読み取り専用です。Read-only.

構文Syntax

ドキュメントexpression.Document

Shape オブジェクトを表す変数を取得します。expression A variable that represents a Shape object.

戻り値Return value

DocumentDocument

Example

次の Microsoft Visual Basic for Applications (VBA) マクロは、さまざまなオブジェクトのDocumentプロパティを使用して、これらのオブジェクトに関するデータを取得する方法を示しています。次の操作を行います。The following Microsoft Visual Basic for Applications (VBA) macro shows how to use the Document property of various objects to retrieve data about those objects, and does the following:

  • DocumentオブジェクトをDocumentsコレクションに追加し、 documentオブジェクトのいくつかのプロパティを設定します。It adds a Document object to the Documents collection and sets several of the Document object's properties.

  • アクティブなウィンドウとアクティブなページを取得し、そのページに四角形を描画して、作業対象となるさまざまなオブジェクトを提供するためにDocumentオブジェクト上にマスターシェイプをドロップします。It gets the active window and active page, draws a rectangle on the page, and drops a master on the Document object to provide various objects to work on.

  • Documentプロパティを使用して、これらの各オブジェクトに関連付けられたdocumentオブジェクトを取得します。It uses the Document property to get the Document object associated with each of these other objects.

 
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 and feedback

Office VBA またはこの説明書に関するご質問やフィードバックがありますか?Have questions or feedback about Office VBA or this documentation? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.