隐藏属性无效

不知所谓

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

顶一下，坐等高手！