找回密码
 立即注册
搜索

PPT用宏代码实现隐藏指定幻灯片功能

3
回复
353
查看
[复制链接]

17

主题

209

帖子

58

幻币

一流武者

Rank: 3Rank: 3

积分
282
QQ
2016-4-12 13:21:38 显示全部楼层 |阅读模式
请问如何在PPT中用宏隐藏指定的幻灯片?例如:一PPT共20页,第1页中有两个按钮,幻灯片处于放映模式时,选中按钮1则隐藏第4、7、8页,选择按钮2则隐藏第3、5、6页. 提前叩谢!
PPT学习论坛
回复

使用道具 举报

12

主题

177

帖子

29

幻币

一流武者

Rank: 3Rank: 3

积分
212
QQ
2016-4-12 15:50:26 显示全部楼层
这个查帮助就可以了。帮你贴出代码如下:
Private Sub CommandButton1_Click() '按钮1
    With ActivePresentation
        .Slides(3).SlideShowTransition.Hidden = msoFalse
        .Slides(5).SlideShowTransition.Hidden = msoFalse
        .Slides(6).SlideShowTransition.Hidden = msoFalse
        .Slides(4).SlideShowTransition.Hidden = msoTrue
        .Slides(7).SlideShowTransition.Hidden = msoTrue
        .Slides(8).SlideShowTransition.Hidden = msoTrue
    End With
End Sub
Private Sub CommandButton2_Click()  '按钮2
    With ActivePresentation
        .Slides(4).SlideShowTransition.Hidden = msoFalse
        .Slides(7).SlideShowTransition.Hidden = msoFalse
        .Slides(8).SlideShowTransition.Hidden = msoFalse
        .Slides(3).SlideShowTransition.Hidden = msoTrue
        .Slides(5).SlideShowTransition.Hidden = msoTrue
        .Slides(6).SlideShowTransition.Hidden = msoTrue
    End With
End Sub
PPT学习论坛
回复 支持 反对

使用道具 举报

12

主题

228

帖子

42

幻币

一流武者

Rank: 3Rank: 3

积分
280
QQ
2016-4-12 16:01:23 显示全部楼层
非常感谢,英雄!
PPT学习论坛
回复 支持 反对

使用道具 举报

17

主题

224

帖子

49

幻币

一流武者

Rank: 3Rank: 3

积分
278
QQ
2016-4-12 17:21:41 显示全部楼层
谢谢laose兄的分享!
PPT学习论坛
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册