Application.Active-Eigenschaft (Visio)

Gibt an, ob die durch das Application-Objekt dargestellte instance von Microsoft Visio die aktive Anwendung auf dem Microsoft Windows-Desktop ist – die Anwendung mit der hervorgehobenen Titelleiste. Schreibgeschützt.

Syntax

Ausdruck. Aktiv

expression Eine Variable, die ein Application-Objekt darstellt.

Rückgabewert

Ganze Zahl

Hinweise

Die aktive Anwendung auf dem Windows-Desktop unterscheidet sich von der aktiven Visio-Instanz, die durch einen Aufruf der OLE-Methode GetActiveObject (GetObject-Methode in Microsoft Visual Basic) zurückgegeben wird. Die GetObject-Methode ruft die zuletzt aktivierte Visio-Instanz ab, wobei es sich nicht unbedingt um die gerade aktive Anwendung auf dem Desktop handeln muss. Unter allen derzeit ausgeführten Visio-Instanzen ist nur eine Instanz die aktive Visio-Instanz.

Angenommen, Sie starten eine Instanz von Visio und eine Instanz einer anderen Anwendung, wie z. B. Microsoft Excel.

• Wenn die instance von Visio die aktive Anwendung auf Ihrem Desktop ist, ruft GetObject("visio.application") diese instance ab, und die Active-Eigenschaft ist True.

• Wenn Sie die instance von Microsoft Excel aktivieren, ruft GetObject("visio.application") dieselbe instance von Visio ab, die Active-Eigenschaft ist jedoch False.

Lautet die Active-Eigenschaft eines Application-Objekts True, können Sie davon ausgehen, dass es sich bei der entsprechenden Visio-Instanz um die aktive Instanz von Visio handelt, sofern die InPlace-Eigenschaft nicht ebenfalls True ist. Wenn eine Visio-Instanz für die In-Place-Bearbeitung in einer Containeranwendung aktiviert ist, meldet sich diese Instanz nicht notwendigerweise als die aktive Instanz von Visio.

Beispiel

Das folgende Visual Basic-Programm zeigt, wie Sie die aktive instance von Visio abrufen.

 
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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.