T
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 с этим кодом, чтобы все последующие презентации открывались с кнопкой, на которую можно тыцнуть и картинки перемешаются - не получается.
Помогите, пожалуйста, еще раз. Я могу каждый раз этот код в макрос записывать, но жена начинает нервничать,
когда что-то начинаешь объяснять )))
Если возможно, напишите кто-нибудь такой адд - ин. Либо пошаговую инструкцию как это сделать.
ЗАранее спасибо!
Помогите решить проблему:
Купили курс обучения для ребенка. Этот курс - картинки в 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 с этим кодом, чтобы все последующие презентации открывались с кнопкой, на которую можно тыцнуть и картинки перемешаются - не получается.
Помогите, пожалуйста, еще раз. Я могу каждый раз этот код в макрос записывать, но жена начинает нервничать,
когда что-то начинаешь объяснять )))
Если возможно, напишите кто-нибудь такой адд - ин. Либо пошаговую инструкцию как это сделать.
ЗАранее спасибо!