|
▼kazu さん:
>>横入りすみません
>>いつも参考にさせていただいてます
>>下記コード、グーですね
>>ちなみにもう一度ダブルクリックして消去できないでしょうか
>>よろしくお願いします
こんちは。
う〜ん。これはちょっとむつかしいですね。
考え方としては
>>Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
のなかで、
ダブルクリックされたセルの上に図形があるか?チェックして、
もしすでに図形があれば
その図形をDelete
なければ
新規に図の挿入(Me.Shapes.Add)
End If
ということになるのでしょうけれど、
> ダブルクリックされたセルの上に図形があるか?
を教えてくれるRangeオブジェクトのプロパティはない
(少なくともぼくは知らない)ので、
それを調べるためには
シート上にあるすべての図形をLoopして、それがダブルクリックされた
セルとIntersectしているかで、判断するしか方法がない、ということです。
ま、そうすれば、ダブルクリックイベントプロシージャ内で
図形の挿入/削除のトグル処理が原理的には可能です。
> A4:G20の範囲でお願いします。
ということなら、ダブルクリックされたセルがその範囲にあるかを
先行してチェックするだけですね。
ダブルクリックされたら、図の挿入。
右クリックされたら、図の削除 とすれば、ほんのちょっと簡単に
なりそうな気はしますが。。。
|
|