Excel VBA質問箱 IV

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

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


39182 / 76732 ←次へ | 前へ→

【42665】Re:CommandBarsについて
お礼  kobasan  - 06/9/18(月) 20:41 -

引用なし
パスワード
   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の集合体のように感じさせる原因のような気がします。

おかげさまで、すっきりしました。有難うございました。

0 hits

【42634】CommandBarsについて kobasan 06/9/17(日) 8:43 質問
【42636】Re:CommandBarsについて だるま 06/9/17(日) 9:11 回答
【42637】Re:CommandBarsについて ichinose 06/9/17(日) 9:12 発言
【42638】Re:CommandBarsについて kobasan 06/9/17(日) 9:41 お礼
【42640】Re:CommandBarsについて だるま 06/9/17(日) 11:18 発言
【42646】Re:CommandBarsについて kobasan 06/9/17(日) 15:09 お礼
【42661】Re:CommandBarsについて kobasan 06/9/18(月) 18:28 質問
【42662】Re:CommandBarsについて ichinose 06/9/18(月) 18:42 発言
【42665】Re:CommandBarsについて kobasan 06/9/18(月) 20:41 お礼

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