ＶＢＡにて メニューを追加して、区切りの線も追加するには

以下のコードにてメニューを追加していますが、
区切りの線を追加するにはどうすれば良いのでしょうか？

Set SubMenu = MainMenu.Controls.Add
SubMenu.Caption = "空白シートの削除"
SubMenu.OnAction = "空白シートの削除"

Set SubMenu = MainMenu.Controls.Add
SubMenu.Caption = "空白シートの追加"
SubMenu.OnAction = "空白シートの追加"


空白シートの削除
＿＿＿＿＿＿＿＿＿　　←　区切りの線

空白シートの追加

No.1 ベストアンサー 回答者： zap35 回答日時： 2007/04/11 18:18

BeginGroupプロパティです

Set SubMenu = MainMenu.Controls.Add
SubMenu.Caption = "空白シートの追加"
SubMenu.OnAction = "空白シートの追加"
SubMenu.BeginGroup = True

でどうでしょうか

この回答へのお礼

回答ありがとうございます。
ばっちりでした。
一応、自分でも調べたのですが見つけ出すことが出来ませんでした。
また、教えていただいたコードをネットで検索しても、１件もヒットしません。
貴殿はどうやって知ったのでしょうか？
よろしければ教えてください。

お礼日時：2007/04/12 18:53

No.2 回答者： zap35 回答日時： 2007/04/13 00:43

＃０１です

私の場合はたまたま手持ちのVBA解説本にそのプロパティが載っていたからです。

でもオブジェクトブラウザで対象となるオブジェクトのプロパティ一覧を見ることができますから、困ったときはオブジェクトブラウザを開いてみると良いと思います。

オブジェクトブラウザはVBE画面でＦ２で開きます

この回答へのお礼

回答ありがとうございます。

>オブジェクトブラウザはVBE画面でＦ２で開きます
お～～　これもはじめて知りました。
色々あってすごいですね。

お礼日時：2007/04/13 08:50