【斑马资讯 教程】相信很多朋友都在PowerPoint中调用本程序,但由于PowerPoint本身的限制,通过直接运行程序的方法可能行不通,怎么做呢,很简单:
a、打开PowerPoint,运行Visual Basic编辑器(或直接在PowerPoint中按Alt+F11)
b、插入一个新模块(菜单\插入\模块),输入以下内容(请按照您的具体环境更改下面引号中的内容):
Sub RunGift()
ChDrive "G" 'Gift.exe所在的盘符
ChDir ("G:\GiftV40") 'Gift.exe所在的目录
Shell ("G:\GiftV40\Gift.exe") 'Gift.exe的完整路径
End Sub
请注意:务必按代码后的注释更改抽奖程序的目录及盘符。
c、最主要的工作已完成了,请在PowerPoint中放一个图画或文字或其它符号,在其上点右键,选“动作设置”,在弹出的对话框中选“运行宏”,在下拉框中会出现RunGift,选中它,就OK了。
d、如果还是不能打开或是运行中弹出安全窗口,请您进入PowerPoint的“工具\宏...\安全性”,将安全级设为低,就OK了(也许你要重新启动PowerPoint)。 |