Берем ситуацию из жизни. У нас есть презентация, в которой пару сотен, ну или хотя бы 3 или 4 десятка слайдов. Работая с ней, приходится часто переключаться между слайдами для их просмотра, уточнения данных и т.д. и т.п. Как мы это делаем?
Есть несколько способов, которые можно сгруппировать по двум категориям:
- Простые, с помощью средств Power Point
- Сложные, с помощью программирования на VBA
Рассмотрим три простых способа.
Оба способа основаны на зрительной памяти человека и его навыков чтения :)
- Обычное пролистывание к нужному слайду по памяти или читая заголовки слайдов. Это самый простой и требующий больших затрат времени.
- Используя инструмент "Сортировщик слайдов"
С помощью "Сортировщика слайдов" презентация принимает вид, в котором слайды расположены в виде иконок, размер которых можно изменять под свои требования, и опять же поиск нужного слайда нужно осуществлять с помощью своих глаз. Найдя нужный слайд нужно щелкнуть мышью два раза по его иконке и программа вернет обычный вид слайда и его можно будет редактировать.
3. В отличие от первых двух способов, этот способ потребует от вас предварительной подготовки презентации. Он хорош, если автором и редактором презентации являетесь вы, и у вас есть возможность работать всегда с последней версией презентации ну или на крайней случай Вы можете отдать исполнителю свою последнюю версию, с которой он продолжит работать в последующем. Итак, это способ, который заключается в группировке слайдов по разделам.
Используя этот способ, можно сворачивать и разворачивать разделы презентации. Грубо говоря, сначала вы из всех групп слайдов находите ту в которой предполагается наличие нужного вам слайда и опять ищете его используя способы 1 и 2.
Переходим к способам посложнее.
Эти способы предполагают использование языка программирования VBA.
Рассмотрим следующие способы.
- Переименование конкретных слайдов и прямой переход к ним с помощью редактора VBA
- Создание оглавления слайдов в программе Excel и переход по слайдам при выделении ячеек, в которых стоит имя слайда или содержимое заголовков слайдов.
Переименование слайдов и переход к конкретному слайду в презентации
Одно из свойств слайда в объектов модели VBA его имя. В коде это можно писать различными способами:
1. Activewindow.View.Slide.Name
2. Activewindow.Selection.SlideRange.Name
3. ActivePresentation.Slides(1).Name
Между первым и вторым вариантами нет особой разницы, поэтому можно использовать любой из них, а третий предполагает что вы знаете номер слайда, имя которого хотите знать.
Последний вариант можно использовать когда вы будете точно знать имя слайда, на который захотите перейти, и код будет иметь следующий вид:
ActivePresentation.Slides("ИмяСлайда").Select
Итак, приступаем!
1. Переходим в редактор VBA с помощью сочетания клавиш Alt+F11
Для удобства можно разделить экран на две части, чтобы видеть, что происходит в окне презентации
Если ввести в окно Immediate код:
ActivePresentation.Slides(1).Select
и нажать на Enter, то вы увидите что активным стал слайд № 1
Если же вы наберете в окне Immediate код
? Activewindow.View.Slide.Name
Теперь давайте перейдем на любой слайд в презентации, зададим ему имя и будем переходить на него, используя заданное имя
Давайте назовем слайд "Река" с помощью кода:
Activewindow.View.Slide.Name = "река"
после нажатия на кнопку Enter текущему слайду присваивается имя "Река", теперь из любого места презентации набрав код:
activepresentation.Slides("Река").Select
вы автоматически перейдете на этот слайд.
Таким образом вы можете задать имена всем слайдам презентации, или только основным, с которым чаще всего работаете. И для перехода к ним использовать код VBA.
