Access 2002

Функция addnewslide


Обратите  на то, что из этого кода вызывается описанная несколько ранее функция AddNewSlide.

Путь, используемый этой формой для доступа к списку шаблонов PowerPoint, представлен в ее коде в виде константы. Мы задали ей значение пути, который используется по умолчанию при инсталляции продуктов Microsoft. Но если вы инсталлировали Office ХР в другой каталог, следует изменить константу. Word и Excel предоставляют свойства, позволяющие получить информацию об их каталогах, содержащих шаблоны. К сожалению, PowerPoint не имеет эквивалентных свойств.

После создания новой презентации (с помощью метода Add коллекции Presentations) процедура применяет к ней выбранный пользователем шаблон. В шаблоне задаются цвета, шрифты и другие элементы оформления презентации. Далее процедура добавляет в презентацию титульный слайд, используя константу ppLayoutTitle и текст заголовка, введенный пользователем в форме. Пока что презентация состоит из единственного слайда, показанного на  10.20.

Последующие слайды создаются внутри цикла Do, где перебираются записи, полученные путем суммирования данных из таблицы tbl Journal Entries. Мы создаем по одному слайду для каждого месяца работы пользователя и выводим в нем итоговые данные о том, сколько времени он затратил на определенный вид работ. Как все это делается,  10.14 (мы опустили в нем часть кода, чтобы сделать важнейшие элементы более наглядными).

Теперь вы видите, как используются свойства TextFrame и TextRange объекта Shape(2) (в данном случае второго элемента коллекции Shapes, представляющей маркированный список). Кроме того, мы активно пользуемся методом Insert- After. Если передать ему строковый параметр, этот метод вставляет текст вслед за существующим и возвращает объект TextRange, указывающий на новый текст.

Комментарии закрыты