Cara Kocok Slaid PowerPoint Secara Rawak

Adakah anda tertanya-tanya bagaimana untuk mengocok slaid PowerPoint? Mungkin anda menggunakan PowerPoint untuk menyoal khalayak anda atau diri anda sendiri dan anda ingin mengocok soalan anda, mungkin anda mempunyai dek soalan memanaskan badan untuk dipilih secara rawak, atau mungkin anda ingin memilih nama atau topik secara rawak yang ditanam dalam dek! Apa sahaja yang anda perlukan untuk merombak slaid PowerPoint, berikut ialah panduan langkah demi langkah tentang cara mempersembahkan slaid anda secara rawak.

Pertama, amaran: kami akan menggunakan sedikit bantuan pengekodan! Tetapi jangan risau, anda hanya perlu menampal kod yang disediakan. (ia tidak sukar dan semuanya dilakukan di dalam PowerPoint !)

Kedua, matlamat anda: bagaimana anda mahu slaid anda dikocok? Adakah anda mahu shuffle slaid PowerPoint anda sekali sahaja tanpa ulangan atau pendua? Atau adakah anda mahu merombak slaid secara rawak – ulangan & pendua dibenarkan?

Di bawah, kami akan membimbing anda melalui langkah-langkah untuk dua versi:

Cara mengocok slaid tanpa pendua
Cara mengocok slaid dan memasukkan ulangan untuk benar-benar menjadikannya rawak.

Jika anda hanya berminat dengan satu versi, gunakan Jadual Kandungan untuk menavigasi di bawah, atau jika anda suka belajar dengan menonton, lihat panduan video. 👇

Isi kandungan

Versi 1: Cara Kocok Slaid PowerPoint tanpa Pendua

Langkah 1: Dayakan Tab Pembangun PowerPoint

Untuk mula mengocok slaid PowerPoint, anda perlu mengakses tab Pembangun pada reben PowerPoint anda. Tab ini secara lalai tidak muncul secara automatik, jadi anda boleh mendayakannya dengan mengklik kanan di mana-mana pada reben atas, kemudian mengklik Sesuaikan Reben. Cari “Pembangun” dalam menu di sebelah kanan dan tandai kotak di sebelahnya. Kini tab Pembangun akan muncul pada reben PowerPoint dan anda sudah bersedia untuk bermula!

Langkah 2: Cipta Makro

Klik butang Makro dalam tab Pembangun. Ini akan membuka editor Visual Basic supaya anda boleh menampal kod tersebut. Editor VBA (Visual Basic for Applications) ialah tempat anda boleh menulis kod VBA dan membuat makro. Untuk proses ini, anda hanya perlu menampal kod dalam langkah seterusnya – tidak perlu menulis!

Langkah 3: Tampal Kod VBA

Salin kod ini dan tampalkannya ke dalam tetingkap Visual Basic yang terbuka.

Public Position
Public AllSlides() As Integer

Sub ShuffleJump()

Dim FirstSlide As Integer
Dim LastSlide As Integer

FirstSlide = 2
LastSlide = 22

Dim ThisSlide As Integer
Dim Range As Integer
Range = (LastSlide - FirstSlide)

ReDim AllSlides(0 To Range)

For i = 0 To Range
AllSlides(i) = FirstSlide + i
Next

Dim N As Long
Dim temp As Variant
Dim K As Long
Randomize
For N = LBound(AllSlides) To UBound(AllSlides)
J = CLng(((UBound(AllSlides) - N) * Rnd) + N)
If N <> J Then
temp = AllSlides(N)
AllSlides(N) = AllSlides(J)
AllSlides(J) = temp

End If
Next N

Position = 0

ActivePresentation.SlideShowWindow.View.GotoSlide AllSlides(Position)

End Sub

Sub RandomSlide()

Position = Position + 1
If Position > UBound(AllSlides) Then
ActivePresentation.SlideShowWindow.View.GotoSlide (1)

End If

ActivePresentation.SlideShowWindow.View.GotoSlide AllSlides(Position)

End Sub

Langkah 4: Sesuaikan Kod VBA

1. Tentukan Julat Kocok

Kod yang baru anda tampal menyatakan bahawa slaid 2 hingga 22 akan dikocok; walau bagaimanapun, anda mungkin tidak mempunyai 22 slaid dalam pembentangan anda. jangan risau! Kami boleh menyesuaikan bahagian kod ini.

