【Excel】ツールバーのユーザー設定

質問

Excel2003を使用しています。

表示 → ツールバー → ユーザー設定でコマンドタブを選択
左側の分類でファイルを選択した状態で右側のコマンド欄に「新規作成」の項目が２つあります。ボタンイメージは同じですが、ひとつは『新規作成...』もうひとつは『新規作成』と表示されています。
元々１つだったと思うのですが、どうして２つになったのかわかりません。できれば、元の状態に戻したいのですが、どうすればいいでしょうか？

あと、ツールバーを自分で作ることってできるのでしょうか？
マクロを登録しているボタンを集めたツールバーを作れたらいいなと思っているのですが。。。
また、自作のツールバーが可能な場合、これを他のPCへも引き継げますか？

よろしくお願いします。

回答No.1

mshr1962 · ベストアンサー

＞「新規作成」の項目が２つあります。
「新規作成...」ボタンを押した後、テンプレートの選択がある。
「新規作成」ボタンを押すと、ワークブックが追加されるだけ。
どちらか好きなほうを設定すればいいかと．．．

＞あと、ツールバーを自分で作ることってできるのでしょうか？
ユーザー設定の「ツールバー」の「新規作成」で名前を付ければ出来ます。
あとは「コマンド」タブから必要なボタンを配置してください。

＞また、自作のツールバーが可能な場合、これを他のPCへも引き継げますか？
方法１．個人で使う場合
上記のツールバーを持つ新規ブックを、XLSTARTフォルダに保存する。
ネットワーク上なら「ツール」「オプション」「全般」の
「起動時にすべてのファイルを開くフォルダ」を設定してそのフォルダに保存
※「起動時にすべてのファイルを開くフォルダ」はEXCEL2000以前では「代替XLSTARTフォルダ」となってます。

方法２．第三者に送る場合（ブック限定）
ユーザー設定の「ツールバー」の「添付」を押して
「ツールバーの登録」に「コピー」する。

お礼

mshr1962 さん、こんにちは。
いつも的確なご回答ありがとうございます。

>「新規作成...」ボタンを押した後、テンプレートの選択がある。
>「新規作成」ボタンを押すと、ワークブックが追加されるだけ。
こういうことだったんですね。気づかないうちに増えていたので、ちょっと気になりまして。。。

ツールバーを自分で作ることは可能なんですね。
早速、試してみたいと思います！
ありがとうございました。

回答No.2

Wendy02

こんにちは。Wendy02です。

私は、マクロが主体ですから、少し、違う意見を書きます。

>「新規作成」の項目が２つ
>元々１つだったと思うのですが、

いいえ、二つです。ツールバーに出ている側が、『新規作成』で、メニューのファイルの中にあるのが、『新規作成...』で、通常は、ツール・アイコンには出ていません。

>ツールバーを自分で作ることってできるのでしょうか？
　　　　＋
>マクロを登録しているボタンを集めたツールバー

私が作ったもので、他人の環境に渡せるツールバーは、ひとつぐらいしかないと思います。ほとんど、メニューに組み込みますので、ツールバーにはほとんどしません。以前、ここのカテゴリで相談にも乗りましたが、ツールバーは、よほど数が少なくないと、固定してくれません。固定できないので、アプリケーションのフレームの右とか左を使う例もあるぐらいです。だからと言って、フローティングしてワークシート上に置くというのも、臨時で使うならともかく、常時使うものにはふさわしくありません。

ここのサイトで公開したサンプルがありますが、ツールバーのメニュー組み込み型です。これは、ツールバーとしては場所をとりません。

メニュー消去で、メニューが完全に削除されます。

サンプルマクロ
'//標準モジュール//
'-----------------------------------------------
Sub CommandMenu_Add()
　Dim myCBCtrl As CommandBarControl
　Dim mySubCB As CommandBarControl
　Dim myCBC As CommandBar
　'ユーザーメニューは、最初に、メニュー削除を置き、二重登録させないようにする
　On Error Resume Next
　　　Application.CommandBars("ユーザーメニュー").Delete
　On Error GoTo 0
　'オブジェクト変数を置くほうが楽
　Set myCBC = Application.CommandBars.Add(Name:="ユーザーメニュー", Position:=msoBarTop, Temporary:=True)

　 Set myCBCtrl = myCBC.Controls.Add(Type:=msoControlPopup)
　With myCBCtrl
　　.Caption = "メニュー(&U)"
　　.BeginGroup = True
　　.TooltipText = "ユーザーメニューの設定の仕方(&U)"
　End With

　Set mySubCB = myCBCtrl.CommandBar.Controls.Add(Type:=msoControlButton)
　With mySubCB
　　.Caption = "コマンド1(&A)"
　　.OnAction = "msg1"
　　.FaceId = 481
　End With
　Set mySubCB = myCBCtrl.CommandBar.Controls.Add(Type:=msoControlButton)
　With mySubCB
　　.Caption = "コマンド2(&B)"
　　.OnAction = "msg2"
　　.FaceId = 482
　End With
　Set mySubCB = myCBCtrl.CommandBar.Controls.Add(Type:=msoControlButton)
　With mySubCB
　　.Caption = "メニュー消去(&X)"
　　.OnAction = "DeleteMenu"
　　.FaceId = 483
　End With
myCBC.Visible = True
Set mySubCB = Nothing
Set myCBCtrl = Nothing
Set myCBC = Nothing

End Sub
Private Sub Msg1()
　MsgBox "コマンド1が実行されました。"
End Sub
Private Sub Msg2()
　MsgBox "コマンド2が実行されました。"
End Sub
Private Sub DeleteMenu()
　If MsgBox("メニューを消去してよいですか？", vbOKCancel) = vbOK Then
　 On Error Resume Next
　　　Application.CommandBars("ユーザーメニュー").Delete
　 On Error GoTo 0
　End If
End Sub

お礼

Wendy02 さん、こんにちは。
詳しいご回答ありがとうございます。

>>「新規作成」の項目が２つ
>>元々１つだったと思うのですが、

>いいえ、二つです。ツールバーに出ている側が、『新規作成』で、メニューのファイルの中にあるのが、『新規作成...』で、通常は、ツール・アイコンには出ていません。

元々１つだと思っていたのは、１つしか表示されていなかったということですか。元々１つだと思っていたので、ちょっと気になっていましたが、元々２つとのことですので、気にしないことにします。

>ツールバーは、よほど数が少なくないと、固定してくれません。

確かに数が増えると固定できなくて、普段あまり使わないものを削除したりして調整していました。

早速、記載していただいたサンプルのマクロを実行してみました。
これだと場所を取らないし、ボタン名も横に明示されていて、わかりやすいですね。
ありがとうございました。