Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10228 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【23026】メニューに表示する区切り線について megu 05/3/10(木) 12:00 質問[未読]
【23027】Re:メニューに表示する区切り線について かみちゃん 05/3/10(木) 12:50 回答[未読]
【23028】Re:メニューに表示する区切り線について megu 05/3/10(木) 13:02 お礼[未読]
【23026】メニューに表示する区切り線について
質問  megu  - 05/3/10(木) 12:00 -
引用なし
パスワード
   お世話になります。
過去ログを見て、メニューにVBAでマクロを組み込むことができました。
そこでお聞きしたいのですが、通常ある「ﾌｧｲﾙ」や「編集」のメニューのようにテストやテスト２の間に区切り線を付けることは可能でしょうか？
イメージは下記のような感じです。

　テスト
　−−−−−
　テスト２
　テスト３

これで、わかって頂けるでしょうか？
現在、組み込んでいるVBAも載せておきますのでご教授下さい。

With MenuBars(xlWorksheet)
.Menus.Add Caption:="新メニュー"
.Menus("新メニュー").MenuItems.Add _
　Caption:="テスト", OnAction:="Test1"
.Menus("新メニュー").MenuItems.Add _
　Caption:="テスト2", OnAction:="Test2"
.Menus("新メニュー").MenuItems.Add _
　Caption:="テスト3", OnAction:="Test3"
End With
【23027】Re:メニューに表示する区切り線について
回答  かみちゃん  - 05/3/10(木) 12:50 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>そこでお聞きしたいのですが、通常ある「ﾌｧｲﾙ」や「編集」のメニューのようにテストやテスト２の間に区切り線を付けることは可能でしょうか？

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

なお、以下のＵＲＬを参考にしてみてください。
自作メニューバーのプルダウンメニューに境界線を入れる
http://www2.moug.net/cgi-bin/technic.cgi?exvba+TI08010002
メニューバーに独自のメニューを追加する
http://www.officetanaka.net/excel/vba/tips/tips05.htm
【23028】Re:メニューに表示する区切り線について
お礼  megu  - 05/3/10(木) 13:02 -
引用なし
パスワード
   かみちゃんさん、とても参考になりました。
また何かありましたら質問をさせて頂きますので、よろしくお願い致します。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10228 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free