पावरपॉइंट स्लाइड्स को शफल करें: रैंडम प्रेजेंटेशन के लिए मैनुअल और VBA गाइड

कभी-कभी, आप अपनी पावरपॉइंट प्रेजेंटेशन में स्लाइड्स को रैंडमली शफल करके सरप्राइज का तत्व जोड़ना चाह सकते हैं। उदाहरण के लिए, शायद आप अपने छात्रों के लिए एक प्रेजेंटेशन बनाते हैं और कुछ या सभी फ्लैशकार्ड को शफल करना चाहते हैं।

डिफ़ॉल्ट रूप से, पावरपॉइंट में इसके लिए कोई बिल्ट-इन फीचर नहीं है, लेकिन आप मैक्रो का उपयोग करके इसे प्राप्त कर सकते हैं। इस चरण-दर-चरण गाइड में, हम आपको दिखाएंगे कि स्लाइड्स को मैन्युअली कैसे शफल करें और रैंडम शफलिंग प्रक्रिया को स्वचालित करने के लिए VBA कोड का उपयोग कैसे करें।

पावरपॉइंट में मैन्युअली स्लाइड्स कैसे शफल करें

माइक्रोसॉफ्ट पावरपॉइंट में, आप अपनी प्रेजेंटेशन में स्लाइड्स को "Slide Sorter" व्यू का उपयोग करके मैन्युअली शफल कर सकते हैं ताकि उन्हें रैंडम क्रम में प्रदर्शित किया जा सके। हालांकि यह विधि मैक्रो का उपयोग करने जितनी रैंडम नहीं हो सकती, फिर भी यह आपको स्लाइड्स को एक अलग क्रम में पुनर्व्यवस्थित करने की अनुमति देती है।

पावरपॉइंट प्रेजेंटेशन में मैन्युअली स्लाइड्स को शफल और रैंडमाइज़ करने के लिए, नीचे दिए गए चरणों का पालन करें।

1. अपनी पावरपॉइंट प्रेजेंटेशन खोलें और स्क्रीन के शीर्ष पर रिबन मेनू में View टैब पर जाएं। View मेनू एक्सेस करने के लिए इस पर क्लिक करें।

2. View मेनू में, Presentation Views ग्रुप देखें, और Slide Sorter विकल्प चुनें। यह आपकी प्रेजेंटेशन को Slide Sorter व्यू पर स्विच कर देगा, जहां आप एक साथ सभी स्लाइड थंबनेल देख सकते हैं।

3. Slide Sorter व्यू में, आप स्लाइड्स के बड़े थंबनेल देख सकते हैं। यदि आपकी प्रेजेंटेशन में बहुत सारी स्लाइड्स हैं, तो नीचे टूलबार पर - आइकन द्वारा दर्शाए गए Zoom Out विकल्प पर क्लिक करके सभी स्लाइड्स का बेहतर अवलोकन प्राप्त करें। तब तक इस पर क्लिक करते रहें जब तक आप एक साथ स्क्रीन पर प्रेजेंटेशन की सभी स्लाइड्स न देख सकें।
4. अब, आप एक स्लाइड पर क्लिक करके और इसे स्क्रीन पर रैंडम स्थिति में खींचकर आसानी से स्लाइड्स को शफल कर सकते हैं। अन्य स्लाइड्स के साथ इस चरण को दोहराकर उन्हें रैंडमली शफल करें। स्लाइड्स को तब तक पुनर्व्यवस्थित करते रहें जब तक आप नए क्रम से संतुष्ट न हों।

ध्यान रखें कि यह विधि पूरी तरह से रैंडम क्रम की गारंटी नहीं देती, क्योंकि यह आपके मैन्युअल व्यवस्था पर निर्भर करती है। यदि आप अगली स्लाइड दिखाने के लिए बटन दबाने के बाद पूरी तरह से रैंडम स्लाइड देखना चाहते हैं, तो आप अधिक सटीक और स्वचालित रैंडम शफलिंग के लिए VBA मैक्रोज़ विधि का उपयोग कर सकते हैं।

VBA कोड का उपयोग करके पावरपॉइंट स्लाइड्स को रैंडमाइज़ कैसे करें

यह सुनिश्चित करने के लिए कि आपकी पावरपॉइंट स्लाइड्स पूरी तरह से रैंडम क्रम में चल रही हैं, आपको थोड़ी कोडिंग का उपयोग करना होगा। माइक्रोसॉफ्ट ऑफिस पावरपॉइंट में Macros विकल्प आपको अपनी प्रेजेंटेशन में स्लाइड्स को स्वचालित रूप से शफल करने के लिए VBA कोड चलाने की अनुमति देता है।

इस ट्यूटोरियल में, हम आपको दिखाएंगे कि डुप्लिकेट के बिना अपनी स्लाइड्स को कैसे शफल करें। पावरपॉइंट में स्लाइड्स को रैंडमाइज़ करने के लिए ताकि वही स्लाइड खुद को दोहराए नहीं, नीचे दिए गए चरणों का पालन करें।

1. शुरू करने के लिए, आपको अपने पावरपॉइंट रिबन मेनू पर Developer टैब एक्सेस करना होगा। ऐसा करने के लिए, File > Options पथ का पालन करें या रिबन मेनू में किसी भी खाली जगह पर राइट-क्लिक करें और Customize the Ribbon चुनें। यह एक डायलॉग बॉक्स खोलेगा।

2. PowerPoint Options डायलॉग बॉक्स में, तब तक नीचे स्क्रॉल करें जब तक आपको Developer विकल्प न मिल जाए। Developer के बगल में बॉक्स चेक करें और OK पर क्लिक करें।

