Propriedade InvisibleApp. ActiveDocument (Visio)InvisibleApp.ActiveDocument property (Visio)

Retorna o objeto do documento ativo, que é o documento mostrado na janela ativa.Returns the active Document object, which is the document shown in the active window. Somente leitura.Read-only.

SintaxeSyntax

expressão. ActiveDocumentexpression.ActiveDocument

expressão Uma variável que representa um objeto InvisibleApp .expression A variable that represents an InvisibleApp object.

Valor de retornoReturn value

DocumentoDocument

ComentáriosRemarks

Quando não há documentos abertos, não há um documento ativo e a propriedade ActiveDocument retorna Nothing sem criar uma exceção.When no documents are open, there is no active document and the ActiveDocument property returns the value Nothing and does not raise an exception.

Se seu código está no projeto do Microsoft Visual Basic de um documento do Visio, a propriedade ActiveDocument freqüentemente, mas não necessariamente, retorna uma referência ao objeto ThisDocument , um módulo de classe no projeto do Visual Basic de cada Microsoft Visio documento.If your code is in the Microsoft Visual Basic project of a Visio document, the ActiveDocument property often, but not necessarily, returns a reference to the ThisDocument object, a class module in the Visual Basic project of every Microsoft Visio document. Se o objeto ThisDocument for mostrado na janela ativa, o objeto ActiveDocument e o objeto ThisDocument farão referência ao mesmo documento.If the ThisDocument object is shown in the active window, the ActiveDocument object and the ThisDocument object refer to the same document. Quando o objeto ThisDocument for referenciado no código de um projeto, ele retornará uma referência ao objeto Document do projeto.When the ThisDocument object is referenced from code in a project, it returns a reference to the project's Document object.

A opção entre usar o objeto ActiveDocument ou o objeto ThisDocument depende da finalidade do seu código.Whether you use the ActiveDocument object or the ThisDocument object depends on the purpose of your code.

Você pode comparar o resultado retornado pela propriedade ActiveDocument com o valor Nothing para determinar se um documento está ativo.You can compare the result returned by the ActiveDocument property with the value Nothing to determine if a document is active. Se o valor da propriedade Documents. Count for maior que zero, pelo menos um documento será aberto e ativo.If the value of the Documents.Count property is greater than zero, at least one document is open and active.

ExemploExample

A seguinte macro do Microsoft Visual Basic for Applications (VBA) mostra duas maneiras seguras de obter um documento ativo (se existir).The following Microsoft Visual Basic for Applications (VBA) macro shows two safe ways to get an active document (if one exists). Em cada caso, ela imprime o nome do documento ativo na janela Imediato.In each case, it prints the name of the active document in the Immediate window. O código obtém o documento ativo sem qualificação do objeto global do Visio, que está disponível automaticamente para o código VBA que é parte do projeto do VBA de um documento do Visio.The code gets the active document without qualification from the Visio global object, which is automatically available to VBA code that is part of the VBA project of a Visio document.

 
Public Sub ActiveDocument_Example() 
 
 Dim vsoDocument As Document 
 
 'First method 
 If Documents.Count > 0 Then 
 Set vsoDocument = ActiveDocument 
 Debug.Print vsoDocument.Name 
 Else 
 Debug.Print "No active document." 
 End If 
 
 'Second method 
 If Not(ActiveDocument Is Nothing) Then 
 Set vsoDocument = ActiveDocument 
 Debug.Print vsoDocument.Name 
 Else 
 Debug.Print "No active document." 
 End If 
 
End Sub

Suporte e comentáriosSupport and feedback

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação?Have questions or feedback about Office VBA or this documentation? 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.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.