На главную
ПРАВИЛА FAQ Помощь Участники Календарь Избранное DigiMania RSS
msm.ru
! Правила раздела Visual Basic: Общие вопросы
Здесь обсуждаются вопросы по языку Visual Basic 1-6 (а так же по схожим языкам, как, например, PowerBASIC).
Вопросы по Visual Basic .NET (это который входит в состав Visual Studio 2002/2003/2005/2008+, для тех, кто не в курсе) обсуждаются в разделе .NET.

Обратите внимание:
1. Прежде чем начать новую тему или отправить сообщение, убедитесь, что Вы не нарушаете правил форума!
2. Обязательно воспользуйтесь поиском. Возможно, Ваш вопрос уже обсуждали. Полезные ссылки приведены ниже.
3. Темы с просьбой выполнить какую-либо работу за автора в этом разделе не обсуждаются. Студенты, вам сюда: ПОМОЩЬ СТУДЕНТАМ!
4. Используйте теги [ code=vba ] ...текст программы... [ /code ] для выделения текста программы подсветкой.
5. Помните, здесь телепатов нет. Формулируйте свой вопрос максимально грамотно и чётко: Как правильно задавать вопросы
6. Запрещено отвечать в темы месячной (и более) давности, без веских на то причин.

Полезные ссылки:
user posted image FAQ Сайта user posted image FAQ Раздела user posted image Кладовка user posted image Наши Исходники user posted image API-Guide user posted image Поиск по Разделу user posted image MSDN Library Online user posted image Google

Ваше мнение о модераторах: user posted image SCINER, user posted image B.V.
Модераторы: SCINER, B.V.
  
> Затухание звука в конце презентации, Звуковое сопровождение презентации
    Добрый день!
    Подскажите как в VBA можно плавно снижать звук на заданном этапе выполнения программы. В частности мне надо, чтобы звук в слайдщоу Power Point плавно "затух" на последних трех слайдах
    Что-нибудь в таком роде (вставить операторы реализующие плавное затухание).

    With ActivePresentation.SlideShowSettings
    .ShowType = ppShowTypeSpeaker
    .LoopUntilStopped = msoFalse
    .ShowWithNarration = msoTrue
    .ShowWithAnimation = msoTrue
    .RangeType = ppShowAll
    .AdvanceMode = ppSlideShowUseSlideTimings
    .PointerColor.RGB = RGB(Red:=255, Green:=0, Blue:=0)

    .StartingSlide = 25

    .........

    .EndingSlide = 28


    End With


    Или может еще как-то. Изначально просто в редакторе на (Audacity) на нужном интервале времени устанавливал затухание. Но во-первых это трудоемко (для каждой презентации устанавливать), а во-вторых (и это главное) на других компьютерах происходит рассогласование звукового сопровождения слайдшоу.
      Я крутил в таймере отнимая по одному делению, получалось плавно
      Прикреплённый файлПрикреплённый файлfader_20180401121258.zip (12,83 Кбайт, скачиваний: 13)
      Сообщение отредактировано: dneese -
      1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)
      0 пользователей:


      Рейтинг@Mail.ru
      [ Script Execution time: 0,0667 ]   [ 16 queries used ]   [ Generated: 14.08.18, 06:32 GMT ]