Excel VBA質問箱 IV

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

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


58433 / 76732 ←次へ | 前へ→

【23027】Re:メニューに表示する区切り線について
回答  かみちゃん  - 05/3/10(木) 12:50 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>そこでお聞きしたいのですが、通常ある「ファイル」や「編集」のメニューのようにテストやテスト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

1 hits

【23026】メニューに表示する区切り線について megu 05/3/10(木) 12:00 質問
【23027】Re:メニューに表示する区切り線について かみちゃん 05/3/10(木) 12:50 回答
【23028】Re:メニューに表示する区切り線について megu 05/3/10(木) 13:02 お礼

58433 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free