共用方式為

Visio) (Application.Active 屬性

  • 發行項

會指出 Application 物件所代表的 Microsoft Visio 實例是否為 Microsoft Windows 桌面上的使用中應用程式 -- 也就是標題列反白的應用程式。 唯讀。

語法

運算式。積極

expression 代表 Application 物件的變數。

傳回值

整數

註解

Windows 桌面上的使用中應用程式與使用中的 Visio 實例不同，此實例是由 OLE GetActiveObject 方法 (在 Microsoft Visual Basic 中為 GetObject 方法) 的呼叫所傳回。 GetObject 方法會擷取最近啟動的 Visio 實例，而此實例不一定是當時在桌面上的使用中應用程式。 目前執行的所有 Visio 實例中，只有一個是使用中的 Visio 實例。

例如，假設您啟動一個 Visio 實例以及另一個應用程式 (例如 Microsoft Excel) 的實例。

  • 如果 Visio 的實例是桌面上的使用中應用程式， GetObject (「visio.application」) 擷取該實例，且其 Active 屬性為 True。

  • 如果您啟用 Microsoft Excel 的實例， GetObject (「visio.application」) 會擷取相同的 Visio 實例，但其 Active 屬性為 False。

如果 Application 物件的 Active 屬性為 True，則除非 InPlace 屬性也是 True，否則您可以假設對應的 Visio 實例就是使用中的 Visio 實例。 如果啟動了 Visio 實例，以便能夠在容器應用程式中就地編輯，則該實例不一定會將它自己報告為使用中的 Visio 實例。

範例

下列 Visual Basic 程式示範如何取得 Visio 的作用中實例。

 
Public Sub Active_Example() 
 
 Dim vsoApplication1 As Visio.Application 
 Dim vsoApplication2 As Visio.Application 
 
 'Create two new instances of Visio. 
 Set vsoApplication1 = CreateObject("visio.application") 
 Set vsoApplication2 = CreateObject("visio.application") 
 
 'Use the Active property to determine whether 
 'the instance of Visio is active. 'Result = False. Prints "0" in the Immediate window 
 Debug.Print vsoApplication1.Active 
 
 'Result = True. Prints "-1" in the Immediate window. 
 Debug.Print vsoApplication2.Active 
 
End Sub

支援和意見反應

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