InvisibleApp.Active-Eigenschaft (Visio)
Gibt an, ob die Instanz von Microsoft Visio, die durch das Application-Objekt dargestellt wird, die aktive Anwendung auf dem Microsoft Windows-Desktop ist – die Anwendung mit der hervorgehobenen Titelleiste. Schreibgeschützt.
Syntax
Ausdruck. Aktiv
Ausdruck Eine Variable, die ein InvisibleApp-Objekt darstellt.
Rückgabewert
Ganze Zahl
HinwBemerkungeneise
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 Instanz von Visio die aktive Anwendung auf Ihrem Desktop ist, ruft GetObject("visio.application") diese Instanz ab, und die Active-Eigenschaft ist True.
Wenn Sie die Instanz von Microsoft Excel aktivieren, ruft GetObject("visio.application") dieselbe Instanz 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 Instanz 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.
Feedback
https://aka.ms/ContentUserFeedback.
Bald verfügbar: Im Laufe des Jahres 2024 werden wir GitHub-Issues stufenweise als Feedbackmechanismus für Inhalte abbauen und durch ein neues Feedbacksystem ersetzen. Weitere Informationen finden Sie unterFeedback senden und anzeigen für