该方法取自百度知道,该朋友给出函数,我详细写一下方法。
打开有文本框的excel文件。
按 Alt+F11 打开编辑器。
将下面的函数复制进去:
Sub deltxbox()
Dim s As Shape
For Each s In ActiveSheet.Shapes
If s.Type = msoTextBox Then s.Delete
Next
End Sub
然后按 F5 执行即可!
2024-02-19 11:13:58
该方法取自百度知道,该朋友给出函数,我详细写一下方法。
打开有文本框的excel文件。
按 Alt+F11 打开编辑器。
将下面的函数复制进去:
Sub deltxbox()
Dim s As Shape
For Each s In ActiveSheet.Shapes
If s.Type = msoTextBox Then s.Delete
Next
End Sub
然后按 F5 执行即可!