[求助]如何轻松删除大量文本框

到处溜达

今天本人突然遇到一个奇怪的问题，一个简单的EXCEL文件竟然有近1M的大小，后来发现在该文件中存在大量的空的文本框。请各位高手帮帮忙，怎么样轻松将这些空文本框全部删除。谢谢！！！

chenchunhuiabc

Sub 宏2()

For ASDF = 1 To ActiveSheet.Shapes.Count
DoEvents
ActiveSheet.Shapes(ASDF).Select
    If Selection.Characters.Text = "" Then
   ActiveSheet.Shapes(ASDF).Delete
   Else
   End If
Next
End Sub

试试用以上程序,在用之前最好不要删除文本框,以勉程序错误,在工具-宏VISUAL BASIC 编辑器里插入模块输入以上代码程序即可,联系本人QQ648715289