Добрый день.

Ниже представлен код макроса, который изменяет случайному слайду время анимации с изначально заданного программного параметра на 21 секунду.

Sub rand()

With ActivePresentation.Slides(Int(Rnd * ActivePresentation.Slides.Count) + 1).SlideShowTransition
.AdvanceOnClick = msoFalse
.AdvanceOnTime = msoTrue
.AdvanceTime = 21
End With

End Sub

-Необходимо дописать макрос так, чтобы среди списка всех возможных слайдов, смена произошла у 4 случайных уникальных слайдов. (т.е. без повторений)-


-----------------Опциональное задание (если готовы его решить, прошу отдельно отписать мне)--------------------------------------

Необходимо дополнить макрос так, чтобы помимо смены времени у 4 случайных слайдов, все слайды были перемешаны случайным образом,
а напротив 4 случайных слайдов с изменённым временем вверху экрана появлялся вверху по центру текст на время презентации "Participant A" "Participant B" "Participant C" "Participant D" 
(Participant A соответствует первому случайному слайду с изменённым временем анимации и т.д. по смыслу)

Т.е конечный макрос должна выглядеть так:
Запускается макрос, он по порядку
1. меняет 4 уникальным слайдам время смены друг друга (параметр AdvanceTime)
2. меняет все слайды местами
3. начиная с 1 встретившегося слайда с изменённым временем присваивает ему надпись вверху слайда "Participant A", проделывая подобный цикл ещё 3 раза соответственно.

Прошу решить опционалльную задачу без применения объектов на слайдах, если это возможно.

Задача не из простых, но если сможете выполнить, буду очень признателен.

P.S: Код для смены всех слайдов также прилагаю (для пункта 2)

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