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

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

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

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

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

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

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

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

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

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

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

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

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

1. เพื่อเริ่มต้น คุณจะต้องเข้าถึงแท็บ Developer บนเมนูริบบอน PowerPoint ของคุณ ทำได้โดยทำตามเส้นทาง File > Options หรือคลิกขวาที่พื้นที่ว่างในเมนูริบบอนและเลือก Customize the Ribbon จะเปิดกล่องโต้ตอบ

1. ในกล่องโต้ตอบ PowerPoint Options ให้เลื่อนลงจนกว่าจะพบตัวเลือก Developer ติ๊กถูกกล่องข้าง Developer และคลิก OK

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

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

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

Sub Shuffleslides()
FirstSlide = 2
LastSlide = 5
Randomize
'generate a random no between first slide and last slide'
GRN:
RSN = Int((LastSlide – FirstSlide + 1) * Rnd + FirstSlide)
If RSN = ActivePresentation.SlideShowWindow.View.Slide.SlideIndex Then GoTo GRN
ActivePresentation.SlideShowWindow.View.GotoSlide (RSN)
End Sub

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

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

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

1. ตอนนี้คุณเสร็จสิ้นและปรับแต่งโค้ดสำหรับการนำเสนอของคุณแล้ว ถึงเวลาเพิ่มปุ่มการทำงาน (Action Buttons) ไปที่สไลด์ เพื่อทำเช่นนี้ ให้แทรกรูปร่างใดๆ บนสไลด์แรก (หรือสไลด์ที่คุณชอบ) จากนั้นเลือก الرูปร่างและไปที่ Insert > Action > Run Macro แล้วเลือกแมโครที่คุณเพิ่งสร้าง จะเปิดใช้งานการสลับสไลด์ระหว่างโหมด Slide Show ให้ประสบการณ์ที่น่าสนใจสำหรับผู้ชม

1. บันทึกไฟล์ PowerPoint ในรูปแบบ PPTM (Macro-enabled presentation) เพื่อเก็บแมโครที่คุณสร้างไว้ เลือก File > Save As และเลือก PPTM จากรายการแบบเลื่อนลง เพื่อให้แน่ใจว่าแมโครที่คุณสร้างจะถูกเก็บรักษาและไม่สูญหาย

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

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

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

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

Sub Shuffleslides()
EvenShuffle = True (แทนที่ด้วย false หากสลับเฉพาะสไลด์เลขคี่)
FirstSlide = 2 (ควรเป็นเลขคู่/คี่ตามต้องการ)
LastSlide = 8
Randomize
For i = FirstSlide To LastSlide Step 2
Generate: 'generate a random no between first slide and last slide'
RSN = Int((LastSlide – FirstSlide + 1) * Rnd) + FirstSlide
If EvenShuffle = True Then
If RSN Mod 2 = 1 Then GoTo generate
Else
If RSN Mod 2 = 0 Then GoTo generate
End If
ActivePresentation.Slides(i).MoveTo (RSN)
If i < RSN Then ActivePresentation.Slides(RSN – 1).MoveTo (i)
If i > RSN Then ActivePresentation.Slides(RSN + 1).MoveTo (i)
Next i
End Sub

วิธีสลับสไลด์ในลูปไม่มีที่สิ้นสุด

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

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

Public Position, Range, AllSlides() As Integer
Sub ShuffleAndBegin()
FirstSlide = 2
LastSlide = 6
Range = (LastSlide – FirstSlide)
ReDim AllSlides(0 To Range)
For i = 0 To Range
AllSlides(i) = FirstSlide + i
Next i
Randomize
For N = 0 To Range
J = Int((Range + 1) * Rnd)
temp = AllSlides(N)
AllSlides(N) = AllSlides(J)
AllSlides(J) = temp
Next N
Position = 0
ActivePresentation.SlideShowWindow.View.GotoSlide AllSlides(Position)
End Sub
Sub Advance()
Position = Position + 1
If Position > Range Then
ShuffleAndBegin
Else
ActivePresentation.SlideShowWindow.View.GotoSlide AllSlides(Position)
End If
End Sub

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

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