您好，请教一个关于Excel中群组的问题！

Question

问题：在excel当前页面中除了一个自定义图形作按钮之外，就只有line和textbox，现在我需要通过宏的方式删除当前页面上的所有的line和textbox,并且保留用作按钮的自定义图形，请教如何实现？
我用下面的方法，结果执行完了，那个按钮也被删除了，
activesheet.Shapes.SelectAll
selection.delete
本想在上面这个方法中添加重新创建该按钮并链接到指定的宏的过程，但是还是觉得应该有更好的方法，只是自己不知道。
在此先谢谢了，帮忙看看

Answer 1

Sub aa()'让你的图形指定这个宏
    Debug.Print Application.Caller
End Sub
Sub tt()'在立即窗体中copy图形名称，填到[]中，别加""啊
    Sheets(1).[图形名称].Delete
End Sub

Answer 2

Sub aa()
      Dim S As Shape
      For Each S In Sheets(1).Shapes
          'Debug.Print S.Name'看看你的图形叫什么名先
          If InStr(1, S.Name, "Oval") = 0 Then'如果不是你要的图就删
             S.Delete
          End If
      Next
End Sub

Answer 3

Sub macro1()
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
If sh.Name Like "Text*" Or sh.Name Like "Line*" Then sh.Delete
Next
End Sub