Как рандомизировать слайды в презентации PowerPoint

Иногда вам может потребоваться добавить элемент неожиданности в презентацию PowerPoint, перетасовывая слайды в случайном порядке. Например, возможно, вы создаете презентацию для своих учеников и хотите перетасовать некоторые или все карточки.

По умолчанию в PowerPoint нет встроенной функции для этого, но вы можете добиться этого с помощью макроса. В этом пошаговом руководстве мы покажем вам, как перемешивать слайды вручную и как использовать код VBA для автоматизации процесса случайного перемешивания.

Как вручную перемешать слайды в PowerPoint

В Microsoft PowerPoint вы можете вручную перемешать слайды в презентации, чтобы отображать их в случайном порядке, используя режим «Сортировщик слайдов». Хотя этот метод может быть не таким случайным, как использование макросов, он все же позволяет переставлять слайды в другом порядке.

Чтобы вручную перетасовать и рандомизировать слайды в презентации PowerPoint, выполните следующие действия.

1. Откройте презентацию PowerPoint и перейдите на вкладку «Вид» в меню ленты в верхней части экрана. Нажмите на него, чтобы получить доступ к меню «Вид».

2. В меню «Вид» найдите группу «Просмотр презентаций» и выберите параметр «Сортировщик слайдов». При этом ваша презентация переключится в режим сортировщика слайдов, где вы сможете увидеть все миниатюры слайдов одновременно.

3. В режиме сортировщика слайдов вы можете увидеть увеличенные миниатюры слайдов. Если в вашей презентации много слайдов, нажмите кнопку «Уменьшить», представленную значком «-» на нижней панели инструментов, чтобы получить лучший обзор всех слайдов. Продолжайте нажимать на нее, пока не увидите на экране все слайды презентации одновременно.
4. Теперь вы можете легко перетасовать слайды, щелкнув слайд и перетащив его в произвольное положение на экране. Повторите этот шаг с другими слайдами, чтобы перемешать их в случайном порядке. Продолжайте переставлять слайды, пока не будете удовлетворены новым порядком.

Имейте в виду, что этот метод не гарантирует полностью случайный порядок, поскольку он зависит от вашей ручной настройки. Если вы хотите, чтобы после нажатия кнопки отображения следующего слайда появлялся совершенно случайный слайд, вы можете использовать метод макросов VBA для более точного и автоматического случайного перетасовки.

Как рандомизировать слайды PowerPoint с помощью кода VBA

Чтобы убедиться, что ваши слайды PowerPoint воспроизводятся в совершенно случайном порядке, вам нужно немного написать код. Параметр «Макросы» в Microsoft Office PowerPoint позволяет запускать коды VBA для автоматического перемешивания слайдов в презентации.

В этом уроке мы покажем вам, как перемешивать слайды без дубликатов. Чтобы расположить слайды в PowerPoint в случайном порядке, чтобы один и тот же слайд не повторялся, выполните следующие действия.

1. Чтобы начать работу, вам потребуется доступ к вкладке «Разработчик» в ленточном меню PowerPoint. Для этого перейдите по пути «Файл» > «Параметры» или щелкните правой кнопкой мыши любое пустое место в меню ленты и выберите «Настроить ленту». Откроется диалоговое окно.

2. В диалоговом окне «Параметры PowerPoint» прокрутите вниз, пока не найдете параметр «Разработчик». Установите флажок «Разработчик» и нажмите «ОК».

3. Теперь выберите вкладку «Разработчик» и выберите «Макросы». Во всплывающем окне вы можете вставить новый макрос. Выберите для него имя (например, Shuffleslides) и нажмите «Создать», чтобы продолжить.

4. Откроется окно редактора Visual Basic, где вы можете ввести код для рандомизации слайдов презентации PowerPoint.

5. Скопируйте следующий код VBA и вставьте его в открытое окно Visual Basic.

Суб-перетасовка слайдов()

Первый слайд = 2

Последний слайд = 5

Рандомизировать

‘генерировать случайное “нет” между первым и последним слайдом”

ГРН:

RSN = Int((Последний слайд – Первый слайд + 1) * Rnd + Первый слайд)

Если RSN = ActivePresentation.SlideShowWindow.View.Slide.SlideIndex, тогда перейдите к GRN

ActivePresentation.SlideShowWindow.View.GotoSlide (RSN)

Конец субтитра

6. После вставки кода вы заметите, что при настройке по умолчанию слайды со 2 по 5 перемешиваются. Однако в вашей презентации может не быть ровно пяти слайдов, но это не проблема. Вы можете легко настроить эту часть кода в соответствии со своими потребностями.

