Excel VBA質問箱 IV

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

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


26344 / 76732 ←次へ | 前へ→

【55719】Re:ダブルクリックイベントで・・
発言  kanabun  - 08/5/16(金) 16:48 -

引用なし
パスワード
   > 右クリックされたら、図の削除 とすれば、ほんのちょっと簡単に

右クリックで [A4:G40]内の 楕円図形を削除するときのサンプルです。

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
 Dim c As Range
 Dim ov As Oval
 
 Set c = Intersect(Range("A4:G40"), Target)
 If c Is Nothing Then Exit Sub
 Cancel = True
 For Each ov In Me.Ovals
  If Not Intersect(ov.TopLeftCell, c) Is Nothing Then
    ov.Delete
    Exit For
  End If
 Next
End Sub

0 hits

【55680】ダブルクリックイベントで・・ ふつつかもの 08/5/15(木) 16:26 質問
【55681】Re:ダブルクリックイベントで・・ kanabun 08/5/15(木) 16:51 発言
【55682】Re:ダブルクリックイベントで・・ ふつつかもの 08/5/15(木) 17:01 お礼
【55706】Re:ダブルクリックイベントで・・ kazu 08/5/16(金) 11:44 質問
【55707】Re:ダブルクリックイベントで・・ kazu 08/5/16(金) 11:47 質問
【55716】Re:ダブルクリックイベントで・・ kanabun 08/5/16(金) 16:14 発言
【55718】Re:ダブルクリックイベントで・・ kanabun 08/5/16(金) 16:18 発言
【55719】Re:ダブルクリックイベントで・・ kanabun 08/5/16(金) 16:48 発言
【55743】Re:ダブルクリックイベントで・・ kazu 08/5/18(日) 12:41 お礼

26344 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free