回傳 UIObject 物件的 ToolbarSets 集合。 唯讀。
語法
expression。 ToolbarSets
詞 一個代表 UIObject 物件的變數。
傳回值
ToolbarSets
註解
注意事項
自 Visio 2010 起，Microsoft Office Fluent 使用者介面 (介面) 取代了先前分層選單、工具列與工作窗格的系統。 你在先前版本 Visio 中用來自訂使用者介面的 VBA 物件和成員仍然可以在 Visio 中使用，但它們的運作方式不同。
如果 UIObject 物件代表工具列 (例如，如果是使用 Application 物件的 BuiltInToolbars 屬性來擷取物件)，則其 ToolbarSets 集合代表該 UIObject 物件的所有工具列。
可以使用 ToolbarSets 物件的 ItemAtID 屬性來擷取特定視窗內容 (例如繪圖視窗) 的工具列。 如果內容不包含工具列，則該內容便沒有 ToolbarSets 集合。
範例
這個 Microsoft Visual Basic 巨集展示了如何使用 ToolbarSets 屬性來取得特定物件到集合中。 它也展示了如何取得內建 Visio 工具列的副本、新增工具列按鈕、設定按鈕圖示，以及將內建工具列組替換成自訂工具列。
在執行此程式碼前，請將電腦上有效圖示檔案的完整路徑與名稱 (.ico) 替換 path\filename 。
若要在執行這個巨集之後還原內建的 Visio 工具列，請呼叫 ThisDocument.ClearCustomToolbars 方法。
Public Sub ToolbarSets_Example()
Dim vsoUIObject As Visio.UIObject
Dim vsoToolbarSet As Visio.ToolbarSet
Dim vsoToolbarItems As Visio.ToolbarItems
Dim vsoToolbarItem As Visio.ToolbarItem
'Get the UIObject object for the copy of the built-in toolbars.
Set vsoUIObject = Visio.Application.BuiltInToolbars(0)
'Get the drawing window toolbar sets.
'NOTE: Use ItemAtID to get the toolbar set.
'Using vsoUIObject.ToolbarSets(visUIObjSetDrawing) will not work.
Set vsoToolbarSet = vsoUIObject.ToolbarSets.ItemAtID(visUIObjSetDrawing)
'Get the ToolbarItems collection.
Set vsoToolbarItems = vsoToolbarSet.Toolbars(0).ToolbarItems
'Add a new button in the first position.
Set vsoToolbarItem = vsoToolbarItems.AddAt(0)
'Set properties for the new toolbar button.
vsoToolbarItem.CntrlType = visCtrlTypeBUTTON
vsoToolbarItem.CmdNum = visCmdPanZoom
'Set the toolbar button icon.
vsoToolbarItem.IconFileName "path\filename"
'Use the new custom UI.
ThisDocument.SetCustomToolbars vsoUIObject
End Sub
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。