不知所谓 发表于 2018-1-22 16:52:55

隐藏属性无效

遍历所有幻灯片，如果该页标签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

hai001xin 发表于 2018-6-9 22:13:39

顶一下，坐等高手！
页: [1]
查看完整版本: 隐藏属性无效