语法
表达式.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
|