วิธีการสุ่มสไลด์ในการนำเสนอ PowerPoint

บางครั้ง คุณอาจต้องการเพิ่มองค์ประกอบที่สร้างความประหลาดใจให้กับงานนำเสนอ PowerPoint ของคุณโดยการสุ่มสไลด์ ตัวอย่างเช่น คุณอาจสร้างงานนำเสนอสำหรับนักเรียน และต้องการสุ่มแฟลชการ์ดบางส่วนหรือทั้งหมด

ตามค่าเริ่มต้น PowerPoint ไม่มีฟีเจอร์ในตัวสำหรับสิ่งนี้ แต่คุณสามารถทำได้โดยใช้มาโคร ในคำแนะนำทีละขั้นตอนนี้ เราจะแสดงวิธีสับเปลี่ยนสไลด์ด้วยตนเอง และวิธีใช้โค้ด VBA เพื่อทำให้กระบวนการสุ่มสับเป็นแบบอัตโนมัติ

วิธีการสลับสไลด์ด้วยตนเองใน PowerPoint

ใน Microsoft PowerPoint คุณสามารถสับเปลี่ยนสไลด์ในงานนำเสนอของคุณด้วยตนเองเพื่อแสดงตามลำดับแบบสุ่มโดยใช้มุมมอง "ตัวเรียงลำดับสไลด์" แม้ว่าวิธีนี้อาจไม่สุ่มเหมือนการใช้มาโคร แต่ก็ยังให้คุณจัดเรียงสไลด์ใหม่ตามลำดับอื่นได้

หากต้องการสุ่มและสุ่มสไลด์ในงานนำเสนอ PowerPoint ด้วยตนเอง ให้ทำตามขั้นตอนด้านล่าง

เปิดงานนำเสนอ PowerPoint ของคุณแล้วไปที่แท็บ มุมมองในเมนู Ribbon ที่ด้านบนของหน้าจอ คลิกเพื่อเข้าถึงเมนูมุมมอง

ในเมนู มุมมองให้มองหากลุ่มมุมมองการนำเสนอ และเลือกตัวเลือก ตัวเรียงลำดับสไลด์การดำเนินการนี้จะเปลี่ยนการนำเสนอของคุณเป็นมุมมอง ตัวเรียงลำดับสไลด์ซึ่งคุณสามารถดูภาพขนาดย่อของสไลด์ทั้งหมดได้ในคราวเดียว

ในมุมมอง ตัวเรียงลำดับสไลด์คุณอาจเห็นภาพขนาดย่อที่ใหญ่ขึ้นของสไลด์ หากคุณมีสไลด์จำนวนมากในงานนำเสนอ ให้คลิกตัวเลือก ซูมออกที่แสดงด้วยไอคอน –ที่แถบเครื่องมือด้านล่างเพื่อดูภาพรวมของสไลด์ทั้งหมดได้ดีขึ้น คลิกต่อไปจนกว่าคุณจะเห็นสไลด์ทั้งหมดในงานนำเสนอบนหน้าจอพร้อมกัน

ตอนนี้ คุณสามารถสับเปลี่ยนสไลด์ได้อย่างง่ายดายโดยคลิกที่สไลด์แล้วลากไปยังตำแหน่งแบบสุ่มบนหน้าจอ ทำซ้ำขั้นตอนนี้กับสไลด์อื่นเพื่อสุ่มแบบสุ่ม จัดเรียงสไลด์ต่อไปจนกว่าคุณจะพอใจกับลำดับใหม่

โปรดทราบว่าวิธีการนี้ไม่รับประกันการสั่งซื้อแบบสุ่มโดยสมบูรณ์ เนื่องจากขึ้นอยู่กับการจัดการด้วยตนเองของคุณ หากคุณต้องการให้สไลด์แบบสุ่มปรากฏขึ้นหลังจากที่คุณกดปุ่มเพื่อแสดงสไลด์ถัดไป คุณสามารถใช้วิธีมาโคร VBA เพื่อการสับแบบสุ่มอัตโนมัติที่แม่นยำยิ่งขึ้น.

วิธีสุ่มสไลด์ PowerPoint โดยใช้โค้ด VBA

เพื่อให้แน่ใจว่าสไลด์ PowerPoint ของคุณเล่นตามลำดับแบบสุ่ม คุณจะต้องใช้การเขียนโค้ดเล็กน้อย ตัวเลือกมาโครใน Microsoft Office PowerPoint ช่วยให้คุณสามารถเรียกใช้โค้ด VBA เพื่อสับเปลี่ยนสไลด์ในงานนำเสนอของคุณโดยอัตโนมัติ

