各位大神，只想删除所有文本框，其他不删除应该怎么改？

poongsan

Sub DeleteTextBoxes（）
ActiveSheet.Shapes.SelectAll
Selection.Delete
END SUB
此VBA宏不仅会删除所有文本框，还会删除活动工作表中的各种形状，包括图片，ClipArt，Shapes，SmartArt，图表等。
   如只想删除所有文本框，其他不删除怎么改？
谢谢。

shaokui123

看这里，看这里
https://www.extendoffice.com/zh- ... text-boxes.html#vba

m_n_j001

想到的是可以用for each t in ActiveSheet.Shapes看t的type是不是msoTextBox而删除
不晓得能不能把文本框作为一个集合一次性选中删除

poongsan

shaokui123 发表于 2019-11-5 14:21
看这里，看这里
https://www.extendoffice.com/zh-CN/documents/excel/715-excel-delete-all-text-b ...

我就是从那里看后回来的，https://www.extendoffice.com/zh- ... ll-auto-shapes.html
VBA：删除活动工作表中的所有形状。

Sub DeleteShapes（）
昏暗的Shp作为形状
对于ActiveSheet.Shapes中的每个Shp
Shp.Delete
下一页Shp
END SUB
可是不行！！

月关

1. Dim tbx As Shape
   
2. For Each tbx In ActiveSheet.Shapes
   
3. If tbx.Name Like "TextBox*" Then tbx.Delete
   
4. Next

复制代码

vitrel

从Shape的Type来区分的话，恐怕很容易“误杀无辜”，
我能想到的就是从名字来判断，当然，这样的前提是工作表中的文本框有一个统一的命名规则，
如TextBox1、TextBox2、TextBox3……否则我也没有什么好办法。
楼主请参考：

1. Sub Test()
   
2.     Dim shp As Shape
   
3.     For Each shp In ActiveSheet.Shapes
   
4.         If Left(shp.Name, 7) = "TextBox" Then shp.Delete
   
5.     Next
   
6. End Sub

复制代码

poongsan

月关 发表于 2019-11-5 15:06

谢谢，非常感谢

poongsan

月关 发表于 2019-11-5 15:06

如果需要删除整个工作簿呢？？？？？？