UIObject.ToolbarSets プロパティ (Visio)

UIObject オブジェクトの ToolbarSets コレクションを返します。 読み取り専用です。

構文

式。 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 ツールバーのコピーの取得、ツールバー ボタンの追加、およびボタン アイコンの設定を行い、組み込みのツールバー セットをユーザー設定のセットで置き換える方法を示しています。

このコードを実行する前に、 を、コンピューター上の有効なアイコン (.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 のサポートおよびフィードバックを参照してください。