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

このマクロを実行する前に、次のコードの (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 のサポートおよびフィードバックを参照してください。

  • Last updated on