Excel完美工具箱(更新到9.7.1版,兼容07,10,13,16)多功能插件

wushisan53

佛山小老鼠 发表于 2012-5-19 01:39
插入目录时有一个提醒对话框，来询问你是否要添加返回目录按钮，你选择否

很不幸的是，我已经按了添加”返回目录“按钮，并且重复做了五次这样的动作。
我发现我的每一个sheet都有五个“返回目录”，而我的工作簿有三十多个表格，加一起有一百多个“返回目录“，我怎么删除？

佛山小老鼠

wushisan53 发表于 2012-5-19 20:58
很不幸的是，我已经按了添加”返回目录“按钮，并且重复做了五次这样的动作。
我发现我的每一个sheet都有 ...

这位朋友先申请在先，在执行下面的代码之前，先备份一份，以防备用，我不知你的文档除了这个“返回目录”之外，还有其它的对象？

1. Sub mydelete()
   
2. Dim mysp As Shape
   
3. Dim mysh As Worksheet
   
4.     For Each mysh In Worksheets
   
5.             mysh.Activate
   
6.         For Each mysp In ActiveSheet.Shapes
   
7.                 mysp.Delete
   
8.         Next mysp
   
9.     Next mysh
   
10. End Sub

复制代码

佛山小老鼠

1. Sub mydelete() '删除除图片，文本框，窗体控件以外的对象
   
2. Dim mysp As Shape
   
3. Dim mysh As Worksheet
   
4.     For Each mysh In Worksheets
   
5.             mysh.Activate
   
6.         For Each mysp In ActiveSheet.Shapes
   
7.             If mysp.Type <> msoPicture And mysp.Type <> msoFormControl And mysp.Type <> msoTextBox Then
   
8.                 mysp.Delete
   
9.             End If
   
10.         Next mysp
    
11.     Next mysh
    
12. End Sub

复制代码

ljx63426

老师，下完8.6版，杀毒软件报有病毒，是什么回事？

佛山小老鼠

ljx63426 发表于 2012-5-20 00:45
老师，下完8.6版，杀毒软件报有病毒，是什么回事？

关闭360，安装，添加信任

zhengjie

支持小老鼠老师

lsp2070

能让菜单栏“完美工具箱”显示在“开始”菜单的右侧吗？

佛山小老鼠

lsp2070 发表于 2012-5-20 10:58
能让菜单栏“完美工具箱”显示在“开始”菜单的右侧吗？

可以，要更改代码，

lihuaxuan2012

很好，很强大呀！！！感激楼主的无私分享呀

ssd6609

楼主的东西可能是好东西，辛苦你了，感谢。
但是我建议大家尽量少安装这些工具，我在某个论坛也下载了一个excel工具集，安装运行几天，就发现中了所谓的宏病毒，只要打开任意表格，就会自动运行病毒程序，并在该工作簿中自动生成无法删除的一个宏。打开越多，中毒的越多。用专杀工具、修复工具，昨天才搞定。比别的病毒难杀。
我是不敢再装类似的工具了，大家好好用吧，一是好多自己用不上，二是excel自带的工具已经够强大了。