InvisibleApp.BuiltInToolbars プロパティ (Visio)
組み込みの Microsoft Visio ツール バーのコピーを表す UIObject オブジェクトを返します。 読み取り専用です。
注:
Visio 2010 以降、Microsoft Office Fluent ユーザー インターフェイス (UI) は、以前の階層化されたメニュー、ツール バー、作業ウィンドウのシステムを置き換えました。 以前のバージョンの Visio でユーザー インターフェイスをカスタマイズするために使用した VBA オブジェクトとメンバーは、Visio では引き続き使用できますが、機能は異なります。
構文
式。BuiltInToolbars (fIgnored)
式InvisibleApp オブジェクトを表す変数。
パラメーター
| 名前 | 必須 / オプション | データ型 | 説明 |
|---|---|---|---|
| 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 のサポートおよびフィードバックを参照してください。