|
ichinose さん 今晩は。
提示のコードで解決しました。
>Sub test()
> Dim c As CommandBarPopup
~~~~~~~~~~~~~~~~(1)
> For Each c In CommandBars("Worksheet menu bar").Controls
> MsgBox c.CommandBar.Name
~~~~~~~~~~~~~~~~~(2)
> Next
>End Sub
CommandBarPopup(1)とc.CommandBar.Name(2)の関係が、Worksheet menu barをCommandBarの集合体のように感じさせたのですね。
それにしてもc.CommandBar.Nameは、
CommandBars("Worksheet menu bar").Controls(i).CommandBar.Name
~~~~~~~~~~~ ~~~~~~~~~~
ということになるので、思いつきませんでした。CommandBarsのメンバー中にまたCommandBarが入るのが、先入観で分りづらかったのかな。しかし、このことが、Worksheet menu barをCommandBarの集合体のように感じさせる原因のような気がします。
おかげさまで、すっきりしました。有難うございました。
|
|