Application.BuiltInToolbars プロパティ (Visio)
組み込みの Microsoft Visio ツール バーのコピーを表す UIObject オブジェクトを返します。 読み取り専用です。
注:
Visio 2010 以降、Microsoft Office Fluent ユーザー インターフェイス (UI) は、以前の階層化されたメニュー、ツール バー、作業ウィンドウのシステムを置き換えました。 以前のバージョンの Visio でユーザー インターフェイスをカスタマイズするために使用した VBA オブジェクトとメンバーは、Visio では引き続き使用できますが、機能は異なります。
構文
式。BuiltInToolbars (fIgnored)
expressionApplication オブジェクトを 表す変数。
パラメーター
| 名前 | 必須 / オプション | データ型 | 説明 |
|---|---|---|---|
| fIgnored | 必須 | Integer | 下位互換性のために必要ですが、無視されます。 ゼロ (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 ツールバーのコピーの取得、ツールバー ボタンの追加、およびボタン アイコンの設定を行い、組み込みのツールバー セットをユーザー設定のセットで置き換える方法を示しています。
このマクロを実行する前に、次のコードを、コンピューター上のアイコン ファイル (.ico) への完全なパスとファイル名に置き換えます (path\filename) 。
このマクロを実行した後、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 のサポートおよびフィードバックを参照してください。