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 のサポートおよびフィードバックを参照してください。