excel删除text box

最新推荐文章于 2024-08-24 17:33:47 发布

zhyp29

最新推荐文章于 2024-08-24 17:33:47 发布

阅读量1.8k

点赞数

CC 4.0 BY-SA版权

分类专栏： excel

本文链接：https://blog.youkuaiyun.com/zhyp29/article/details/84859690

excel 专栏收录该内容

1 篇文章

订阅专栏

本文介绍如何使用VBA批量删除Excel工作表中的特定形状对象，包括通过代码定位并删除带有TextBox前缀的对象。

Ctrl+G定位（F5）——定位条件——对象——确定——删除。
（如果对象是用控件，可调出控件工具箱，点击第一个按钮进入编辑状态，然后再用定位，删除。

Sub Macro1()
  For Each a In ActiveSheet.Shapes
   a.Delete
   Next
End Sub

Sub Macro1()
J = 1
Dim aa As Shapes
i = ActiveSheet.Shapes.Count
With ActiveSheet
     For J = 1 To i
         .Shapes(1).Select
         cc = .Shapes(1).Name
         If Left(cc, 8) = "Text Box" Then
            .Shapes(cc).Select
            Selection.Delete
         End If
     Application.StatusBar = J & "   /   " & i
     Next
End With
End Sub