Visio (的 Application.BuiltInToolbars 屬性)
會傳回代表內建 Microsoft Visio 工具列複本的 UIObject 物件。 唯讀。
注意事項
從 Visio 2010 開始，Microsoft Office Fluent 使用者介面 (UI) 取代先前的階層式功能表、工具列和工作窗格系統。 您在舊版 Visio 中用來自訂使用者介面的 VBA 物件和成員仍可在 Visio 中使用，但其運作方式不同。
語法
運算式。builtInToolbars (fIgnored)
expression 代表 Application 物件的變數。
參數
| 名稱 | 必要/選用 | 資料類型 | 描述 |
|---|---|---|---|
| fIgnored | 必要 | 整數 | 回溯相容性需要用到它，但是予以略過。 建議您傳遞零 (0) 的值。 |
傳回值
UIObject
註解
使用 BuiltInToolbars 屬性來取得 UIObject 物件並修改其工具列。 然後，您可以使用 Application或Document物件的SetCustomToolbars方法，將自訂工具列取代為內建的 Visio 工具列。
還可以使用 UIObject 物件的 SaveToFile 方法將其工具列儲存到檔案中，然後再設定 Application 或 Document 物件的 CustomToolbarsFile 屬性，將這些工具列重新載入為自訂的工具列。
在 Visio 5.0 之前，此屬性的引數是 fWhichToolbars，其指定要 (MSOffice 或 LotusSS) 的工具列類型。 從 Visio 5.0 開始，應用程式不再支援不同類型的工具列，而且會忽略目前的引數 fIgnored。
範例
這個 Microsoft Visual Basic for Applications (VBA) 巨集會示範如何使用 BuiltInToolbars 屬性來取得 Visio 內建工具列的複本、加入工具列按鈕、設定按鈕圖示，以及以自訂的組合取代內建的工具列組合。
執行此宏之前， (path\filename) 請將下列程式碼中的 取代為電腦上圖示檔 (.ico) 的完整路徑和檔案名。
若要在執行這個巨集之後還原 Visio 內建工具列，請呼叫 ThisDocument.ClearCustomToolbars 方法。
Public Sub BuiltInToolbars_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 sets.'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
'Set the caption for the new toolbar button.
vsoToolbarItem.Caption = "MyButton"
'Set the icon for the new toolbar button.
vsoToolbarItem.IconFileName "(path\filename)" 'Tell Visio to actually use the new custom UI.
ThisDocument.SetCustomToolbars vsoUIObject
End Sub
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。