Application.SlideShowNextSlide 事件 (PowerPoint)

在即将切换到下一张幻灯片之前发生此事件。 对于第一张幻灯片，紧跟在 SlideShowBegin 事件发生后发生此事件。

语法

expression。 SlideShowNextSlide (Wn)

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

参数

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

备注

有关使用 Application 对象的事件的信息，请参阅操作方法：使用 Application 对象事件。

示例

本示例确定为 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

另请参阅

Application 对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。