Propriedade Window.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 Window .
Valor de retorno
Documento
Comentários
A propriedade Document de uma janela de estêncil encaixada retorna um objeto Document para o estêncil atualmente na parte superior da janela. Se outro estêncil substitui o primeiro na posição superior, o primeiro documento do estêncil é fechado para que a referência a ele torne-se inválida. Para melhores resultados, suponha que referências de documentos a estênceis encaixados não são persistentes.
Se um objeto Window mostrar que nenhum documento está aberto, nenhum documento será retornado e nenhuma exceção será gerada. Sua solução deve verificar Nothing retornado após recuperar a propriedade Document de um objeto Window.
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.