Excelマクロ ○印図形を消したい
○印図形を消したい
Private Sub CommandButton2_Click()
' ○印をつける
Dim a As Range
If TypeName(Selection) = "Range" Then
Set a = Selection
ActiveSheet.Shapes.AddShape(msoShapeOval, a.Left, _
a.Top, a.Width, a.Height).Select
Selection.ShapeRange.Fill.Visible = msoFalse
a.Select
End If
End Sub
Private Sub CommandButton3_Click()
上記のマクロでつけた○印を下記のようなマクロで（指定の範囲のセルにつけた○印を全て）消したいのですが、上記のマクロは問題なく動作するのですが、下記のマクロがうまく動きません、どこをどのように変更したらよいのでしょうか？、どなたかご教示ください。
' 指定したセル範囲にある図形を削除する()
' ○印の削除
指定セル範囲 = "U32:X41"
With ActiveSheet
Set セル範囲 = .Range(指定セル範囲)
For Each 図形 In .Shapes
If 図形.Type = msomsoPicture Then
Set 共有セル範囲 = Intersect(Range(図形.TopLeftCell, _
図形.BottomRightCell), セル範囲)
If Not (共有セル範囲 Is Nothing) Then
図形.Delete
End If
End If
Next
End With
End Sub
![その他([地域情報] 旅行・レジャー) イメージ](https://gazo.okwave.jp/okwave/spn/images/related_qa/c932_2_thumbnail_img_sm.png)
お礼
ありがとうございました。これは教えて頂かないとわかりません！（涙）