共用方式為

Visio) (UIObject.ToolbarSets 屬性

  • 發行項

會傳回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 支援與意見反應。