user_rrdwu 发表于 2016-4-12 12:34:50

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

请高手帮忙：一次性删除所有隐藏幻灯片的宏怎么写，非常感谢。
我是老师，写讲义的时候会把一些答案页面也写进去，但放映的时候是隐藏的，给学生的电子版本我希望是把隐藏的幻灯删除（很多，一个个删比较麻烦，所以想用宏实现）
呵呵，自己解决了，感谢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

user_jugqgfzh 发表于 2016-4-12 16:02:55

常回家看看
就一定有收获

tmyq1 发表于 2016-4-12 16:33:01

代码很漂亮啊
页: [1]
查看完整版本: 求助：一次性删除所有隐藏幻灯片的宏怎么写