|
こんにちは。かみちゃん です。
>そこでお聞きしたいのですが、通常ある「ファイル」や「編集」のメニューのようにテストやテスト2の間に区切り線を付けることは可能でしょうか?
BeginGroupをTrueに設定すると、そのメニューの直前に区切り線が引かれます。
少しコードが違いますが、この様な感じになります。
Option Explicit
Sub MenuAdd()
Dim NewM As Variant, NewC As Variant
''新しいメニューを追加する
Set NewM = Application.CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControlPopup)
NewM.Caption = "新メニュー"
''オリジナルコマンドを追加する(1)
Set NewC = NewM.Controls.Add
With NewC
.Caption = "テスト"
.OnAction = "Test1"
.BeginGroup = False
End With
''オリジナルコマンドを追加する(2)
Set NewC = NewM.Controls.Add
With NewC
.Caption = "テスト2"
.OnAction = "Test2"
.BeginGroup = False
End With
''オリジナルコマンドを追加する(3)
Set NewC = NewM.Controls.Add
With NewC
.Caption = "テスト3"
.OnAction = "Test3"
.BeginGroup = True
End With
End Sub
なお、以下のURLを参考にしてみてください。
自作メニューバーのプルダウンメニューに境界線を入れる
http://www2.moug.net/cgi-bin/technic.cgi?exvba+TI08010002
メニューバーに独自のメニューを追加する
http://www.officetanaka.net/excel/vba/tips/tips05.htm
|
|