UIObject.ToolbarSets 屬性 (Visio)

傳回 UIObject 物件的 ToolbarSets 集合。 唯讀。

語法

expression。 ToolbarSets

運算式 代表 UIObject 物件的變數。

傳回值

ToolbarSets

註解

注意事項

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

如果 UIObject 物件代表工具列 (例如，如果是使用 Application 物件的 BuiltInToolbars 屬性來擷取物件)，則其 ToolbarSets 集合代表該 UIObject 物件的所有工具列。

可以使用 ToolbarSets 物件的 ItemAtID 屬性來擷取特定視窗內容 (例如繪圖視窗) 的工具列。 如果內容不包含工具列，則該內容便沒有 ToolbarSets 集合。

範例

此 Microsoft Visual Basic 巨集示範如何使用 ToolbarSets 屬性取得集合中的特定物件。 它還會說明如何取得內建 Visio 工具列的複本、新增工具列按鈕、設定按鈕圖示，以及將內建工具列集取代為自訂集。

執行這段程式碼之前，請以 path\filename 您電腦上有效圖示 (.ico) 檔案的完整路徑和名稱取代。

若要在執行這個巨集之後還原內建的 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 支援與意見反應。

  • Last updated on