求助：一次性删除所有隐藏幻灯片的宏怎么写

liujianabcd

请高手帮忙：一次性删除所有隐藏幻灯片的宏怎么写，非常感谢。

我是老师，写讲义的时候会把一些答案页面也写进去，但放映的时候是隐藏的，给学生的电子版本我希望是把隐藏的幻灯删除（很多，一个个删比较麻烦，所以想用宏实现）

呵呵，自己解决了，感谢bol兄在“（PPT宏）轻松删除空白文本框──大量做ppt的请一定要看”的启发：

用宏可以实现：
Sub Macro2()
'
' 宏由 FT 记录，日期: 2007-6-10
'
 Dim sld As Slide, shp As Shape, found As Boolean
    Do
        found = False
        For Each sld In ActivePresentation.Slides
            If sld.SlideShowTransition.Hidden = msoTrue Then
                    found = True
                    sld.Delete
        End If
        Next
    Loop While found = True
End Sub

[此贴子已经被作者于2007-6-10 20:04:47编辑过]

cxffxc

常回家看看

就一定有收获

chenhuafu

代码很漂亮啊