3. अब Developer टैब चुनें और Macros चुनें। पॉप-अप विंडो में, आप एक नया मैक्रो डाल सकते हैं। इसके लिए एक नाम चुनें (उदाहरण के लिए, Shuffleslides) और जारी रखने के लिए Create पर क्लिक करें।

4. यह Visual Basic Editor विंडो खोलेगा, जहां आप अपने पावरपॉइंट प्रेजेंटेशन स्लाइड्स को रैंडमाइज़ करने के लिए कोड डाल सकते हैं।

5. निम्न 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

6. कोड पेस्ट करने के बाद, आप देखेंगे कि डिफ़ॉल्ट सेटिंग स्लाइड 2 से 5 तक शफल करती है। हालांकि, आपकी प्रेजेंटेशन में ठीक पांच स्लाइड्स नहीं हो सकती हैं, लेकिन यह कोई समस्या नहीं है। आप कोड के इस हिस्से को आसानी से अपनी आवश्यकताओं के अनुरूप कस्टमाइज़ कर सकते हैं।

VBA एडिटर में, "FirstSlide" और "LastSlide" के बाद स्लाइड नंबर एडजस्ट करें ताकि उन स्लाइड्स की रेंज निर्दिष्ट की जा सके जिन्हें आप शफल में शामिल करना चाहते हैं। डिफ़ॉल्ट रूप से, शफलिंग स्लाइड 2 से शुरू होती है ताकि टाइटल स्लाइड शामिल न हो। यदि आप टाइटल स्लाइड्स को शफलिंग से बाहर रखना चाहते हैं, तो "FirstSlide = 2" को वैसे ही रखें।

उदाहरण के लिए, मान लें कि आपके पास दस स्लाइड्स वाली प्रेजेंटेशन है, और आप टाइटल स्लाइड को शफलिंग से छोड़ना चाहते हैं। उस स्थिति में, "FirstSlide = 2" और "LastSlide = 10" सेट करें। इस तरह केवल स्लाइड 2 से 10 शफलिंग प्रक्रिया में शामिल होंगी, और आपकी टाइटल स्लाइड अप्रभावित रहेगी।

7. अब जब आपने अपनी प्रेजेंटेशन के लिए कोड पूरा और कस्टमाइज़ कर लिया है, तो स्लाइड्स पर एक्शन बटन जोड़ने का समय है। ऐसा करने के लिए, पहली स्लाइड पर (या आपकी पसंद की किसी भी स्लाइड पर) कोई भी आकृति डालें, फिर आकृति चुनें और Insert > Action > Run Macro पर जाएं। फिर आपके द्वारा अभी बनाए गए मैक्रो को चुनें। यह स्लाइड शो मोड के दौरान आपकी स्लाइड्स की शफलिंग को सक्रिय करेगा, जिससे आपके दर्शकों के लिए एक आकर्षक अनुभव प्रदान होगा।

8. अपनी पावरपॉइंट फाइल को PPTM फॉर्मेट (मैक्रो-इनेबल्ड प्रेजेंटेशन) में सेव करें ताकि आपके द्वारा बनाए गए मैक्रोज़ बने रहें। File > Save As चुनें और ड्रॉप-डाउन सूची से PPTM चुनें ताकि यह सुनिश्चित हो सके कि आपके द्वारा बनाए गए मैक्रोज़ संरक्षित रहेंगे और खोएंगे नहीं।

अब प्रेजेंटेशन मोड में प्रवेश करें और पहली स्लाइड पर बटन पर क्लिक करके अपनी स्लाइड्स को रैंडमली शफल करें। अपने डायनामिक और नॉन-रिपीटिंग प्रेजेंटेशन का आनंद लें।

केवल सम या विषम स्लाइड्स को कैसे शफल करें

यदि आप अपनी प्रेजेंटेशन में केवल विशिष्ट स्लाइड्स को शफल करना चाहते हैं, जैसे सम या विषम स्लाइड्स, तो आप निम्न VBA कोड का उपयोग करके केवल सम-संख्या या विषम-संख्या वाली स्लाइड्स को रैंडमाइज़ कर सकते हैं बाकी को डिस्टर्ब किए बिना।

ऐसा करने के लिए, ऊपर दिए गए चरणों का पालन करें जब तक आप Visual Basic Editor विंडो पर न पहुंच जाएं और निम्न कोड डालें।

Sub Shuffleslides()
EvenShuffle = True (replace with false if only odd-numbered slides are shuffled)
FirstSlide = 2 (should be an even/odd number based on needs)
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

अपनी स्लाइड्स को नेवर-एंडिंग लूप में कैसे शफल करें

ऊपर दिया गया ट्यूटोरियल दर्शाता है कि पावरपॉइंट स्लाइड्स को कैसे शफल करें और उन्हें बिना दोहराव के रैंडम क्रम में चलाएं। हालांकि, एक लूप के बाद, वही शफल किया गया क्रम बना रहता है जब तक कि आप स्लाइड्स को फिर से शफल न करें।

स्लाइड-शो मोड के दौरान सभी स्लाइड्स को एंडलेस लूप में स्वचालित रूप से पार करने के लिए प्रत्येक लूप के लिए एक नए रैंडम क्रम के साथ, आप निम्न कोड का उपयोग कर सकते हैं। 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

अपनी प्रेजेंटेशन शुरू करने का समय

अब आप जानते हैं कि पावरपॉइंट स्लाइड्स को प्रो की तरह कैसे शफल करें। इन विधियों के साथ प्रयोग करें और शिक्षकों, व्यवसाय पेशेवरों, या किसी भी परिदृश्य के लिए आकर्षक प्रेजेंटेशन बनाएं जिनमें रैंडम स्लाइड क्रम की आवश्यकता होती है। अपने डायनामिक और मनोरम स्लाइडशो के साथ मज़े करें।