投稿日 | : 2007/04/10(Tue) 11:05 |
投稿者 | : nagaoka |
Eメール | : |
URL | : |
タイトル | : スプレッドシート |
お世話になります。
SpreadSheet(owc11)についての質問です。
SpreadSheet内のセルを右クリックするとショートカットメニューが表示され、
この中に”切り取り、コピー、貼り付け”当のコマンドが表示されます。
この中の”切り取り”コマンドを無効にする方法について教えて頂けないでしょうか?
ちなみにヘルプを参考に下記追記してみましたが、メニューが2回表示されます。
Private Sub Spreadsheet1_BeforeContextMenu(ByVal x As Long, ByVal y As Long, ByVal Menu
As OWC11.ByRef, ByVal Cancel As OWC11.ByRef)
Dim cmContextMenu(4)
Dim cmClearSubMenu(2)
cmClearSubMenu(0) = Array("すべて(&A)", "ClearAll")
cmClearSubMenu(1) = Array("書式(&F)", "ClearFormats")
cmClearSubMenu(2) = Array("値(&V)", "ClearValues")
cmContextMenu(0) = Array("切り取り(&T)", "owc2")
cmContextMenu(1) = Array("コピー(&C)", "owc3")
cmContextMenu(2) = Array("貼り付け(&P)", "owc4")
cmContextMenu(3) = Empty
cmContextMenu(4) = Array("クリア(&R)", cmClearSubMenu)
Spreadsheet1.ShowContextMenu 10, 40, cmContextMenu
End Sub