大神帮帮忙，这段代码运行为什么有问题呢?

0
回复 343
查看 [复制链接]

13 主题	189 帖子	41 幻币

Rank: 3 Rank: 3

2016-4-12 13:35:56 显示全部楼层 |阅读模式

Sub dgm()
Dim sp As Shape
For Each sp In ActivePresentation.Slides(1).Shapes.SelectAll
sp.Delete
Next sp
End Sub

PPT学习论坛

		自动登录	找回密码
密码			立即注册