powerpoint vba случайный запуск слайда

Question

У меня есть патч PPT с приблизительно 40 слайдами. Колода состоит из 4 этажей, каждая из которых имеет 10 слайдов. То, что я хочу сделать в Powerpoint 2010, - это рандомизировать, какая из четырех историй рассказывается. Поэтому мне кажется, что мне нужен какой-то код, который запускается за кулисами и говорит Powerpoint либо перейти на слайд 1 (рассказ 1), либо слайд 11 (рассказ 2), либо слайд 21 (рассказ 3), слайд 31 (рассказ 4).

У кого-нибудь есть VBA, который они могут предоставить, чтобы это произошло? Powerpoint 2010 для Windows 7.

Answer 1

Создание 4 кнопки на каждой из этих слайдов (Slide 1, 11,21,31)

Добавить это действие на эти кнопки.

Private Sub CommandButton1_Click() 
     ActivePresentation.SlideShowWindow.View.GotoSlide 1 '(or11 or 21, or 31) 
End Sub 

Примечание: это будет работать только во время показа слайдов.