找回密码
 立即注册
搜索

隐藏属性无效

1
回复
866
查看
[复制链接]

2

主题

7

帖子

67

幻币

一流武者

Rank: 3Rank: 3

积分
211
QQ
2019-2-28 17:26:21 显示全部楼层 |阅读模式
遍历所有幻灯片,如果该页标签1的值等于1,则该页隐藏,以下代码提示要求对象,求助如何修改?
Sub 选择性隐藏()
For i = 1 To ActivePresentation.Slides.Count
ActivePresentation.Slides(i).Select
If Label1.Text = "1" Then ActivePresentation.Slides(i).SlideShowTransition.Hidden = msoTrue
Next
End Sub
PPT学习论坛
回复

使用道具 举报

1

主题

87

帖子

249

幻币

豪侠武师

Rank: 4

积分
655
QQ
2019-3-6 08:17:23 显示全部楼层
顶一下,坐等高手!
PPT学习论坛
回复 支持 反对

使用道具 举报

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