ในบทช่วยสอนนี้ เราจะแสดงวิธีสับเปลี่ยนสไลด์ของคุณโดยไม่ซ้ำกัน เมื่อต้องการสุ่มสไลด์ใน PowerPoint เพื่อให้สไลด์เดียวกันไม่เกิดซ้ำ ให้ทำตามขั้นตอนด้านล่าง

ในการเริ่มต้น คุณจะต้องเข้าถึงแท็บ นักพัฒนาซอฟต์แวร์บนเมนู PowerPoint Ribbon โดยทำตามเส้นทาง ไฟล์>ตัวเลือกหรือคลิกขวาในพื้นที่ว่างในเมนู Ribbon แล้วเลือก ปรับแต่ง Ribbonนี่จะเป็นการเปิดกล่องโต้ตอบ

ในกล่องโต้ตอบ ตัวเลือก PowerPointให้เลื่อนลงไปจนพบตัวเลือก นักพัฒนาทำเครื่องหมายที่ช่องถัดจาก นักพัฒนาซอฟต์แวร์แล้วคลิก ตกลง

ตอนนี้เลือกแท็บ นักพัฒนาและเลือก มาโครในหน้าต่างป๊อปอัป คุณสามารถแทรกมาโครใหม่ได้ เลือกชื่อ (เช่น Shuffleslides) แล้วคลิก สร้างเพื่อดำเนินการต่อ

ซึ่งจะเปิดหน้าต่าง Visual Basic Editorซึ่งคุณสามารถป้อนโค้ดเพื่อสุ่มสไลด์การนำเสนอ PowerPoint ของคุณ

คัดลอกโค้ด VBA ต่อไปนี้และวางลงในหน้าต่าง Visual Basic ที่เปิดอยู่

สับเปลี่ยนสไลด์ย่อย()

FirstSlide = 2

LastSlide = 5

สุ่ม

'สร้างหมายเลขแบบสุ่มระหว่างสไลด์แรกและสไลด์สุดท้าย'

GRN:

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

ถ้า RSN = ActivePresentation.SlideShowWindow.View.Slide.SlideIndex จากนั้นไปที่ GRN

ActivePresentation.SlideShowWindow.View.GotoSlide (RSN)

จบย่อย

หลังจากวางโค้ด คุณจะสังเกตเห็นว่าการตั้งค่าเริ่มต้นจะสับเปลี่ยนสไลด์ 2 ถึง 5 อย่างไรก็ตาม งานนำเสนอของคุณอาจมีสไลด์ไม่ครบ 5 สไลด์ แต่ก็ไม่ใช่ปัญหา คุณสามารถปรับแต่งโค้ดส่วนนี้ให้เหมาะกับความต้องการของคุณได้อย่างง่ายดาย

ในตัวแก้ไข VBA ให้ปรับหมายเลขสไลด์ต่อจาก “FirstSlide” และ “LastSlide” เพื่อระบุช่วงของสไลด์ที่คุณต้องการรวมในการสุ่ม ตามค่าเริ่มต้น การสับเปลี่ยนจะเริ่มต้นจากสไลด์ 2 เพื่อหลีกเลี่ยงการรวมสไลด์ชื่อเรื่อง หากคุณต้องการแยกสไลด์ชื่อเรื่องจากการสับเปลี่ยน ให้คง "FirstSlide = 2" ไว้เหมือนเดิม.

ตัวอย่างเช่น สมมติว่าคุณมีงานนำเสนอที่มี 10 สไลด์ และต้องการข้ามการสับเปลี่ยนสไลด์ชื่อเรื่อง ในกรณีดังกล่าว ให้ตั้งค่า “FirstSlide = 2” และ “LastSlide = 10” วิธีนี้จะรวมเฉพาะสไลด์ 2 ถึง 10 ในกระบวนการสับเปลี่ยน และสไลด์ชื่อเรื่องของคุณจะไม่ได้รับผลกระทบ

เมื่อคุณกรอกและปรับแต่งโค้ดสำหรับการนำเสนอของคุณเสร็จแล้ว ก็ถึงเวลา เพิ่มปุ่มการกระทำ ไปที่สไลด์ ในการทำเช่นนั้น ให้แทรกรูปร่างใดก็ได้บนสไลด์แรก (หรือสไลด์ใดก็ได้ที่คุณต้องการ) จากนั้นเลือกรูปร่างและไปที่ แทรก>การกระทำ>เรียกใช้มาโคร. จากนั้นเลือกมาโครที่คุณเพิ่งสร้างขึ้น การดำเนินการนี้จะเปิดใช้งานการสับเปลี่ยนสไลด์ของคุณในระหว่างโหมดการนำเสนอสไลด์ ซึ่งมอบประสบการณ์ที่น่าดึงดูดสำหรับผู้ชมของคุณ

