Excel VBA質問箱 IV

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

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


44265 / 76735 ←次へ | 前へ→

【37491】Re:どうもでした
発言  Jaka  - 06/5/9(火) 16:48 -

引用なし
パスワード
   これでコマンドバーの名前とインデックス番号が解りますから
インデックス番号で分岐させてみては...。
中には、.Visible = False と出来ない物もありますから、
色々テストしてみてください。
数式バー、Chart Menu Bar、Formatting、他などがダメみたいでした。
(グラフシートの時などの違いもあると思いますが...)
後は、自分で調べてください。

Sub AAA()
  Dim mnb As CommandBar
  For Each mnb In Application.CommandBars
    i = i + 1
    Cells(i, 2).Value = mnb.Name
    Cells(i, 1).Value = mnb.Index
    'mnb.Visible = False
  Next
End Sub

0 hits

【37482】ツールバーの非表示 ペーロケ 06/5/9(火) 14:08 質問
【37483】Re:ツールバーの非表示 ぴかる 06/5/9(火) 14:59 回答
【37484】Re:ツールバーの非表示 ペーロケ 06/5/9(火) 15:19 発言
【37485】Re:ツールバーの非表示 ぴかる 06/5/9(火) 15:24 発言
【37486】Re:ツールバーの非表示 ペーロケ 06/5/9(火) 15:30 発言
【37487】Re:ツールバーの非表示 ぴかる 06/5/9(火) 15:38 発言
【37488】Re:ツールバーの非表示 ペーロケ 06/5/9(火) 15:52 発言
【37489】Re:ツールバーの非表示 ぴかる 06/5/9(火) 15:55 発言
【37490】どうもでした ペーロケ 06/5/9(火) 16:06 お礼
【37491】Re:どうもでした Jaka 06/5/9(火) 16:48 発言
【37492】ついでに質問いいですか? ペーロケ 06/5/9(火) 17:42 質問
【37493】Re:ついでに質問いいですか? ゆみ 06/5/9(火) 19:02 発言
【37494】Re:ついでに質問いいですか? ペーロケ 06/5/9(火) 19:37 お礼

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