UiObject.AccelTables 屬性 (Visio)

會傳回UIObject物件的AccelTables集合。 唯讀。

語法

expression。 AccelTables

表達 代表 UIObject 物件的 變數。

傳回值

AccelTables

註解

注意事項

從 Visio 2010 開始，Microsoft Office Fluent 使用者介面 (UI) 取代先前的階層式功能表、工具列和工作窗格系統。 您在舊版 Visio 中用來自訂使用者介面的 VBA 物件和成員仍可在 Visio 中使用，但其運作方式不同。

如果 UIObject 物件代表功能表項目和快速鍵 (例如，如果您使用 Application 物件的 BuiltInMenus 屬性來擷取 UIObject 物件)，則它的 AccelTables 集合會代表該 UIObject 物件的快速鍵表格。

若要擷取特定視窗內容 (例如，繪圖視窗) 的快速鍵，請使用 AccelTables 集合的 ItemAtID 屬性。 如果視窗內容不包含快速鍵，則它不會有任何 AccelTables 集合。 有效的視窗內容識別碼會在 Visio 類型程式庫的 VisUIObjSets 中宣告。

範例

下列 Microsoft Visual Basic for Applications (VBA) 巨集將示範如何使用 AccelTables 屬性，從內建功能表刪除快速鍵。

若要在執行這個巨集之後還原 Microsoft Visio 中的內建功能表，請呼叫 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

支援和意見反應

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