@vadpetr

Добрый день!
Для синхронизации презентации с аудио файлом пытаюсь определить длительность презентации:


Private mlngStart As Long

Private Declare Function GetTickCount64 Lib "kernel32" () As Long



Private Sub App_SlideShowBegin(ByVal Wn As SlideShowWindow)

mlngStart = GetTickCount64

End Sub


Private Sub App_SlideShowEnd(ByVal Pres As Presentation)

Dim durTime As Long
durTime = (GetTickCount64 - mlngStart)
MsgBox CStr(durTime)

End Sub

В результате получаю длительность презентации. Но беда в том, что при каждом запуске презентации получаю несколько разную длительность. На 50 сек презентации отличия до ~0.5 сек. Может кто подскажет в чем дело?
Мне надо знать длительность презентации, чтобы в момент ее окончания аудио файл, который внедрен в презентацию, плавно "затух".

ActivePresentation.Slides(1).Shapes(nd).MediaFormat.EndPoint = 52000 ' длительность презентации
ActivePresentation.Slides(1).Shapes(nd).MediaFormat.FadeOutDuration = 9000

Но поскольку длительность презентации при каждом пуске разная, то плавного затухания не получается. Как решить эту проблему?

0