PPT (Microsoft PowerPoint)의 vba에 관한 질문

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