vbaでリボンに新しいタブを追加したい。
エクセル2010です。
マクロの記録で
ファイル→オプション→リボンのユーザー設定→新しいタブ
で、新しいタブを挿入しても記録できませんでした。
2003の時に使っていた
Sub Sample()
Dim myBar As CommandBar
Set myBar = CommandBars.Add(Name:="test")
myBar.Visible = True
End Sub
と言うコードがあるのですが、
これでリボンの追加ができるのかと思い実行してみましたが
何も変化が起きません。
2度目にこのコードを実行しようとすると
Set myBar = CommandBars.Add(Name:="test")
で、
実行時エラー5「プロシージャの呼び出し、または引数が不正です。」
になります。
どうすればいいでしょうか?
お礼
ありがとうございます。 そこはすでに知っていましたが、別のところで方法を見つけました。