Помогите пожалуйста / Powerpoint 2007

[Tronometr]

Всем привет!

Помогите решить проблему:

Купили курс обучения для ребенка. Этот курс - картинки в PP 2007, которые должны меняться каждую секунду. Второй раз, эти картинки необходимо показывать в другом порядке.
ПОнятно, что мелкософт такого не предусмотрел и теперь необходимо мучатся самим.

Нашел код:

Sub sort_rand()

Dim i As Integer
Dim myvalue As Integer
Dim islides As Integer
islides = ActivePresentation.Slides.Count
For i = 1 To ActivePresentation.Slides.Count
myvalue = Int((i * Rnd) + 1)
ActiveWindow.ViewType = ppViewSlideSorter
ActivePresentation.Slides(myvalue).Select
ActiveWindow.Selection.Cut
ActivePresentation.Slides(islides - 1).Select
ActiveWindow.View.Paste
Next

End Sub


Пытался создать add-in с этим кодом, чтобы все последующие презентации открывались с кнопкой, на которую можно тыцнуть и картинки перемешаются - не получается.
Помогите, пожалуйста, еще раз. Я могу каждый раз этот код в макрос записывать, но жена начинает нервничать,
когда что-то начинаешь объяснять )))

Если возможно, напишите кто-нибудь такой адд - ин. Либо пошаговую инструкцию как это сделать.
ЗАранее спасибо!