Отказ от ответственности

Макрос - Добавить индикатор смены слайдов в MS PowerPoint

---

Просматривая презентацию PowerPoint в полноэкранном режиме невозможно определить, когда наступит очередь предпоследнего или последнего слайда. Чтобы иметь наглядное представление о количестве составляющих презентацию слайдов, нужно добавить в нее индикатор прогресса — в данном примере узкую полоску, которая будет двигаться слева направо по мере просмотра слайд-шоу.

Для реализации нам необходимо использовать Макросы на языке VBA. Скачайте код макроса по кнопке ниже. Далее:

1. Переключитесь на вкладку Вид и выберите Макросы.

2. В открывшемся окне задайте макросу любое имя и нажмите Создать.

3. Откроется окно редактора Microsoft Visual Basic for Applications, в котором будет располагаться еще одно окно с двумя строками кода. Между ними вставьте ранее скачанный код.

4. Нажмите кнопку Run Sub или F5. Закройте окно редактора. Если всё сделано правильно, то в нижней части презентации у вас появится полоса, длина которой станет увеличиваться по мере перехода от слайда к слайду в обоих направлениях.

Для изменения цвета полоски задайте RGB значение цвета в строке кода s.Fill.ForeColor.RGB = RGB(127,0,0).
 

Скачать "Макрос - Добавить индикатор смены слайдов в MS PowerPoint" []

Пароль к архивам: ComInet