PROPRIÉTÉ UIObject.AccelTables (Visio)

Renvoie la collection AccelTables d’un objet UIObject . En lecture seule.

Syntaxe

expression. AccelTables

Expression Variable qui représente un objet UIObject .

Valeur renvoyée

AccelTables

Remarques

Remarque

À compter de Visio 2010, l’interface utilisateur Microsoft Office Fluent a remplacé le système précédent de menus en couches, de barres d’outils et de volets Office. Les objets et membres VBA que vous avez utilisés pour personnaliser l’interface utilisateur dans les versions précédentes de Visio sont toujours disponibles dans Visio, mais ils fonctionnent différemment.

Si un objet UIObject représente des éléments de menu et des raccourcis (par exemple, si l'objet UIObject a été récupéré à l'aide de la propriété BuiltInMenus d'un objet Application), sa collection AccelTables représente les tables de raccourcis de cet objet UIObject.

La propriété ItemAtID d’une collection AccelTables permet d’extraire les raccourcis relatifs à un contexte de fenêtre particulier, par exemple, la fenêtre de dessin. Aucune collection AccelTables n’est associée à un contexte dépourvu de raccourcis. Les ID de contexte de fenêtre valides sont déclarés dans VisUIObjSets dans la bibliothèque de types Visio.

Exemple

La macro Microsoft Visual Basic pour Applications (VBA) suivante indique comment utiliser la propriété AccelTables pour supprimer un raccourci d'un menu intégré.

Pour restaurer les menus intégrés de Microsoft Visio après avoir exécuté cette macro, appelez la méthode ThisDocument.ClearCustomMenus.

 
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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.