Dalam Editor VBA anda, tukar nombor yang mengikutiFirstSlide dan jugaLastSlide ke slaid pertama dan terakhir, anda ingin sertakan dalam shuffle anda. Kod memulakan shuffle dengan slaid 2 kerana kami tidak mahu slaid tajuk disertakan. SimpanFirstSlide = 2 jika anda ingin mengetepikan slaid tajuk anda daripada proses shuffling.

Sebagai contoh, jika saya mempunyai pembentangan dengan 10 slaid dan saya tidak mahu merombak slaid tajuk, saya akanFirstSlide = 2 danLastSlide = 10 .

2. Tentukan Cara Menamatkan Kocok

Pilihan 1: Mulakan semula

Dalam bahagian kedua kod ini, theSub RandomSlide , anda melihat baris kodActivePresentation.SlideShowWindow.View.GotoSlide (1) Baris ini bermakna bahawa selepas semua slaid telah dikocok, anda akan dibawa kembali ke slaid pertama supaya anda boleh memulakan semula jika perlu.

Pilihan 2: Tamat pada Slaid Terakhir

Jika anda lebih suka menamatkan pembentangan anda pada slaid terakhir anda selepas semua slaid dikocok dan bukannya kembali ke slaid pertama anda, maka anda boleh menukar(1) di dalamActivePresentation.SlideShowWindow.View.GotoSlide (1) baris ke nombor slaid terakhir anda.

Contohnya, jika saya mempunyai Slaid Tajuk (Slaid 1), 4 slaid untuk dikocok (Slaid 2-5) dan slaid penutup (Slaid 6), julat saya ialah: FirstSlide = 2 &LastSlide = 5 . Kemudian, saya akan menukar(1) di dalamActivePresentation.SlideShowWindow.View.GotoSlide (1) akan menjadiActivePresentation.SlideShowWindow.View.GotoSlide (6) . Untuk visual proses ini, sila tonton video bermula pada 4:23.

Langkah 5: Tambahkan Butang Tindakan pada Slaid

Sekarang setelah kod selesai dan dikemas kini agar sesuai dengan pembentangan anda, anda perlu menambah butang pada slaid untuk menjalankan Makro yang baru anda buat. Untuk melakukan ini, tambahkan sebarang bentuk (benar-benar sebarang bentuk, warna atau saiz yang sesuai untuk pembentangan anda) pada slaid pertama daripada tab Sisip. Untuk menukar bentuk anda menjadi butang tindakan, klik pada bentuk dan dalam tab Sisip klik Tindakan. Menu akan muncul. Pastikan anda berada dalam bahagian Klik Tetikus di bahagian atas tetingkap, pilih Jalankan Makro dan pilih MakroShuffleJump .

Kemudian, ulangi proses ini untuk slaid seterusnya. Namun, bukannya memilihShuffleJump untuk Makro, pilih MakroRandomSlide . Anda kini boleh menyalin dan menampal butang ini pada setiap slaid dalam julat shuffle anda.

Langkah 6: Simpan sebagai PPTM

Apabila itu semua selesai, jangan lupa untuk menyimpan pembentangan anda, dan lebih penting lagi, anda perlu menyimpan pembentangan ini sebagai PPTM, pembentangan yang didayakan Makro. Dengan cara ini Makro yang baru anda buat tidak akan hilang!

Langkah 7: Ujinya

Sekarang bahagian yang menyeronokkan – mengujinya! Masuk ke Mod Persembahan dan klik butang yang anda buat pada slaid pertama untuk merombak slaid anda. PowerPoint secara automatik akan mengalihkan anda ke slaid rawak dalam pembentangan anda. Teruskan mengklik butang untuk terus bergerak dari satu slaid rawak ke slaid seterusnya. Anda akan perasan bahawa semua slaid dikocok – tiada ulangan! Jika anda ingin merombak slaid PowerPoint secara rawak termasuk ulangan, lihat bahagian seterusnya.

Versi 2: Kocok Slaid PowerPoint Secara Rawak Dengan Pendua

Langkah 1: Dayakan Tab Pembangun PowerPoint

Sama seperti Versi 1, jika anda ingin mengocok slaid PowerPoint tanpa pendua, anda perlu mengakses tab Pembangun pada reben PowerPoint anda. Secara lalai, tab ini tidak muncul secara automatik, jadi anda boleh mendayakannya dengan mengklik kanan di mana-mana pada reben atas, kemudian mengklik Sesuaikan Reben. Cari “Pembangun” dalam menu di sebelah kanan dan tandai kotak di sebelahnya. Kini tab Pembangun akan muncul pada reben PowerPoint dan anda sudah bersedia untuk bermula!