xl0001 发表于 2018-1-25 18:31:01

求帮忙看一句代码

如题，调试PPT的时候会生成大量的P，每次手动删除多余的页比较麻烦，想做个一键删除多余页的代码，卡在一句代码上了，求老司机指点一下，谢谢




代码如下
Sub delPage()
Dim a As Integer, b As Integer
b = ActivePresentation.Slides.Count
For a = 2 To b
ActivePresentation.Slides(a).Delete '删除除第1个P之外的所有P
Next
End Sub

复制代码

ws1211 发表于 2018-1-25 21:37:31

把A换成2，因为你吧第二张删除后，第三张就变成第二张了。而代码会去找第三张删除，就会出错

foxdjq 发表于 2018-1-25 22:55:07

ActivePresentation.Slides(2).Delete
或:for a=b to 2 step -1

0769222 发表于 2018-1-25 23:06:06

十分感谢，问题解决了
页: [1]
查看完整版本: 求帮忙看一句代码