Вопрос о vba в PPT (Microsoft PowerPoint)

Question

Я хочу отображать индикатор выполнения при отображении ppt. Я пишу код так:

Public WithEvents App As Application
Private Sub App_SlideShowNextSlide(ByVal Wn As SlideShowWindow)
    Dim Showpos As Integer
    Showpos = Wn.View.CurrentShowPosition
    Dim PageCount As Integer
    PageCount = Application.ActivePresentation.Slides.Count
    SlideShowWindows(Index:=1).View.PointerType = ppSlideShowPointerPen
    Dim i As Integer
    For i = 1 To 15
        Wn.View.DrawLine 0, i, 700 * Showpos / PageCount, i
    Next

End Sub

, используя приведенный выше код, при показе PPT появляется индикатор выполнения. Но когда я перехожу к следующему слайду ， Индикатор выполнения появляется и быстро исчезает. Интересно, почему это происходит?

Answer 1

Это некрасиво, но вы можете отключить обновление экрана между слайдами: http://skp.mvps.org/ppt00033.htm