UIObject.AccelTables-Eigenschaft (Visio)

Artikel
04/07/2023

Gibt die AccelTables-Auflistung eines UIObject-Objekts zurück. Schreibgeschützt.

Syntax

Ausdruck. AccelTables

Ausdruck Eine Variable, die ein UIObject-Objekt darstellt.

Rückgabewert

AccelTables

Hinweise

Hinweis

Ab Visio 2010 ersetzt die Microsoft Office Fluent-Benutzeroberfläche das vorherige System von mehrstufigen Menüs, Symbolleisten und Aufgabenbereichen. VBA-Objekte und -Member, die Sie in früheren Versionen von Visio zum Anpassen der Benutzeroberfläche verwendet haben, sind weiterhin in Visio verfügbar, funktionieren aber anders.

Wenn ein UIObject-Objekt Menüelemente und Zugriffstasten darstellt (z. B. wenn Sie mit der BuiltInMenus-Eigenschaft eines Application-Objekts das UIObject-Objekt abgerufen haben), stellt seine AccelTables-Auflistung Tabellen mit Zugriffstasten für dieses UIObject-Objekt dar.

Verwenden Sie die ItemAtID-Eigenschaft einer AccelTables-Auflistung, um Zugriffstasten für einen bestimmten Fensterkontext abzurufen, z. B. dem Zeichnungsfenster. Wenn ein Fensterkontext keine Zugriffstasten einschließt, besitzt er keine AccelTables-Auflistung. Gültige Fensterkontext-IDs werden in VisUIObjSets in der Visio-Typbibliothek deklariert.

Beispiel

Das folgende VBA-Makro (Microsoft Visual Basic für Applikationen) veranschaulicht, wie die AccelTables-Eigenschaft zum Löschen einer Zugriffstaste aus einem integrierten Menü verwendet wird.

Rufen Sie die ThisDocument.ClearCustomMenus-Methode auf, um die integrierten Menüs in Microsoft Visio wiederherzustellen, nachdem Sie dieses Makro ausgeführt haben.

 
Public Sub AccelTables_Example() 
 
 Dim vsoUIObject As Visio.UIObject 
 Dim vsoAccelTable As Visio.AccelTable 
 Dim vsoAccelItems As Visio.AccelItems 
 Dim vsoAccelItem As Visio.AccelItem 
 Dim intCounter As Integer 
 
 'Retrieve the UIObject object for the copy of the built-in menus. 
 Set vsoUIObject = Visio.Application.BuiltInMenus 
 
 'Set vsoAccelTable to the drawing menu set. 
 Set vsoAccelTable = vsoUIObject.AccelTables.ItemAtID(visUIObjSetDrawing) 
 
 'Retrieve the accelerator items collection. 
 Set vsoAccelItems = vsoAccelTable.AccelItems 
 
 'Retrieve the accelerator item for the Visual Basic Editor. 
 'To do this, we must iterate through the collection 
 'and locate the item we want to manipulate. 
 'The item can be identified either by checking 
 'the CmdNum property or by checking for the specific key. 
 'Because checking for the key requires looking at the Alt, 
 'Control, Shift, and Key properties, it is better to use the 
 'CmdNum property. Because we retrieved the built-in menus, 
 'we know that we can find the accelerator. 
 For intCounter = 0 To vsoAccelItems.Count - 1 
 Set vsoAccelItem = vsoAccelItems.Item(intCounter) 
 If vsoAccelItem.CmdNum = Visio.visCmdToolsRunVBE Then 
 Exit For 
 
 End If 
 Next intCounter 
 
 'Delete the accelerator. 
 vsoAccelItem.Delete 
 
 'Tell Visio to use the new UI. 
 ThisDocument.SetCustomMenus vsoUIObject 
 
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.

Freigeben über