PowerPoint VBA教程:SlideShowNextSlide事件

切换到下一张幻灯片立刻发生此事件。对于第一张幻灯片,此事件紧跟在SlideShowBegin事件之后发生。

Private Sub application_SlideShowNextSlide(ByVal Wn As SlideShowWindow)

application   Application 类型的对象,在类模块中声明,自身具有事件。有关使用 Application对象的事件的详细信息,请参阅使用 Application对象的事件

Wn   活动幻灯片放映窗口。

VBA示例

本示例确定了发生 SlideShowNextSlide事件后幻灯片的位置。如果下一张幻灯片是第三张幻灯片,则本示例将鼠标指针的类型更改为笔形且颜色更改为红色。


Private Sub App_SlideShowNextSlide(ByVal Wn As SlideShowWindow)
   Dim Showpos As Integer
   Showpos = Wn.View.CurrentShowPosition + 1

      If Showpos = 3 Then
         With ActivePresentation.SlideShowSettings.Run.View
            .PointerColor.RGB = RGB(255, 0, 0)
            .PointerType = ppSlideShowPointerPen
         End With
      Else
         With ActivePresentation.SlideShowSettings.Run.View
            .PointerColor.RGB = RGB(0, 0, 0)
            .PointerType = ppSlideShowPointerArrow
         End With
      End If
End Sub

本示例将全局计数器变量的值设置为 0。然后计算此事件后幻灯片上的形状个数,确定哪些形状具有动画,并用每个形状的动画顺序和编号填充全局数组。

注意   本示例中创建的数组还用于 SlideShowNextBuild事件示例中。


Private Sub App_SlideShowNextSlide(ByVal Wn As SlideShowWindow)
   Dim i as Integer, j as Integer, numShapes As Integer
   Dim objSld As Slide
   Set objSld = ActivePresentation.Slides _
        (ActivePresentation.SlideShowWindow.View _
        .CurrentShowPosition + 1)
      With objSld.Shapes
         numShapes = .Count
         If numShapes > 0 Then
            j = 1
            ReDim shpAnimArray(1 To 2, 1 To numShapes)
            For i = 1 To numShapes
               If .Item(i).AnimationSettings.Animate Then
                  shpAnimArray(1, j) = _
                     .Item(i).AnimationSettings.AnimationOrder
                     shpAnimArray(2, j) = i
                     j = j + 1
               End If
            Next
         End If
      End With
End Sub

上页:PowerPoint VBA教程:SlideShowNextClick事件 下页:PowerPoint VBA教程:WindowActivate事件

PowerPoint VBA教程:SlideShowNextSlide事件

PowerPoint VBA教程:WindowActivate事件 PowerPoint VBA教程:WindowBeforeDoubleClick事件
PowerPoint VBA教程:WindowBeforeRightClick事件 PowerPoint VBA教程:WindowDeactivate事件
PowerPoint VBA教程:WindowSelectionChange事件 PowerPoint VBA教程:隐藏的语言元素
PowerPoint VBA教程:在文档中添加控件 PowerPoint VBA教程:在用户窗体中添加控件
PowerPoint VBA教程:控件和对话框事件 PowerPoint VBA教程:在一个 Microsoft Office 应用程序中控制另一个 Microsoft Office 应用程序
PowerPoint VBA教程:创建自定义对话框 PowerPoint VBA教程:创建用户窗体
PowerPoint VBA教程:显示自定义对话框 PowerPoint VBA教程:获得有关 Macintosh 关键字的帮助
PowerPoint VBA教程:初始化控件属性 PowerPoint VBA教程:发布 Web 演示文稿
PowerPoint VBA教程:返回集合中的对象 PowerPoint VBA教程:在代码运行时使用控件值
PowerPoint VBA教程:设置控件属性 PowerPoint VBA教程:在幻灯片中使用 ActiveX 控件
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号