สุ่มสไลด์ PowerPoint:คู่มือ &คู่มือ VBA สำหรับการนำเสนอแบบสุ่ม

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

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

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

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

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

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

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

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

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

วิธีการสุ่มสไลด์ PowerPoint โดยใช้รหัส VBA

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

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

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

1. ในกล่องโต้ตอบตัวเลือกของ PowerPoint ให้เลื่อนลงจนกว่าคุณจะพบตัวเลือกนักพัฒนา ทำเครื่องหมายที่ช่องถัดจากผู้พัฒนาแล้วคลิกตกลง

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

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

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

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

สไลด์แรก =2

LastSlide =5

สุ่ม

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

GRN:

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

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

ActivePresentation.SlideShowWindow.View.GotoSlide (RSN)

สิ้นสุดย่อย

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

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

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

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

1. บันทึกไฟล์ 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() เป็นจำนวนเต็ม

ย่อย ShuffleAndBegin()

สไลด์แรก =2

LastSlide =6

ช่วง =(LastSlide – FirstSlide)

ปรับ Dim AllSlides ใหม่ (0 ถึงช่วง)

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

AllSlides(i) =FirstSlide + i

ถัดไป

สุ่ม

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

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

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

AllSlides(N) =AllSlides(J)

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

ยังไม่มี

ตำแหน่ง =0

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

สิ้นสุดย่อย

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

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

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

สุ่มและเริ่มต้น

อย่างอื่น

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

สิ้นสุดถ้า

สิ้นสุดย่อย

ถึงเวลาเริ่มการนำเสนอของคุณ

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