|
▼吉 さん:
こんばんわ
ハズレでしたか(笑) すみませんm(__)m
キーボードの右クリックが割り当てられているのかも?
と思ったのですが、よく考えたら挙動が違うのでそれはないですね!?
逆にイベントが発生してて良かったです。
(通常、ブックやシートではキーボードイベントは取得できない)
ということは、BeforeRightClick内のコードでトラブっているようです。
で一番クサいのは最初に吉 さんも言っていた”CommandBar”かと・・・
なので、下記を試してみてください。
新規ブック(他にマクロのない状態)で、標準モジュールに
このコードを入れてtest1を”動かなかったPC”で実行してください。
Sub test1()
With Application.CommandBars("cell").Controls.Add
.Caption = "Test(&T)"
End With
End Sub
Sub test1r()
Application.CommandBars("cell").Reset
End Sub
シートで右クリックを確認して”Test”メニューがあるようでしたら
またまた私の予想はハズレです。
※確認が終わったらtest1rを実行してください
表示されなかったら以下の方法を試してみてください。
同様にしてtest2を実行
Sub test2()
Dim i As Long
With Application
For i = 1 To .CommandBars.Count
With .CommandBars(i)
If .Name = "Cell" Then
With .Controls.Add
.Caption = "Test(&T)"
End With
End If
End With
Next i
End With
End Sub
Sub test2r()
Dim i As Long
With Application
For i = 1 To .CommandBars.Count
With .CommandBars(i)
If .Name = "Cell" Then
.Reset
End If
End With
Next i
End With
End Sub
シートで右クリックを確認して”Test”メニューの有無
をご連絡ください。
※確認が終わったらtest2rを実行してください
|
|