Excel VBA質問箱 IV

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

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


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

48689 / 76736

←次へ　｜　前へ→


	【32981】右クリックメニュー追加について

ひろ - 05/12/28(水) 14:25 -


	引用なし

	パスワード

皆さんこんにちは。
以下のマクロで普通であれば右クリックメニュー項目が追加されます。

実際、私のＰＣではそうなのですが
他の方のＰＣでは表示されない場合があります。

エクセルのバージョンやＯＳが異なる方の中で
本マクロによる右クリックメニューが追加される方、追加されない方がいるため
原因がわかりません。

どういったことが考えられるのでしょうか。
意味がわからず行き詰っています…。

もちろん、「マクロは有効にする」に設定しています。

Sub AddRightMenu()

　　For Each RightMenu In Application.CommandBars("cell").Controls
　　　　If RightMenu.Caption = "移動" Then
　　　　　 Exit Sub
　　　　End If
　　Next

　　With Application.CommandBars("cell").Controls.Add(temporary:=True)
　　　　.Caption = "移動"
　　　　.BeginGroup = True
　　　　.OnAction = "MoveMac"
　　End With

End Sub

0 hits

▼

【32981】右クリックメニュー追加について ひろ 05/12/28(水) 14:25

≪