Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

32439 / 76734

←次へ　｜　前へ→


	【49531】Re:改ページプレビュー中、CommandBarsで設定した右メニューが表示されなくなる

Lindy - 07/6/8(金) 17:54 -


	引用なし

	パスワード

▼oscar900 さん： >大変役にたち助かりました。私のような者でもお役に立てたのでしたら嬉しい限りです^^ >今回私はcellの追加をしています。との事でしたら・・・ Sub RightMenuAdd_test() Dim i As Integer, idx As Integer For i = 1 To 2 　idx = IIf(i = 1, 29, 32) 　With Application.CommandBars.Item(idx) 　　　'===ここでメニュー追加　　End With Next i End Sub この方が簡単かもしれません。 IDだと直接CommandBarsを指定出来ないみたいですので（"Cell"などの名前なら出来るみたいですが２つあるので・・・）インデックス番号で直接２種類の"Cell"コマンドバーを指定してしまって２回ループさせれば・・・なんて考えてみました。