次の方法で共有


Document.SetCustomToolbars メソッド (Visio)

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

構文

SetCustomToolbars (ToolbarsObject)

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

パラメーター

名前 必須 / オプション データ型 説明
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 のサポートおよびフィードバックを参照してください。