|
▼kanabun さん:
kanabunさん
返事遅くなりました、すみません
ヨコ入り質問に丁寧な回答ありがとうございました。
ダブルで作図 右で削除使いやすいです 感謝!!
>> 右クリックされたら、図の削除 とすれば、ほんのちょっと簡単に
>
>右クリックで [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
|
|