В редакторе VBA настройте номера слайдов после «FirstSlide» и «LastSlide», чтобы указать диапазон слайдов, которые вы хотите включить в перемешивание. По умолчанию перетасовка начинается со слайда 2, чтобы не включать титульный слайд. Если вы хотите исключить перемешивание титульных слайдов, оставьте значение «FirstSlide = 2» как есть.

Например, предположим, что у вас есть презентация с десятью слайдами, и вы хотите пропустить перетасовку титульного слайда. В этом случае установите «FirstSlide = 2» и «LastSlide = 10». Таким образом, в процесс перетасовки будут включены только слайды со 2 по 10, а титульный слайд останется неизменным.

7. Теперь, когда вы завершили и настроили код для своей презентации, пришло время добавить кнопки действий к слайдам. Для этого вставьте любую фигуру на первый слайд (или любой слайд, который вы предпочитаете), затем выберите фигуру и выберите «Вставка» > «Действие» > «Выполнить макрос». Затем выберите макрос, который вы только что создали. Это активирует перетасовку слайдов в режиме слайд-шоу, что обеспечит интерес вашей аудитории.

8. Сохраните файл PowerPoint в формате PPTM (презентация с поддержкой макросов), чтобы сохранить созданные вами макросы. Выберите «Файл» > «Сохранить как» и выберите «PPTM» в раскрывающемся списке, чтобы гарантировать, что созданные вами макросы будут сохранены и не потеряны.

Теперь войдите в режим презентации и нажмите кнопку на первом слайде, чтобы перемешать слайды в случайном порядке. Наслаждайтесь динамичной и неповторяющейся презентацией.

Как перемешать только четные или нечетные слайды

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

Для этого следуйте инструкциям выше, пока не дойдете до окна редактора Visual Basic и не вставьте следующий код.

Суб-перетасовка слайдов()

EvenShuffle = True (замените на false, если перемешиваются только слайды с нечетными номерами)

FirstSlide = 2 (должно быть четным/нечетным числом в зависимости от потребностей)

Последний слайд = 8

Рандомизировать

Для i = FirstSlide To LastSlide Шаг 2

Generate: ‘генерировать случайное «нет» между первым и последним слайдом’

RSN = Int((LastSlide – FirstSlide + 1) * Rnd) + FirstSlide

Если EvenShuffle = True Тогда

Если RSN Mod 2 = 1, то GoTo сгенерировать

Еще

Если RSN Mod 2 = 0, то GoTo сгенерирует

Конец, если

ActivePresentation.Slides(i).MoveTo (RSN)

Если i < RSN, то ActivePresentation.Slides(RSN – 1).MoveTo (i)

Если i > RSN, то ActivePresentation.Slides(RSN + 1).MoveTo (i)

Дальше я

Конец субтитра

Как перемешивать слайды в бесконечном цикле

В приведенном выше уроке показано, как перемешивать слайды PowerPoint и воспроизводить их в случайном порядке без повторения. Однако после одного цикла тот же порядок перемешивания сохраняется, если вы не перетасуете слайды снова.

Чтобы автоматически просматривать все слайды в бесконечном цикле в режиме слайд-шоу с новым случайным порядком для каждого цикла, вы можете использовать следующий код. Обязательно измените цифры после FirstSlide = и LastSlide =, чтобы они соответствовали количеству слайдов в вашей презентации.

Публичная позиция, диапазон, AllSlides() как целое число

Sub ShuffleAndBegin()

Первый слайд = 2

Последний слайд = 6

Диапазон = (Последний слайд – Первый слайд)

Изменение размера всех слайдов (от 0 до диапазона)

Для i = 0 до диапазона

AllSlides(i) = Первый слайд + я

Дальше я

Рандомизировать

Для N = 0 до диапазона

J = Int((Диапазон + 1) * Rnd)

температура = Все слайды (N)

ВсеСлайды(N) = ВсеСлайды(J)

AllSlides(J) = температура

Следующий Н

Позиция = 0

ActivePresentation.SlideShowWindow.View.GotoSlide AllSlides(позиция)

Конец субтитра

Суб Прогресс()

Позиция = Позиция + 1

Если Позиция > Диапазон Тогда

ПеремешатьИНачать

Еще

ActivePresentation.SlideShowWindow.View.GotoSlide AllSlides(позиция)

Конец, если

Конец субтитра

Время начать презентацию

Теперь вы знаете, как профессионально перемешивать слайды PowerPoint. Поэкспериментируйте с этими методами и создавайте увлекательные презентации для преподавателей, бизнес-профессионалов или любых сценариев, требующих случайного порядка слайдов. Получайте удовольствие от динамичных и увлекательных слайд-шоу.