如何删除某个选定区域内的全部按钮？

寂静乡村

确实该换个思维方式，不错不错！

AS850629754

能做到
但我失业了10个月，最近刚做了个手术，很穷，想换点钱花

AS850629754

AS850629754 发表于 2018-7-24 14:25
能做到
但我失业了10个月，最近刚做了个手术，很穷，想换点钱花

才发现是个10年的问题

lsdongjh

简易的方法：

1. Sub Test()
   
2.     Dim objShape As Shape
   
3.     Dim rgSelect As Range, rgCur As Range
   
4. 
   
5.     Set rgSelect = Sheet1.Range("A1:I20")
   
6. 
   
7.     For Each objShape In Sheet1.Shapes
   
8.         Set rgCur = objShape.TopLeftCell
   
9.         If Not (Application.Intersect(rgSelect, rgCur) Is Nothing) Then
   
10.             objShape.Delete
    
11.         End If
    
12.     Next
    
13. End Sub

复制代码

熊之召唤术

lujkhua 发表于 2015-11-29 21:56
你没附件，请自已参照此代码，可批量删除指定名称的按钮

补充下，SHAPE应该是可以获取TOP，LEFT属性的，然后对照单元格区域的位置，判断下，就可以达到区域内删除的目的