Đôi khi bạn muốn thêm yếu tố bất ngờ vào trình bày PowerPoint bằng cách xáo trộn slide ngẫu nhiên. Ví dụ, bạn tạo bài giảng cho học sinh và muốn xáo trộn một số hoặc tất cả flashcard.
Mặc định PowerPoint không có tính năng tích hợp cho việc này, nhưng bạn có thể đạt được bằng macro. Trong hướng dẫn từng bước này, chúng tôi sẽ chỉ cách xáo trộn slide thủ công và dùng code VBA để tự động hóa quá trình xáo trộn ngẫu nhiên.
Cách Xáo Trộn Slide Thủ Công Trong PowerPoint
Trong Microsoft PowerPoint, bạn có thể xáo trộn slide thủ công để hiển thị theo thứ tự ngẫu nhiên dùng chế độ "Slide Sorter" (Sắp xếp slide). Cách này có thể không ngẫu nhiên bằng macro, nhưng vẫn cho phép sắp xếp lại slide theo thứ tự khác.
Để xáo trộn và ngẫu nhiên hóa slide thủ công, làm theo các bước:
- Mở bài trình bày PowerPoint, đi đến tab View trên Ribbon menu trên màn hình. Nhấp vào để truy cập menu View.
- Trong menu View, tìm nhóm "Presentation Views", chọn "Slide Sorter". Sẽ chuyển trình bày sang chế độ Slide Sorter, thấy tất cả thumbnail slide cùng lúc.
- Trong chế độ Slide Sorter, bạn thấy thumbnail slide lớn hơn. Nếu có nhiều slide, nhấp tùy chọn "Zoom Out" (biểu tượng –) ở thanh công cụ dưới để xem tổng quan tốt hơn. Tiếp tục nhấp cho đến khi thấy tất cả slide trên màn hình cùng lúc.
- Bây giờ bạn dễ dàng xáo trộn slide bằng cách nhấp vào slide và kéo thả đến vị trí ngẫu nhiên. Lặp lại với các slide khác để xáo trộn ngẫu nhiên. Tiếp tục sắp xếp cho đến khi hài lòng với thứ tự mới.
Lưu ý: Cách này không đảm bảo thứ tự hoàn toàn ngẫu nhiên, vì phụ thuộc vào sắp xếp thủ công. Nếu muốn slide hoàn toàn ngẫu nhiên xuất hiện sau khi nhấn nút chuyển slide tiếp theo, dùng phương pháp VBA macro để xáo trộn tự động chính xác hơn.
Cách Ngẫu Nhiên Hóa Slide PowerPoint Dùng Code VBA
Để đảm bảo slide PowerPoint phát theo thứ tự hoàn toàn ngẫu nhiên, bạn cần chút lập trình. Tùy chọn Macros trong Microsoft Office PowerPoint cho phép chạy code VBA tự động xáo trộn slide.
Trong hướng dẫn này, chúng tôi chỉ cách xáo trộn slide không trùng lặp. Để ngẫu nhiên hóa slide PowerPoint sao cho slide không lặp lại, làm theo các bước:
- Để bắt đầu, cần truy cập tab Developer trên Ribbon menu PowerPoint. Làm theo đường dẫn File > Options hoặc chuột phải vào khoảng trống trên Ribbon chọn "Customize the Ribbon". Sẽ mở hộp thoại.
- Trong hộp thoại PowerPoint Options, cuộn xuống tìm tùy chọn "Developer". Tích vào ô bên cạnh Developer và nhấp OK.
- Chọn tab Developer và chọn "Macros". Trong cửa sổ bật lên, chèn Macro mới. Đặt tên (ví dụ: Shuffleslides) và nhấp Create để tiếp tục.
- Sẽ mở cửa sổ Visual Basic Editor, nơi nhập code ngẫu nhiên hóa slide trình bày.
- Copy code VBA sau và dán vào cửa sổ Visual Basic đang mở.
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
- Sau khi dán code, bạn thấy cài đặt mặc định xáo trộn slide 2 đến 5. Tuy nhiên, bài trình bày có thể không đúng 5 slide, nhưng không sao. Bạn dễ dàng tùy chỉnh phần này cho phù hợp.
Trong VBA Editor, điều chỉnh số slide theo "FirstSlide" và "LastSlide" để chỉ định phạm vi slide muốn xáo trộn. Mặc định xáo trộn từ slide 2 để tránh slide tiêu đề. Nếu muốn loại slide tiêu đề khỏi xáo trộn, giữ "FirstSlide = 2".
Ví dụ: bài trình bày 10 slide, muốn bỏ qua slide tiêu đề. Đặt "FirstSlide = 2" và "LastSlide = 10". Chỉ slide 2-10 được xáo trộn, slide tiêu đề không bị ảnh hưởng.
- Hoàn tất và tùy chỉnh code, thêm nút hành động (action button) vào slide. Chèn hình dạng bất kỳ trên slide đầu tiên (hoặc slide bất kỳ), chọn hình, đi đến Insert > Action > Run Macro. Chọn Macro vừa tạo. Sẽ kích hoạt xáo trộn slide trong chế độ Slide Show, tạo trải nghiệm hấp dẫn.
- Lưu file PowerPoint dạng PPTM (Macro-enabled presentation) để giữ Macro. Chọn File > Save As chọn PPTM từ menu thả xuống đảm bảo macro không bị mất.
Bây giờ vào chế độ Trình bày và nhấp nút trên slide đầu để xáo trộn slide ngẫu nhiên. Thưởng thức bài trình bày động và không lặp lại.
Cách Chỉ Xáo Trộn Slide Chẵn Hoặc Lẻ
Nếu muốn xáo trộn chỉ slide cụ thể, như slide chẵn hoặc lẻ, dùng code VBA sau để chỉ ngẫu nhiên hóa slide chẵn/lẻ mà không làm phiền các slide còn lại.
Làm theo các bước trên đến cửa sổ Visual Basic Editor và chèn code sau.
Sub Shuffleslides() EvenShuffle = True (thay false nếu chỉ xáo trộn slide lẻ) FirstSlide = 2 (nên là số chẵn/lẻ theo nhu cầu) 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
Cách Xáo Trộn Slide Trong Vòng Lặp Vô Hạn
Hướng dẫn trên trình bày cách xáo trộn slide PowerPoint và phát theo thứ tự ngẫu nhiên không lặp lại. Tuy nhiên, sau một vòng lặp, thứ tự xáo trộn được giữ nguyên trừ khi xáo trộn lại.
Để tự động duyệt qua tất cả slide trong vòng lặp vô hạn trong chế độ trình chiếu với thứ tự ngẫu nhiên mới cho mỗi vòng, dùng code sau. Đảm bảo đổi số sau FirstSlide = và LastSlide = cho phù hợp số slide bài trình bày.
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
Đến Lúc Bắt Đầu Trình Bày
Bây giờ bạn biết cách xáo trộn slide PowerPoint như chuyên gia. Thử nghiệm các phương pháp và tạo bài trình bày hấp dẫn cho giáo viên, chuyên gia kinh doanh, hoặc bất kỳ kịch bản nào yêu cầu thứ tự slide ngẫu nhiên. Hưởng thụ những slideshow động và thu hút.