ppt vba 加载宏

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

[大家好，我是“锐普论坛”的“banjinjiu”，在此发表关于vba加载宏的一点发现，与大家共享。赚点钱币，呵呵！

1. Sub 可用加载宏总数()
   
2. '可用加载宏总数
   
3. MsgBox Application.AddIns.Count
   
4. End Sub
   
5. 
   
6. Sub 安装加载宏()
   
7. '安装加载宏
   
8. Application.AddIns.Add FileName:="F:\software\PPT\PPT插件\几何工具.ppa"
   
9. End Sub
   
10. 
    
11. Sub 删除加载宏()
    
12. '删除加载宏
    
13. Application.AddIns.Remove "几何工具"
    
14. End Sub
    
15. 
    
16. Sub 加载宏选中打勾()
    
17. '功能：工具-加载宏-可用加载宏-选中打勾
    
18. Application.AddIns("几何工具").Loaded = True
    
19. ‘数值为FALSE时取消打勾
    
20. End Sub
    
21. 
    
22. Sub 可用加载宏列表()
    
23. '显示可用加载宏列表
    
24. For i = 1 To AddIns.Count
    
25. MsgBox AddIns(i).Name '加载宏名称
    
26. MsgBox AddIns(i).FullName '加载宏路径及文件名
    
27. Next
    
28. End Sub

复制代码

这是我的原创，请高手指正。 vba加载宏.doc (28.5 KB, 需要: 1 个论坛币)

2014-8-20 17:23:00 上传

需要: 1 个论坛币  [购买]

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：ppt VBA 加载宏 Application software software

看看，多谢