PowerPoint VBA参考代码库1

'设置变量引用当前演示文档
Dim pptPresentation As Presentation
Set pptPresentation = ActivePresentation
'设置变量引用当前幻灯片
Dim pptSlide As Slide
Set pptSlide = Application.ActiveWindow.View.Slide
'设置变量引用指定幻灯片(第4张幻灯片)
Dim pptSlide As Slide
Set pptSlide = ActivePresentation.Slides(4)
'设置变量引用所选对象
Dim pptObject As Object
Set pptObject = ActiveWindow.Selection.ShapeRange

'统计当前演示文档中幻灯片数量
Debug.Print ActivePresentation.Slides.Count

'获取当前幻灯片的编号
Debug.Print Application.ActiveWindow.View.Slide.SlideIndex

'在当前演示文档位置5处创建新的空白幻灯片
Dim pptSlide As Slide
Set pptSlide = ActivePresentation.Slides.Add(5, ppLayoutBlank)
'在当前演示文档的最后创建新的空白幻灯片
Dim pptSlide As Slide
Set pptSlide = ActivePresentation.Slides.Add(ActivePresentation.Slides.Count + 1,
ppLayoutBlank)

'删除第6张幻灯片
ActivePresentation.Slides(6).Delete

'移动幻灯片的位置, 将幻灯片4移动到幻灯片2
ActivePresentation.Slides(4).MoveTo toPos:=2