WPS 基础接口 > 演示 API 参考 > Application > 事件 > Application.SlideShowNextSlide 事件

语法

表达式.SlideShowNextSlide(Wn)

表达式   一个返回 Application 对象的表达式。

参数

名称 必选/可选 数据类型 描述
Wn 必选 SlideShowWindow 活动幻灯片放映窗口。

说明

有关使用 Application 对象的事件的信息,请参阅 使用 Application 对象的事件。

示例

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

示例代码
function Application_SlideShowNextSlide(Wn) {
   let Showpos
   Showpos = Wn.View.CurrentShowPosition + 1
   if(Showpos == 3) {
      let view = ActivePresentation.SlideShowSettings.Run().View
      view.PointerColor.RGB = 255, 0, 0
      view.PointerType = ppSlideShowPointerPen
   }
   else {
      let view = ActivePresentation.SlideShowSettings.Run().View
      view.PointerColor.RGB = 255, 0, 0
      view.PointerType = ppSlideShowPointerArrow
   }
}

本示例将全局计数器变量的值设置为 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


请参阅