บันทึกไฟล์ PowerPoint ของคุณ ในรูปแบบ PPTM (การนำเสนอที่เปิดใช้งานมาโคร) เพื่อเก็บมาโครที่คุณสร้างไว้ เลือก ไฟล์>บันทึกเป็นและเลือก PPTM จากรายการแบบเลื่อนลงเพื่อให้แน่ใจว่ามาโครที่คุณสร้างจะถูกรักษาไว้และไม่สูญหาย

ตอนนี้เข้าสู่โหมดการนำเสนอแล้วคลิกปุ่มบนสไลด์แรกเพื่อสุ่มสไลด์ของคุณ เพลิดเพลินกับการนำเสนอแบบไดนามิกและไม่ซ้ำกัน

วิธีการสับเปลี่ยนเฉพาะสไลด์คู่หรือคี่

ในกรณีที่คุณต้องการสับเปลี่ยนเฉพาะสไลด์ที่ระบุในงานนำเสนอของคุณ เช่น สไลด์คู่หรือคี่ คุณสามารถใช้โค้ด VBA ต่อไปนี้เพื่อสุ่มเฉพาะสไลด์เลขคู่หรือเลขคี่ โดยไม่รบกวนส่วนที่เหลือ

ในการทำเช่นนั้น ให้ทำตามขั้นตอนจากด้านบนจนกว่าคุณจะไปที่หน้าต่าง Visual Basic Editor และใส่โค้ดต่อไปนี้

สับเปลี่ยนสไลด์ย่อย()

EvenShuffle = True (แทนที่ด้วย false หากสับเปลี่ยนเฉพาะสไลด์เลขคี่)

FirstSlide = 2 (ควรเป็นเลขคู่/คี่ตามความต้องการ)

LastSlide = 8

สุ่ม

สำหรับ i = FirstSlide ถึง LastSlide ขั้นตอนที่ 2

สร้าง: "สร้างหมายเลขแบบสุ่มระหว่างสไลด์แรกและสไลด์สุดท้าย"

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

ถ้า EvenShuffle = True จากนั้น

ถ้า RSN Mod 2 = 1 จากนั้น GoTo สร้าง

อื่นๆ

ถ้า RSN Mod 2 = 0 จากนั้น GoTo สร้าง

สิ้นสุดถ้า

ActivePresentation.Slides(i).MoveTo (RSN)

ถ้าฉัน

ถ้าฉัน >RSN แล้ว ActivePresentation.Slides(RSN + 1).MoveTo (i)

ฉันถัดไป

สิ้นสุดย่อย

วิธีสับเปลี่ยนสไลด์ของคุณแบบวนซ้ำไม่สิ้นสุด

บทช่วยสอนข้างต้นสาธิตวิธีการสุ่มสไลด์ PowerPoint และเล่นตามลำดับแบบสุ่มโดยไม่ต้องทำซ้ำ อย่างไรก็ตาม หลังจากการวนซ้ำหนึ่งรอบ ลำดับการสับแบบเดิมจะยังคงอยู่ เว้นแต่คุณจะสับเปลี่ยนสไลด์อีกครั้ง

หากต้องการดูสไลด์ทั้งหมดโดยอัตโนมัติในวงวนไม่มีที่สิ้นสุดระหว่างโหมดสไลด์โชว์พร้อมลำดับแบบสุ่มใหม่สำหรับแต่ละวง คุณสามารถใช้โค้ดต่อไปนี้ ตรวจสอบให้แน่ใจว่าได้เปลี่ยนตัวเลขหลัง FirstSlide = และ LastSlide = เพื่อให้พอดีกับจำนวนสไลด์ในงานนำเสนอของคุณ

ตำแหน่งสาธารณะ ช่วง AllSlides() เป็นจำนวนเต็ม

สับเปลี่ยนและเริ่มต้นย่อย()

FirstSlide = 2

LastSlide = 6

พิสัย = (LastSlide – FirstSlide)

กำหนดมิติสไลด์ใหม่ทั้งหมด (0 ถึงช่วง)

สำหรับ i = 0 ถึงช่วง

AllSlides(i) = FirstSlide + i

ฉันถัดไป

สุ่ม

สำหรับ N = 0 ถึงช่วง

J = Int((ช่วง + 1) * Rnd)

อุณหภูมิ = AllSlides(N)

AllSlides(N) = AllSlides(J)

AllSlides(J) = อุณหภูมิ

N ถัดไป

ตำแหน่ง = 0

ActivePresentation.SlideShowWindow.View.GotoSlide AllSlides(ตำแหน่ง)

สิ้นสุดย่อย

ย่อยล่วงหน้า()

ตำแหน่ง = ตำแหน่ง + 1

หากตำแหน่ง >ช่วงแล้ว

สุ่มและเริ่ม

อื่นๆ

ActivePresentation.SlideShowWindow.View.GotoSlide AllSlides(ตำแหน่ง)

สิ้นสุดถ้า

จบย่อย