InvisibleApp ActiveDocument 屬性 (Visio)

會傳回使用中的 物件,該物件是顯示在使用中視窗中的檔。 唯讀。

語法

運算式ActiveDocument

運算式 代表 InvisibleApp 物件的變數。

傳回值

文件

註解

當沒有任何文件開啟時,將不會有任何使用中的文件,且 ActiveDocument 屬性會傳回 Nothing 值,且不會觸發例外狀況。

如果您的程式碼在 Visio 檔的 Microsoft Visual Basic 專案中,則 ActiveDocument 屬性通常會傳回 ThisDocument 物件的參照,而不是會傳回每個 Microsoft Visual Basic 檔之 Visio 專案中的類別模組。 如果 ThisDocument 物件顯示在使用中視窗內,則 ActiveDocument 物件和 ThisDocument 物件會參考相同的文件。 從專案內的程式碼參考 ThisDocument 物件時,它會傳回此專案之 Document 物件的參考。

要使用 ActiveDocument 物件或 ThisDocument 物件是依程式碼的用途而定。

您可以將 ActiveDocument 屬性所傳回的結果與 Nothing 值進行比較,判斷文件是否在使用中。 如果 Documents.Count 屬性的值大於零,至少有一個檔已開啟且使用中狀態。

範例

下列 Microsoft Visual Basic for Applications (VBA) 巨集示範兩種取得使用中文件 (如果存在的話) 的安全方式。 在兩種情況中,此巨集都會在 [立即] 視窗內顯示使用中文件的名稱。 程式碼會取得使用中檔,但不需要 Visio global 物件的限定,它會自動提供給屬於 Visio 檔之 vba 專案一部分的 vba 程式碼。

 
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

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應