Propriedade Page.Document (Visio)

Obtém o objeto Document que está associado a um objeto. Somente leitura.

Sintaxe

expressão. Documento

Expressão Uma variável que representa um objeto Page .

Valor de retorno

Documento

Comentários

Se sua solução do Visual Studio incluir a referência Microsoft.Office.Interop.Visio , essa propriedade será mapeada para os seguintes tipos:

• Microsoft.Office.Interop.Visio.IVPage.Document

Exemplo

A seguinte macro do Microsoft Visual Basic for Applications (VBA) mostra como usar a propriedade Document de vários objetos para recuperar dados sobre esses objetos e faz o seguinte:

• Ela adiciona um objeto Document à coleção Documents e define várias das propriedades do objeto Document.

• Ela obtém a janela e a página ativa, desenha um retângulo na página e solta um mestre no objeto Document para fornecer vários objetos nos quais trabalhar.

• Ela usa a propriedade Document para obter o objeto Document associado a cada um desses outros objetos.

 
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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.