Форум программистов, компьютерный форум, киберфорум
Наши страницы
MS Office Powerpoint
Войти
Регистрация
Восстановить пароль
 
vadpetr
0 / 0 / 0
Регистрация: 03.04.2014
Сообщений: 8
1

Как определить длительность презентации

16.08.2018, 10:05. Просмотров 754. Ответов 0
Метки нет (Все метки)

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


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
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.08.2018, 10:05
Ответы с готовыми решениями:

Как определить длительность презентации или слайд-шоу в PowerPoint 2007?
Большое слайд-шоу (порядка 70-80 слайдов). после установки длительности показа отдельных слайдов...

Timer на презентацию, и как объединить презентации
Добрый день, нужна помощь. Есть 8 презентаций, нужно объединить их (т.е. создать программу на...

Как поменять время смены слайда в презентации
Вставил в презентацию музыку, презентация с анимацией по всем слайдам. Все хорошо, только не могу...

Как включить видео при просмотре презентации
В конце презентации стоит видео с песней, нужно сделать, чтобы как презентация переключалась на...

Как изменить шрифт во всей презентации сразу?
Всем привет! Подскажите, пожалуйста, как изменить шрифты сразу во всей презентации. Презентация...

0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.08.2018, 10:05

Как закрепить логотип (блок) в верхний слой презентации
Существует такая проблема: есть шаблон презентации. в нем есть логотип, который стоит в левом...

Как в презентации убрать наложение двух музыкальных фрагментов
Здравствуйте! Пожалуйста помогите (powerpoint 2013) , в презентации (29 слайдов) вставлены mp3...

Как в презентации в таблице сделать чтоб по щелчку выделялось ячейка
Есть заполненная таблица на слайде в Power Point, как сделать чтоб по щелчку выделялась...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru