Office学习社区 › Office入门和提高 › 大神帮帮忙，这段代码运行为什么有问题呢?

飞翔4700 发表于 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

查看完整版本: 大神帮帮忙，这段代码运行为什么有问题呢?