Office中国论坛/Access中国论坛

标题: [求助]如何轻松删除大量文本框 [打印本页]

作者: 到处溜达 时间: 2006-6-17 00:07
标题: [求助]如何轻松删除大量文本框
今天本人突然遇到一个奇怪的问题，一个简单的EXCEL文件竟然有近1M的大小，后来发现在该文件中存在大量的空的文本框。请各位高手帮帮忙，怎么样轻松将这些空文本框全部删除。谢谢！！！

作者: chenchunhuiabc 时间: 2006-6-18 04:05
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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)