请教大侠：ppt中已用宏做了选择题、判...

来源：蜘蛛抓取(WebSpider) 时间：2011-10-02 04:43 标签： ppt 宏
查看: 12849|回复: 2
如何查看这个PPT文件中的宏并取消该宏 [已解决]
阅读权限10
在线时间 小时
请问：如何查看附件PPT文件中的宏并取消该宏，最好能贴出查看和取消的方法。
[ 本帖最后由 wwwei 于
19:55 编辑 ]
09:47 上传
点击文件名下载附件
15.23 KB, 下载次数: 49
阅读权限50
在线时间 小时
打开文件后，按Alt+F11打开basic编辑器就能看见，删除代码即可。
阅读权限10
在线时间 小时
原帖由 huanbei 于
10:16 发表
打开文件后，按Alt+F11打开basic编辑器就能看见，删除代码即可。
您说：“打开文件后，按Alt+F11打开basic编辑器就能看见，删除代码即可。”但是我按Alt+F11打开basic编辑器未能看见代码，请具体指点。多谢，多谢～
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
【参考】百度上搜索的内容：
A。& &ALT+F11 调出VBA以后 “宏”都是放在一个“模块”里，视图中打开“工程资源管理器”，打开后在窗口的最左边，然后左边有你对应的工作表的名字，比如表名:VBAPROJECT(....),打开子目录就有SHEET1,sheet2,sheet3等你的工作表，然后在这个下面紧接着有一个 “模块1”项目，双击打开以后，里面就是你写的宏代码，删除的时候，直接右键电机“模块1”，选择删除 。
－－－－－－－－－－
B。& & 删除宏的话，就看这个宏是自动处理宏还是手动操作的宏
1、自动处理宏就是
你不去执行宏，只是触发到自动处理宏的触发条件，它又分为两种宏
A相对于工作表
当输入数值就在对应的单元格显示出大写的数值就执行（不是函数）
B相对于工作薄
或是关闭文件、改变当前工作表立即自动保存等等就自动去执行相应的宏
2、手动操作的宏就是
你必须按工具－＞宏－＞宏－＞再选择宏名点“执行”才能执行的宏。
删除自动处理宏：
点菜单－＞宏－＞Visual Basic编辑器 -&在新出现在窗口点菜单－＞视图－＞工程资源管理器－＞在窗口新出现的框中
双点工作表名称或是THISWORKBOOK字样就能发现代码（大部分的宏病毒就是藏在这个位置），选择之后删除就OK
删除手动操作宏：
工具－＞宏－＞宏－＞编辑
这样就能打开Visual Basic窗口，找到相应的宏。删除代码就行
不过，删除代码之后手动操作宏还会遗留下一个“模块”
”视图“菜单-&工程资源管理器-&双击在“工程VBAProject&工具栏里的
模块区，右键－＞移除模块“XX模块”－＞否（不保存模块）
删除完毕。
－－－－－－－－－－－－－－－－
选用：ALT+F11 调出VBA以后 “宏”都是放在一个“模块”里，视图中打开“工程资源管理器”，打开后在窗口的最左边，然后左边有你对应的slide57，点击右键－－查看代码，删除代码；右击userform1，移除(删除)，保存。&&可～
[ 本帖最后由 wwwei 于
14:56 编辑 ]
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师 上传我的文档
 下载
 收藏
该文档贡献者很忙，什么也没留下。
 下载此文档
