..
ActivePresentation.Slides(6).Select
..
Случайный выбор слайда
Привет всем!
У меня стоит задача создать на PowerPoint'е тест. Допустим, есть 20 страниц из них только 10 надо отбразить случайным образом. Понятно, что ряд из 10 неповторяющихся чисел сгенерю и буду хранить в глобальном массиве, но как быть именно с выбором того или иного слайда. Т.е. на событие закрытие слайда мне нужно подсунуть программно другой слайд. Подскажите, как это сделать (офис 2003/2007).
У меня стоит задача создать на PowerPoint'е тест. Допустим, есть 20 страниц из них только 10 надо отбразить случайным образом. Понятно, что ряд из 10 неповторяющихся чисел сгенерю и буду хранить в глобальном массиве, но как быть именно с выбором того или иного слайда. Т.е. на событие закрытие слайда мне нужно подсунуть программно другой слайд. Подскажите, как это сделать (офис 2003/2007).
Пользуй либо:
SlideShowNextClick Event
либо:
SlideShowNextSlide Event
- смотря что тебе нужно!!
SlideShowNextClick Event
либо:
SlideShowNextSlide Event
- смотря что тебе нужно!!
Цитата: koltaviy
Пользуй либо:
SlideShowNextClick Event
либо:
SlideShowNextSlide Event
- смотря что тебе нужно!!
SlideShowNextClick Event
либо:
SlideShowNextSlide Event
- смотря что тебе нужно!!
Ну допустим обрабатываю я это событие. Вот только как выбрать нужный слайд. Напиши пример кода, в котором производится выбор, допустим, 6 слайда.
Цитата: koltaviy
..
ActivePresentation.Slides(6).Select
..
ГЫ. Не всё так просто. На метод Select получаю: This view does not support selection. Ладно, попробовал такой код:
Код:
Private Sub CurrentInstance_SlideShowNextSlide(ByVal Wn As SlideShowWindow)
Dim nextSlide As Integer
Randomize
nextSlide = Int((6 * Rnd) + 1)
CurrentInstance.SlideShowWindows(1).View.GotoSlide (nextSlide)
End Sub
Dim nextSlide As Integer
Randomize
nextSlide = Int((6 * Rnd) + 1)
CurrentInstance.SlideShowWindows(1).View.GotoSlide (nextSlide)
End Sub
Т.е. обрабатываю событие SlideShowNextSlide, выбираю случайно один из 6 слайдов. В результате получается, что он мне их прокручивает без остановки на действие пользователя. А мне нужно чтобы слайд показывался только после нажатия клавиши пользователем.