Excelのﾜｰｸｼｰﾄ上で､右ｸﾘｯｸするとｺﾝﾃｷｽﾄﾒﾆｭｰが出ます｡そこにVBAﾏｸﾛを使ってﾒﾆｭｰを追加したいのですが､検索して調べた限りでは､ﾒﾆｭｰ → …

Excelのﾜｰｸｼｰﾄ上で､右ｸﾘｯｸするとｺﾝﾃｷｽﾄﾒﾆｭｰが出ます｡そこにVBAﾏｸﾛを使ってﾒﾆｭｰを追加したいのですが､検索して調べた限りでは､ﾒﾆｭｰ → ｻﾌﾞﾒﾆｭｰまでのやり方しか記事がみつかりませんでした｡それいじょうに階層を増やして､ｻﾌﾞﾒﾆｭｰのｻﾌﾞﾒﾆｭｰを追加する事は出来ないのでしょうか？(つまり､ﾒﾆｭｰ → ｻﾌﾞﾒﾆｭｰ → ｻﾌﾞﾒﾆｭｰ) もし出来るのなら､ｺｰﾄﾞを教えて下さい｡よろしくお願いします｡

検索して見つけた､というのはここでしょうか？
http://www.atmarkit.co.jp/ait/articles/1408/25/news030.html

できますよ､2階層でも 3階層でも｡
CommandBarControl に対して､新しく作ったもうひとつの CommandBarControl を追加します｡
先のﾍﾟｰｼﾞのｿｰｽで､3階層目を表示するのは､こんな感じです｡

Option Explicit
Private Sub Worksheet_Activate()
 Dim myCommandBar As CommandBar
 Dim myCommandBarControl As CommandBarControl  ' 2階層目
 Dim myCommandBarControl2 As CommandBarControl  ' 3階層目
 Set myCommandBar = Application.CommandBars("Cell")
 myCommandBar.Reset
 
  ' 2階層目をﾒﾆｭｰに追加
 Set myCommandBarControl = myCommandBar.Controls.Add(Before:=1, Type:=msoControlPopup)
 With myCommandBarControl
 .Caption = "文字"
  ' 3階層目を 2階層目に追加
 Set myCommandBarControl2 = myCommandBarControl.Controls.Add(Before:=1, Type:=msoControlPopup)
 With myCommandBarControl2
 .Caption = "文字2"
 With .Controls.Add
 .Caption = "文字を表示"
 .OnAction = "文字を表示"
 End With
 
 With .Controls.Add
 .Caption = "文字の色"
 .OnAction = "文字の色"
 End With
 End With
 End With
End Sub

こんな見た目になります｡