Application.SetCustomToolbars メソッド (Visio)

アプリケーションまたは図面の現在の組み込みツールバーまたはカスタム ツールバーを置き換えます。

構文

式。SetCustomToolbars (ToolbarsObject)

expressionApplication オブジェクトを 表す変数。

パラメーター

名前 必須 / オプション データ型 説明
ToolbarsObject 必須 [IVUIOBJECT] 新しいユーザー設定ツールバーを表す UIObject オブジェクトを返す式です。

戻り値

なし

解説

ToolbarsObject オブジェクトが Application オブジェクトまたは Document オブジェクトの適切なプロパティを取得する代わりに VBA CreateObject メソッドを使用して別のプロセスで作成された場合、SetCustomToolbars メソッドはエラーを返します。

例

この Microsoft Visual Basic for Applications (VBA) マクロは、SetCustomToolbars メソッドを使って組み込みのツールバー セットをユーザー設定のセットで置き換える方法を示しています。 組み込みの Visio ツールバーのコピーの取得、ツールバーとツールバーのボタンの追加、およびボタン アイコンの設定を行い、ツールバー セットを置き換えます。

このマクロを実行する前に、コード内の path\filename を、コンピューター上のアイコン ファイル (.ico) の完全なパスとファイル名に置き換えてください。

Public Sub SetCustomToolbarItems_Example() 
 
 Dim vsoUIObject As Visio.UIObject 
 Dim vsoToolbarSet As Visio.ToolbarSet 
 Dim vsoToolbar As Visio.Toolbar 
 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) 
 
 'Create a new toolbar 
 Set vsoToolbar = vsoToolbarSet.Toolbars.Add 
 
 With vsoToolbar 
 .Caption = "test" 
 .Position = visBarFloating 
 .Left = 300 
 .Top = 200 
 
 .Protection = visBarNoHorizontalDock 
 .Visible = True 
 .Enabled = True 
 End With 
 
 'Get the ToolbarItems collection. 
 Set vsoToolbarItems = vsoToolbar.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 のサポートおよびフィードバックを参照してください。

  • 最終更新: