यह VBA (एप्लीकेशन के लिए विजुअल बेसिक) मैक्रो का उपयोग करके PowerPoint को स्वचालित करने के लिए एक संपूर्ण मार्गदर्शिका है। नीचे आपको कई उपयोगी उदाहरण मिलेंगे।
वीबीए पीडीएफ (मुफ्त डाउनलोड)
हमारा मुफ्त माइक्रोसॉफ्ट पावरपॉइंट वीबीए ट्यूटोरियल डाउनलोड करें! या अन्य कार्यालय कार्यक्रमों के लिए वीबीए ट्यूटोरियल!
डाउनलोड
पावरपॉइंट वीबीए (मैक्रोज़) ट्यूटोरियल
मैक्रो-सक्षम प्रस्तुति के रूप में सहेजें
VBA कोड वाला प्रेजेंटेशन 'सेव्ड ऐज़' पावरपॉइंट मैक्रो-इनेबल्ड प्रेजेंटेशन (*.pptm) होना चाहिए।
रिबन में 'डेवलपर' टैब सक्षम करें
वीबीए कोड बनाने से पहले आपको रिबन पर डेवलपर टैब को सक्षम करना चाहिए। ऐसा करने के लिए फ़ाइल चुनें -> विकल्प फिर 'कस्टमाइज़ रिबन' पर क्लिक करें और दाएँ फलक में 'डेवलपर' टैब के बगल में स्थित बॉक्स को चेक करें।
पावरपॉइंट मैक्रो बनाएं
यह PowerPoint VBA मैक्रो का एक सरल उदाहरण है:
| 1234567891011 | उप SavePresentationAsPDF ()मंद पीपीटीनाम स्ट्रिंग के रूप मेंमंद PDFName स्ट्रिंग के रूप मेंPowerPoint को PDF के रूप में सहेजेंpptName = ActivePresentation.FullName' PowerPoint फ़ाइल एक्सटेंशन को नाम से PDF में बदलेंPDFName = बायाँ (pptName, InStr (pptName, "।")) और "pdf"ActivePresentation.ExportAsFixedFormat PDFName, 2 ' ppFixedFormatTypePDF = 2अंत उप |
यह सक्रिय प्रस्तुतिकरण को PDF के रूप में सहेजता है। कोड की प्रत्येक पंक्ति निम्नलिखित करती है:
- PowerPoint नाम और PDF नाम के लिए चर बनाता है
- सक्रिय प्रस्तुति नाम को pptName चर में निर्दिष्ट करता है
- पूरा पीडीएफ नाम बनाता है
- प्रस्तुति को PDF के रूप में सहेजता है
पावरपॉइंट एप्लिकेशन
जब वीबीए कोड पावरपॉइंट प्रेजेंटेशन के भीतर चल रहा होता है, तो पावरपॉइंट एप्लिकेशन डिफ़ॉल्ट एप्लिकेशन होता है और इसे स्पष्ट रूप से संदर्भ के बिना हेरफेर किया जा सकता है। एक नई प्रस्तुति बनाएं
एक प्रस्तुति बनाने के लिए, PowerPoint अनुप्रयोग की जोड़ें विधि का उपयोग करें।
| 123 | आवेदन। प्रस्तुतियाँ। जोड़ें' या स्पष्ट संदर्भ के बिनाप्रस्तुतियाँ। जोड़ें |
एक नई प्रस्तुति खोलें
एक नया और रिक्त प्रेजेंटेशन खोलने के लिए एप्लिकेशन की ऐड मेथड का उपयोग करें। प्रेजेंटेशन कलेक्शन
| 1 | प्रस्तुतियाँ। जोड़ें |
एक मौजूदा प्रस्तुति खोलें
एक प्रेजेंटेशन खोलने के लिए जिसे आपने पहले ही बना लिया है, एप्लिकेशन की ओपन मेथड का उपयोग करें। प्रेजेंटेशन कलेक्शन
| 1 | प्रस्तुतियाँ। खोलें ("मेरी प्रस्तुति। पीपीटीएक्स") |
उपरोक्त कोड मानता है कि प्रस्तुति उसी निर्देशिका में है जिसमें कोड युक्त PowerPoint प्रस्तुति है।
एक वैरिएबल को खोलें और असाइन करें
आपको अपने द्वारा खोले गए प्रेजेंटेशन को एक वैरिएबल पर असाइन करना चाहिए ताकि आप अपनी आवश्यकताओं के अनुसार उसमें हेरफेर कर सकें।
| 12 | मंद पीपीटी प्रस्तुति के रूप मेंपीपीटी सेट करें = प्रस्तुतियाँ। खोलें ("मेरी प्रस्तुति। पीपीटीएक्स") |
सक्रिय प्रस्तुति का संदर्भ लें
जब वीबीए कोड निष्पादित किया जाता है तो जीयूआई में सक्रिय प्रस्तुतिकरण में हेरफेर करने के लिए संदर्भ ActivePrerentation का उपयोग करें।
| 12 | ' ActivePresentation का नाम तत्काल विंडो पर प्रिंट करेंडीबग. प्रिंट ActivePresentation.Name |
वर्तमान प्रस्तुति सहेजें
नीचे दिया गया कथन सक्रिय प्रस्तुतिकरण को सहेज लेगा यदि इसे पहले सहेजा गया था। इसे सहेजा नहीं गया है तो आपको 'इस रूप में सहेजें' संवाद के साथ संकेत दिया जाएगा।
| 1 | सक्रिय प्रस्तुति। सहेजें |
वर्तमान प्रस्तुति बंद करें
नीचे दिया गया कथन सक्रिय प्रस्तुतिकरण को बंद कर देगा, भले ही वह अंतिम संपादन के बाद सहेजा न गया हो।
| 1 | सक्रिय प्रस्तुति। बंद करें |
उपयोगी संदर्भ
वैरिएबल को मौजूदा प्रेजेंटेशन (नाम से) असाइन करें
| 12 | मंद myPresentationByName प्रस्तुति के रूप मेंmyPresentationByName = Application.Presentations ("मेरी प्रस्तुति") सेट करें |
वेरिएबल को सक्रिय स्लाइड असाइन करें
| 12 | मंद करेंटस्लाइड के रूप मेंस्लाइडकरंटस्लाइड सेट करें = एप्लीकेशन.एक्टिवविंडो.व्यू.स्लाइड |
इंडेक्स द्वारा वेरिएबल में स्लाइड असाइन करें
| 12 | स्लाइड के रूप में मंद mySlideMySlide = ActivePresentation.Slides(11) सेट करें |
स्लाइड्स की संख्या गिनें
| 12 | मंद स्लाइडगिनती जितनी लंबी होस्लाइडकाउंट = एक्टिव प्रेजेंटेशन। स्लाइड्स।काउंट |
वर्तमान स्लाइड की स्लाइड इंडेक्स संख्या प्राप्त करें
| 12 | मंद करेंटस्लाइडइंडेक्स स्लाइड के रूप मेंcurrentSlideIndex = Application.ActiveWindow.View.Slide.SlideIndex |
स्लाइड शो के अंत में एक खाली स्लाइड जोड़ें
| 1234567 | मंद स्लाइडगिनती जितनी लंबी होनई स्लाइड को स्लाइड के रूप में मंद करेंस्लाइडकाउंट = एक्टिव प्रेजेंटेशन। स्लाइड्स। काउंटन्यूस्लाइड सेट करें = ActivePresentation.Slides.Add(slideCount + 1, 12)' या ppLayoutBlank = 12 . के रूप मेंन्यूस्लाइड सेट करें = ActivePresentation.Slides.Add(slideCount + 1, ppLayoutBlank) |
वर्तमान स्लाइड के बाद स्लाइड जोड़ें
| 12345 | नई स्लाइड को स्लाइड के रूप में मंद करेंमंद वर्तमानस्लाइडइंडेक्स पूर्णांक के रूप मेंcurrentSlideIndex = Application.ActiveWindow.View.Slide.SlideIndexन्यूस्लाइड सेट करें = ActivePresentation.Slides.Add(currentSlideIndex, ppLayoutBlank) |
एक स्लाइड हटाएं
| 1234 | मंद वर्तमानस्लाइडइंडेक्स पूर्णांक के रूप मेंcurrentSlideIndex = Application.ActiveWindow.View.Slide.SlideIndexActivePresentation.Slides(currentSlideIndex).Delete |
किसी खास स्लाइड पर जाएं
| 12 | ' यह आपको स्लाइड नंबर 4 पर ले जाएगाएप्लीकेशन.एक्टिवविंडो.व्यू.गोटोस्लाइड (4) |
स्लाइड ले जाएँ
आप किसी स्लाइड को उसकी पुरानी स्थिति से नई स्थिति में ले जा सकते हैं
| 123456 | 'स्लाइड 3 से पहली स्लाइड पर जाएंमंद पुरानी स्थिति पूर्णांक के रूप में, मंद नई स्थिति पूर्णांक के रूप मेंपुरानी स्थिति = 3नई स्थिति = 1ActivePresentation.Slides(oldPosition).MoveTo toPos:=newPosition |
सभी स्लाइड के माध्यम से लूप
आप प्रत्येक स्लाइड के साथ कुछ कर सकते हैं या कुछ स्लाइडों को खोजने के लिए सभी स्लाइड्स के माध्यम से जा सकते हैं और कोड का उपयोग करने के बारे में कुछ कर सकते हैं;
| 123456 | MySlide को स्लाइड के रूप में मंद करेंActivePresentation.Slides में प्रत्येक mySlide के लिएचर 'mySlide' में संदर्भित वर्तमान स्लाइड के साथ कुछ करें' डिबग। प्रिंट mySlide.Nameअगली स्लाइड |
सक्रिय स्लाइड के सभी आकार के माध्यम से लूप
पावरपॉइंट की शक्ति को 'आकृतियों' का उपयोग करके महसूस किया जा सकता है। नीचे दिया गया कोड वर्तमान स्लाइड पर सभी आकृतियों के माध्यम से लूप करता है ताकि आप उन्हें अपनी इच्छानुसार हेरफेर कर सकें;
| 123456789 | मंद करेंटस्लाइड के रूप मेंस्लाइडआकार के रूप में मंद shpकरेंटस्लाइड सेट करें = एप्लिकेशन.एक्टिवविंडो.व्यू.स्लाइडप्रत्येक shp के लिए currentSlide.Shapes में' चर 'shp' में संदर्भित वर्तमान आकार के साथ कुछ करेंउदाहरण के लिए तत्काल विंडो में आकृति का नाम प्रिंट करेंडिबग.प्रिंट shp.Nameअगला shp |
सभी स्लाइड्स में सभी आकृतियों के माध्यम से लूप करें
आप सभी स्लाइड्स में जाने के लिए एक लूप जोड़कर प्रस्तुति में सभी आकृतियों के माध्यम से लूप कर सकते हैं।
| 123456789 | मंद करेंटस्लाइड के रूप मेंस्लाइडआकार के रूप में मंद shpActivePresentation.Slides में प्रत्येक वर्तमान स्लाइड के लिएप्रत्येक shp के लिए currentSlide.Shapes में' चर 'shp' में संदर्भित वर्तमान आकार के साथ कुछ करेंडिबग.प्रिंट shp.Nameअगला shpअगला वर्तमानस्लाइड |
सक्रिय स्लाइड के सभी टेक्स्टबॉक्स के माध्यम से लूप करें
PowerPoint प्रस्तुतियों में टेक्स्टबॉक्स सबसे अधिक उपयोग किए जाने वाले आकार हैं। आप 'आकृति प्रकार' के लिए एक चेक जोड़कर सभी टेक्स्ट बॉक्स के माध्यम से लूप कर सकते हैं। टेक्सबॉक्स में आकार प्रकार को VBA स्थिरांक msoTextBox के रूप में परिभाषित किया गया है (स्थिरांक का संख्यात्मक मान 17 है)
| 1234567891011 | मंद करेंटस्लाइड के रूप मेंस्लाइडआकार के रूप में मंद shpकरेंटस्लाइड सेट करें = एप्लिकेशन.एक्टिवविंडो.व्यू.स्लाइडप्रत्येक shp के लिए currentSlide.Shapes में' जांचें कि क्या आकार का प्रकार है msoTextBoxयदि shp.Type = 17 तब ' msoTextBox = 17'टेक्स्टबॉक्स में टेक्स्ट प्रिंट करें'डीबग.प्रिंट shp.TextFrame2.TextRange.Textअगर अंतअगला shp |
सभी स्लाइड्स में सभी टेक्स्टबॉक्स के माध्यम से लूप करें
फिर से, आप सभी स्लाइड्स के माध्यम से जाने के लिए एक लूप जोड़कर प्रेजेंटेशन में सभी टेक्स्टबॉक्स के माध्यम से लूप कर सकते हैं।
| 1234567891011 | मंद करेंटस्लाइड के रूप में स्लाइड करें आकृति के रूप में मंद shpActivePresentation.Slides में प्रत्येक वर्तमान स्लाइड के लिएप्रत्येक shp के लिए currentSlide.Shapes में' जांचें कि क्या आकार का प्रकार है msoTextBoxयदि shp.Type = 17 तब ' msoTextBox = 17' वेरिएबल 'shp' में संदर्भित टेक्स्टबॉक्स के साथ कुछ करेंडीबग.प्रिंट shp.TextFrame2.TextRange.Textअगर अंतअगला shpअगला वर्तमानस्लाइड |
चयनित स्लाइड्स को नई पीपीटी प्रस्तुति में कॉपी करें
कुछ स्लाइड्स को नई प्रस्तुतियों में कॉपी करने के लिए, पहले मौजूदा प्रस्तुति में वांछित स्लाइड्स का चयन करें और फिर नीचे दिए गए कोड को चलाएँ;
| 123456789101112131415161718 | मंद वर्तमानप्रस्तुति प्रस्तुति के रूप मेंमंद करेंटस्लाइड के रूप मेंस्लाइडमंद नयाप्रस्तुतिकरण प्रस्तुति के रूप में'वर्तमान प्रस्तुति के संदर्भ में सहेजेंवर्तमान प्रस्तुतीकरण सेट करें = अनुप्रयोग। सक्रिय प्रस्तुतीकरण'वर्तमान स्लाइड का संदर्भ सहेजेंकरेंटस्लाइड सेट करें = एप्लिकेशन.एक्टिवविंडो.व्यू.स्लाइड'नई प्रस्तुति जोड़ें और संदर्भ में सहेजेंNewPresentation सेट करें = Application.Presentations.Add'चयनित स्लाइड्स को कॉपी करेंचयन.प्रतिलिपि'नए प्रेजेंटेशन में पेस्ट करेंनई प्रस्तुति.स्लाइड.पेस्ट |
सक्रिय प्रस्तुति के अंत में सक्रिय स्लाइड को कॉपी करें
| 12345 | 'वर्तमान स्लाइड कॉपी करेंApplication.ActiveWindow.View.Slide.Copy' अंत में पेस्ट करेंसक्रिय प्रस्तुति.स्लाइड.पेस्ट |
उपयोगी पावरपॉइंट मैक्रो उदाहरण
यहां कुछ उपयोगी मैक्रो उदाहरण दिए गए हैं जो दिखाते हैं कि कार्य कैसे करें। ये ऊपर वर्णित अवधारणाओं को भी प्रदर्शित करेंगे।
स्लाइड शो के दौरान स्लाइड बदलें
| 1234567891011 | सब चेंजस्लाइडड्यूरिंगस्लाइडशो ()पूर्णांक के रूप में मंद स्लाइडइंडेक्सडिम स्लाइडइंडेक्सपिछला इंटीजर के रूप में'स्लाइड शो के दौरान वर्तमान स्लाइड को चयनित स्लाइड 4 में बदलेंस्लाइडइंडेक्स = 4' वर्तमान स्लाइड शो विंडो की अनुक्रमणिका स्लाइडशोविंडो संग्रह में 1 हैSlideIndexPrevious = SlideShowWindows(1).View.CurrentShowPositionस्लाइडशोविंडोज़(1).व्यू.गोटोस्लाइड स्लाइडइंडेक्सअंत उप |
सभी टेक्स्टबॉक्स में सभी स्लाइड्स पर फ़ॉन्ट बदलें
| 123456789101112131415 | उप ChangeFontOnAllSlides ()स्लाइड के रूप में मंद mySlideआकार के रूप में मंद shp'सभी स्लाइड्स पर फ़ॉन्ट आकार बदलेंप्रत्येक mySlide के लिए ActivePresentation.Slides मेंmySlide.Shapes में प्रत्येक shp के लिएयदि shp.Type = 17 तब ' msoTextBox = 17'फ़ॉन्टसाइज़ को 24 में बदलें'shp.TextFrame.TextRange.Font.Size = 24अगर अंतअगला shpआगे mySlideअंत उप |
सभी टेक्स्टबॉक्स में केस को अपर से नॉर्मल में बदलें
| 123456789101112131415 | उप ChangeCaseFromUppertoNormal ()स्लाइड के रूप में मंद mySlideआकार के रूप में मंद shpसभी स्लाइड्स के लिए अपर केस से नॉर्मल केस में बदलेंActivePresentation.Slides में प्रत्येक mySlide के लिएmySlide.Shapes में प्रत्येक shp के लिएयदि shp.Type = 17 तब ' msoTextBox = 17' अपर केस को नॉर्मल केस में बदलेंshp.TextFrame2.TextRange.Font.Allcaps = Falseअगर अंतअगला shpआगे mySlideअंत उप |
सभी टेक्स्टबॉक्स में ऊपरी और सामान्य के बीच टॉगल केस
| 12345678910111213141516 | उप टॉगलकेस के बीच ऊपरी और सामान्य ()स्लाइड के रूप में मंद mySlideआकार के रूप में मंद shp' सभी स्लाइड्स के लिए अपर केस और नॉर्मल केस के बीच टॉगल करेंप्रत्येक mySlide के लिए ActivePresentation.Slides मेंMySlide.Shapes में प्रत्येक shp के लिएयदि shp.Type = 17 तब ' msoTextBox = 17' अपर केस और नॉर्मल केस के बीच टॉगल करेंshp.TextFrame2.TextRange.Font.Allcaps = _shp नहीं।TextFrame2.TextRange.Font.Allcapsअगर अंतअगला shpआगे mySlideअंत उप |
वंशजों से रेखांकन हटाएं
टाइपोग्राफी में, एक अवरोही एक अक्षर का वह भाग होता है जो किसी फ़ॉन्ट की आधार रेखा के नीचे फैला होता है। अधिकांश फोंट में, अवरोही लोअरकेस वर्णों जैसे कि g, j, q, p, y, और कभी-कभी f के लिए आरक्षित होते हैं।
जब आप टेक्स्ट को रेखांकित करते हैं, तो यह अवरोही के नीचे अच्छा नहीं लगता है। संपूर्ण प्रस्तुति में ऐसे सभी वर्णों g, j, p, q, और y से रेखांकन हटाने के लिए कोड यहां दिया गया है।
| 1234567891011121314151617181920212223242526 | उप निकालेंUnderlineFromDescenders ()स्लाइड के रूप में मंद mySlideआकार के रूप में मंद shpमंद अवरोही_सूची स्ट्रिंग के रूप मेंस्ट्रिंग के रूप में मंद वाक्यांशमंद x लंबे समय तकवंशजों से रेखांकन हटाएंअवरोही_सूची = "gjpqy"ActivePresentation.Slides में प्रत्येक mySlide के लिएMySlide.Shapes में प्रत्येक shp के लिएयदि shp.Type = 17 तब ' msoTextBox = 17'gjpqy' अक्षरों से रेखांकन हटाएँshp.TextFrame.TextRange के साथवाक्यांश = .पाठx = 1 से लेन (.पाठ) के लिएअगर InStr(descenders_list, Mid$(phrase, x, 1)) > 0 तबअक्षर (x, 1)। फ़ॉन्ट। अंडरलाइन = गलतअगर अंतअगला एक्सके साथ समाप्त करनाअगर अंतअगला shpआगे mySlideअंत उप |
सभी स्लाइड्स से एनिमेशन हटाएं
प्रेजेंटेशन में सेट किए गए सभी एनिमेशन को हटाने के लिए नीचे दिए गए कोड का उपयोग करें।
| 123456789101112 | उप निकालेंएनिमेशनफ्रॉमऑलस्लाइड्स ()स्लाइड के रूप में मंद mySlideडिम आई ऐज़ लॉन्गप्रत्येक mySlide के लिए ActivePresentation.Slides मेंi = mySlide.TimeLine.MainSequence.Count to 1 Step -1 . के लिए'प्रत्येक एनिमेशन निकालें'mySlide.TimeLine.MainSequence.Item(i).Deleteअगला मैंआगे mySlideअंत उप |
प्रस्तुति को PDF के रूप में सहेजें
आप एक्टिव प्रेजेंटेशन को पीडीएफ फॉर्मेट में आसानी से सेव कर सकते हैं।
| 1234567891011 | उप SavePresentationAsPDF ()मंद पीपीटीनाम स्ट्रिंग के रूप मेंमंद PDFName स्ट्रिंग के रूप मेंPowerPoint को PDF के रूप में सहेजेंpptName = ActivePresentation.FullName' PowerPoint फ़ाइल एक्सटेंशन को नाम से PDF में बदलेंPDFName = बायाँ (pptName, InStr (pptName, "।")) और "pdf"ActivePresentation.ExportAsFixedFormat PDFName, 2 ' ppFixedFormatTypePDF = 2अंत उप |
टेक्स्ट ढूंढें और बदलें
आप सभी स्लाइड्स के सभी टेक्स्टबॉक्स में टेक्स्ट ढूंढ और बदल सकते हैं। जिस पाठ को आप खोजना चाहते हैं (ढूंढें व्हाट द्वारा परिभाषित) के पहले उदाहरण के बाद, आपको अन्य उदाहरण, यदि कोई हो, खोजने के लिए फाइंड कमांड के माध्यम से लूप करने की आवश्यकता है।
| 123456789101112131415161718192021222324252627282930313233 | उप FindAndReplaceText ()स्लाइड के रूप में मंद mySlideआकार के रूप में मंद shpमंद ढूंढेंक्या स्ट्रिंग के रूप मेंमंद प्रतिस्थापन के साथ स्ट्रिंग के रूप मेंटेक्स्ट रेंज के रूप में मंद ShpTxtटेक्स्ट रेंज के रूप में मंद TmpTxtफाइंडव्हाट = "सियार"प्रतिस्थापित करें = "लोमड़ी"'खोजें और खोजें और बदलें'प्रत्येक mySlide के लिए ActivePresentation.Slides मेंMySlide.Shapes में प्रत्येक shp के लिएयदि shp.Type = 17 तब ' msoTextBox = 17ShpTxt = shp.TextFrame.TextRange सेट करें'ढूंढें' शब्द का पहला उदाहरण खोजें (यदि मौजूद है)सेट करें TmpTxt = ShpTxt.Replace (ढूंढें क्या, _रिप्लेसव्हाट: = रिप्लेस विथ, _संपूर्ण शब्द:=सत्य)'ढूंढें' शब्द का कोई भी अतिरिक्त उदाहरण खोजें (यदि मौजूद है)डू नॉट नॉट TmpTxt कुछ भी नहीं हैसेट ShpTxt = ShpTxt.Characters(TmpTxt.Start + TmpTxt.Length, ShpTxt.Length)सेट करें TmpTxt = ShpTxt.Replace (ढूंढें क्या, _रिप्लेसव्हाट: = रिप्लेस विथ, _संपूर्ण शब्द:=सत्य)कुंडलीअगर अंतअगला shpआगे mySlideअंत उप |
छवि के रूप में निर्यात स्लाइड
आप PNG या JPG (JPEG) या BMP छवि के रूप में Current SLide (या कोई अन्य स्लाइड) निर्यात कर सकते हैं।
| 1234567891011121314 | उप ExportSlideAsImage ()मंद छवि प्रकार स्ट्रिंग के रूप मेंमंद पीपीटीनाम स्ट्रिंग के रूप मेंमंद छविनाम स्ट्रिंग के रूप मेंस्लाइड के रूप में मंद mySlide' वर्तमान स्लाइड को छवि में निर्यात करेंइमेज टाइप = "पीएनजी" 'या जेपीजी या बीएमपीpptName = ActivePresentation.FullNameइमेजनाम = लेफ्ट (पीपीटीनाम, इनस्ट्र (पीपीटीनाम, "।")) और इमेज टाइपMySlide = Application.ActiveWindow.View.slide सेट करेंmySlide.Export imageName, imageTypeअंत उप |
पूरी स्लाइड को कवर करने के लिए छवि का आकार बदलें
| 1234567891011121314151617181920212223242526 | उप आकार बदलेंImageToCoverFullSlide ()स्लाइड के रूप में मंद mySlideआकार के रूप में मंद shp'छवि को पूर्ण स्लाइड आकार में आकार दें'वर्तमान स्लाइड पर पहले आकार की ऊंचाई और चौड़ाई बदलें'स्लाइड आयामों को फिट करने के लिएMySlide = Application.ActiveWindow.View.slide सेट करेंसेट shp = mySlide.Shapes(1)''''उपरोक्त दो स्टेटमेटन्स को इसके साथ बदलें''निम्नलिखित कथन यदि आप चाहते हैं''वर्तमान में चयनित आकार का विस्तार करें'' कुछ नहीं चुने जाने पर त्रुटि देगा'सेट shp = ActiveWindow.Selection.ShapeRange(1)shp के साथ.LockAspectRatio = False.Height = ActivePresentation.PageSetup.SlideHeight.विड्थ = ActivePresentation.PageSetup.SlideWidthवाम = 0शीर्ष = 0के साथ समाप्त करनाअंत उप |
सभी चल रहे स्लाइड शो से बाहर निकलें
यदि आपके पास एक ही समय में कई स्लाइड शो खुले हैं तो आप नीचे दिए गए मैक्रो का उपयोग करके उन सभी को बंद कर सकते हैं।
| 1234567 | उप ExitAllRunningSlideShows ()जबकि स्लाइडशो करेंWindows.Count>0स्लाइडशोविंडोज़(1).देखें.बाहर निकलेंकुंडलीअंत उप |
Excel से PowerPoint को स्वचालित करना
आप अन्य एप्लिकेशन (जैसे एक्सेल और वर्ड) के माध्यम से पावरपॉइंट से भी जुड़ सकते हैं। पहले चरण के रूप में, आपको PowerPoint के एक उदाहरण का संदर्भ लेना चाहिए।
इसे करने के दो तरीके हैं - जल्दी बंधन तथा लेट बाइंडिंग .
ओपन पॉवरपॉइंट - अर्ली बाइंडिंग
'अर्ली बाइंडिंग' में आपको टूल्स-> रेफरेंस विकल्प का उपयोग करके वीबीई (विजुअल बेसिक एडिटर) में स्पष्ट रूप से 'माइक्रोसॉफ्ट पावरपॉइंट 16 ऑब्जेक्ट लाइब्रेरी' (एमएस ऑफिस 2022 के लिए) का संदर्भ सेट करना होगा।
| 123 | 'शुरुआती बंधनअनुप्रयोग के रूप में मंद pptApppptApp सेट करें = नया PowerPoint.Application |
पावरपॉइंट खोलें - लेट बाइंडिंग
'लेट बाइंडिंग' में एप्लिकेशन वैरिएबल को ऑब्जेक्ट के रूप में घोषित किया जाता है और वीबीए इंजन रन टाइम पर सही एप्लिकेशन से जुड़ता है।
| 123 | 'देर से बंधन'मंद pptApp वस्तु के रूप मेंpptApp सेट करें = CreateObject ("PowerPoint.Application") |
एप्लिकेशन को दृश्यमान बनाएं
PowerPoint एप्लिकेशन का संदर्भ सेट करने के बाद, आपको इसे दृश्यमान बनाने की आवश्यकता हो सकती है।
| 1 | pptApp.Visible = True |
PowerPoint में हेरफेर करें
आप ऊपर वर्णित PowerPoint के भीतर से प्रस्तुतियों में हेरफेर करने के लिए सभी विधियों का उपयोग कर सकते हैं, केवल ऊपर आपके द्वारा बनाए गए PowerPoint के संदर्भ को जोड़कर।
उदाहरण के लिए
| 1 | प्रस्तुतियाँ। खोलें ("मेरी प्रस्तुति। पीपीटीएक्स") |
इसे पसंद किया जाना चाहिए
| 1 | pptApp .Presentations.Open ("My Presentation.pptx") |
एप्लिकेशन बंद करें
एक बार जब आप पावरपॉइंट एप्लिकेशन के साथ जो करना चाहते हैं उसे पूरा कर लेते हैं तो आपको इसे बंद करना होगा और संदर्भ जारी करना चाहिए।
| 12 | pptApp.छोड़ोpptApp सेट करें = कुछ नहीं |
एक्सेल से पॉवरपॉइंट में कॉपी करें
यह कोड एक्सेल से पॉवरपॉइंट की रेंज को कॉपी करेगा:
ध्यान दें: यह दिखाने के लिए जितना संभव हो उतना सरल रखा गया है कि कैसे एक्सेल से एक श्रेणी को वीबीए का उपयोग करके पावरपॉइंट में कॉपी किया जा सकता है।
| 12345678910111213141516171819 | उप कॉपीरेंज टू प्रेजेंटेशन ()'नया पावरपॉइंट इंस्टेंस खोलेंpptApp सेट करें = CreateObject ("PowerPoint.Application")pptApp के साथ'एक नई प्रस्तुति बनाएंपीपीटी सेट करें = .प्रस्तुतिकरण।जोड़ें'एक खाली स्लाइड जोड़ेंNewSlide = ppt.Slides सेट करें। Add(1, 12) ' ppLayoutBlank = 12एक्सेल में एक्टिव शीट से कॉपी रेंजActiveSheet.Range("A1:E10").Copyएक छवि के रूप में पावरपॉइंट पर पेस्ट करेंnewSlide.Shapes.PasteSpecial DataType:=2 '2 = ppPasteEnhancedMetafileपावरपॉइंट पर स्विच करें।सक्रियके साथ समाप्त करनाअंत उप |
पावरपॉइंट वीबीए अक्सर पूछे जाने वाले प्रश्न
पीपीटी में मैक्रोज़ क्या हैं?
मैक्रो एक सामान्य शब्द है जो प्रोग्रामिंग निर्देशों के एक सेट को संदर्भित करता है जो कार्यों को स्वचालित करता है। पावरपॉइंट (पीपीटी) मैक्रोज़ वीबीए प्रोग्रामिंग भाषा का उपयोग करके पावरपॉइंट में कार्यों को स्वचालित करते हैं।
मैं PowerPoint में VBA का उपयोग कैसे करूँ?
PowerPoint में VBA का उपयोग करने के लिए, VBA संपादक (ALT + F11 या डेवलपर > विज़ुअल बेसिक) खोलें।
मैं PowerPoint में मैक्रो कैसे बनाऊं?
1. वीबीए संपादक खोलें (एएलटी + एफ 11 या डेवलपर> विजुअल बेसिक)
2. कोड मॉड्यूल बनाने के लिए सम्मिलित करें > मॉड्यूल पर जाएं
3. 'सब हैलोवर्ल्ड' टाइप करें और एंटर दबाएं
4. 'सब हैलोवर्ल्ड' और 'एंड सब' के बीच में, 'MsgBox' हैलो वर्ल्ड!' टाइप करें।
5. आपने एक मैक्रो बनाया है!
6. अब मैक्रो चलाने के लिए 'F5' दबाएं
द्वारा लिखित: विनमरा चंद्र
