[リストへもどる]   [VBレスキュー(花ちゃん)]
一括表示

投稿時間: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

投稿時間:2007/04/10(Tue) 13:58
投稿者名:大吉末吉
Eメール:
URL :
タイトル:
Re: スプレッドシート
> SpreadSheet(owc11)についての質問です。
> ちなみにヘルプを参考に下記追記してみましたが、メニューが2回表示されます。

「BeforeContextMenu Event」
http://msdn2.microsoft.com/en-us/library/aa193082(office.11).aspx)
によると、

>     Spreadsheet1.ShowContextMenu 10, 40, cmContextMenu

の部分は、

>     Menu.Value = cmContextMenu

となってますが・・・