概要 - 新しいツールバーを作成する(VBA/ActiveX)

新しいツールバーを作成するには、Add メソッドを使用して Toolbars コレクションに新しい Toolbar オブジェクトを追加します。

Add メソッドには、追加するツールバーの名前を入力する必要があります。名前は英数字、ダッシュ(-)、アンダースコア(_)から成る文字列です。これら以外の句読点を使用することはできません。名前は、コレクション内でツールバーを簡単に識別するための手段です。

ツールバーを作成した後で、名前を変更することができます。既存のツールバーの名前を変更するには、そのツールバーの Name プロパティを使用します。

新しいツールバーを作成する

次の例では、MenuGroups コレクション内の最初のメニュー グループに、TestToolbar という新しいツールバーを作成します。

Sub Ch6_CreateToolbar()
 Dim currMenuGroup As AcadMenuGroup
 Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)

 ' Create the new toolbar
 Dim newToolbar As AcadToolbar
 Set newToolbar = currMenuGroup.Toolbars.Add("TestToolbar")
End Sub