隐藏属性无效

digua2000

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

lqq584520

顶一下，坐等高手！