正在努力加载中...
用宏命令快速给中文英文之间添加空格(大侠在线原创作品)
下载积分：0
内容提示：用宏命令快速给中文英文之间添加空格(大侠在线原创作品)
文档格式：DOC|
浏览次数：90|
上传日期： 16:05:09|
文档星级：
该用户还上传了这些文档
用宏命令快速给中文英文之间添加空格(大侠在线原创作品)
官方公共微信扫一扫，访问微社区
只需一步，快速开始
后使用快捷导航没有帐号？
查看: 3970|回复: 14
在PPT-VB编辑器中可以运行的宏，在播放模式下，却不能正常运行？
锐币 元推广 分
在线时间 小时
& &最近在学习PPT-VBA，发现一个很奇怪的现象，在PPT-VB编辑器中可以运行的宏，在播放模式下，却不能正常运行？恳请 版主、大侠们 指教，在下先谢过！
16:14 上传
点击文件名下载附件
下载积分: 锐币 -2 元
74 KB, 下载次数: 16, 下载积分: 锐币 -2 元
锐币 元推广 分
在线时间 小时
不用看我也能猜到原因：
ppt分为两种模式，一种是编辑模式，另外一种是按F5后的播放模式，两种模式代码是有区别的。
编辑模式的代码在播放模式会出错。
锐币 元推广 分
在线时间 小时
不用看我也能猜到原因：
ppt分为两种模式，一种是编辑模式，另外一种是按F5后的播放模式，两种模式代码是 ...
请问大侠该如何处理才能修正？谢谢
锐币 元推广 分
在线时间 小时
不用看我也能猜到原因：
ppt分为两种模式，一种是编辑模式，另外一种是按F5后的播放模式，两种模式代码是 ...
对了，大侠，请介绍下2种模式的区别？
锐币 元推广 分
在线时间 小时
本帖最后由 zhanglei1371 于
09:17 编辑
以后提问最好直接把代码贴出来，再上附件，这样方便移动设备查看：
Private Sub CommandButton1_Click()
'&&Set sid = ActivePresentation.Slides(1)
Set sid = SlideShowWindows(1).View.Slide
&&Numshapes = sid.Shapes.Count&&'
&&For I = 1 To Numshapes
& && & nam = sid.Shapes(I).Name
& && & m = m & I & &→& & nam & Chr(10)& &&&'
& && & X = sid.Shapes(I).Left
& && & Y = sid.Shapes(I).Top
& &&&With sid.Shapes(I)
& && &&&.IncrementLeft -X + 100 * I
& && &&&.IncrementTop -Y + 80 * I
& &&&With sid.Shapes.AddTextbox(msoTextOrientationHorizontal, 100 * I, 80 * I + 20, 120, 28.875).TextFrame.TextRange
& && &&&.Text = nam
& && && &&&With .Font
& && && && & .Size = 16
& && && &&&End With
& && & End With
& &&&End With
ActivePresentation.Slides(1)和SlideShowWindows(1).View.Slide
前者是编辑模式，后者是播放模式。只要是全屏播放下操作，统统都是以后者开头搞。编辑模式下就是你的代码的模式。
锐币 元推广 分
在线时间 小时
好高大上的感觉
锐币 元推广 分
在线时间 小时
以后提问最好直接把代码贴出来，再上附件，这样方便移动设备查看：
Private Sub CommandButton1_Click()
非常感谢您的指教。经测试，按您的修改能在播放模式下正常运行，但在VBA编辑模式下会出现如下提示（不便于编程调试）：
“Microsoft Visual Basic
运行时错误&&'- ()':
SlideShowWindows (unknown member) : Integer out of range. 1 is not in the valid range of 1 to 0.
& && && && && && && && && & 确定& & 帮助”
后尝试把“ActivePresentation.Slides(1)”改回“SlideShowWindows(1).View.Slide”，却没有想到在编辑模式和播放模式都能正常运行。
另外，&ActiveWindow.Selection.Unselect&的作用好像是放弃对元素的焦点，现在运行时系统总是报错，如何理解？而且取消这行代码，运行后最后一个元素(即[开始]按钮)图形上有斜杠的阴影，有办法处理吗？
锐币 元推广 分
在线时间 小时
终于有人能解决了& &
锐币 元推广 分
在线时间 小时
激活的播放模式ActivePresentation
激活的窗口模式ActiveWindow
锐币 元推广 分
在线时间 小时
激活的播放模式ActivePresentation
激活的窗口模式ActiveWindow
感谢sun_zhj 的提点，只是本人素来愚钝，对这两种模式的使用差别和场合还是参不透，或者说还是没有能想明白理解透 微软PPT为什么要设立这么两种模式？各有什么方便和局限？还望斑竹详细指明，谢谢
Powered by
电话咨询
<span class="icoTl" title="客服电话&#8802

我要回帖

更多关于 ppt 宏 的文章

 

随机推荐