隐藏属性无效

digua2000 发表于 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

lqq584520 发表于 2019-3-6 08:17:23

顶一下，坐等高手！

页: [1]

office办公网's Archiver

隐藏属性无效