打开一个ppt后，任意选择其中一张PPT幻灯片，怎么在该页之后插入新一页ppt

打开一个ppt后，任意选择其中一张PPT幻灯片，如何在该页之后插入新一页ppt
打开一个ppt后，任意选择其中一张PPT幻灯片，如何在该页之后插入新一页ppt，或是删除当前ppt幻灯片，我现在不知道1、如何获取PPT的编号(slideid) 2、如何删除，用什么方法~vba

[解决办法]
开始录制宏，手动完成所需操作，结束录制宏，按Alt+F11键查看刚才录制的宏对应的VBA代码（不懂的话可以在关键字上按F1查看对应帮助）再略加修改后即可。
[解决办法]

VB code

    '删除当前幻灯片页    Application.ActivePresentation.SlideShowWindow.View.Slide.Delete        '在当前选择页后插入空页    Id = Application.ActiveWindow.Selection.SlideRange.SlideIndex    Call Application.ActivePresentation.Slides.Add(Id + 1, ppLayoutBlank)