VBA मैक्रो का उपयोग करके Excel से PowerPoint में स्वचालित रूप से कॉपी कैसे करें
यदि आप कभी भी Microsoft Excel कार्यपुस्तिका से अपने Microsoft PowerPoint प्रस्तुति में डेटा के स्थानांतरण में तेजी लाना चाहते हैं, तो अनुप्रयोगों के लिए मैक्रो और विज़ुअल बेसिक का उपयोग करने का तरीका है। VBA एक कंप्यूटर प्रोग्रामिंग भाषा है जिसे एक्सेल से डेटा कॉपी करने जैसी प्रक्रियाओं को स्वचालित करने के लिए Microsoft Office अनुप्रयोगों में नियोजित किया जाता है। मैक्रो आपको निर्देशों के एक सेट को सहेजने की अनुमति देता है जिसे आप एक बटन के एक क्लिक के साथ बार-बार निष्पादित कर सकते हैं।
चरण 1
एक्सेल लॉन्च करें, "A1" में "एलन", "A2 में" डैनियल "," A3 में "किट्ज़िया", "A4" में "ऑस्कर" और "A5" में "Yarexli" टाइप करें। कार्यपुस्तिका को "C:\" में "ExcelFile.xlsx" के रूप में सहेजने के लिए "CTRL" और "S" दबाएँ। एक्सेल बंद करें।
चरण दो
पावरपॉइंट लॉन्च करें, "डेवलपर" टैब पर क्लिक करें और मैक्रो डायलॉग विंडो लॉन्च करने के लिए "मैक्रोज़" पर क्लिक करें। मैक्रो नाम के नीचे "copyFromExcel" टाइप करें और "बनाएं" बटन पर क्लिक करें। "टूल" मेनू पर क्लिक करें और संदर्भ संवाद विंडो लॉन्च करने के लिए "संदर्भ" पर क्लिक करें। नीचे स्क्रॉल करें और "Microsoft Excel" के बगल में स्थित बॉक्स को चेक करें
चरण 3
वेरिएबल बनाने के लिए निम्नलिखित को कॉपी और पेस्ट करें जिनका उपयोग आप एक्सेल से डेटा कॉपी करने के लिए करेंगे:
एक्सेल के रूप में मंद स्रोतएक्सएल। आवेदन
एक्सेल के रूप में डिम सोर्सबुक। वर्कबुक डिम सोर्सशीट एक्सेल के रूप में। वर्कशीट डिम डेटा रीडएरे (10) स्ट्रिंग डिम मायप्रेस के रूप में प्रस्तुतिकरण के रूप में मंद न्यूस्लाइड स्लाइड के रूप में चरण 4
वस्तु चर के लिए मान सेट करें:
SourceXL = Excel.Application सेट करें SourceBook = sourceXL.Workbooks.Open("G:\ExcelFile.xlsx") सेट करें sourceSheet = sourceBook.Sheets(1) myPres = ActivePresentation सेट करें newSlide = myPres.Slides.Add(Index:=myPres) सेट करें .Slides.Count + 1, Layout:=ppLayoutText)
चरण 5
एक्सेल फ़ाइल में डेटा पढ़ें और इसे स्ट्रिंग सरणी में संग्रहीत करें:
sourceSheet.Range("A1"). Select dataReadArray(0) = sourceSheet.Range("A1").Value sourceSheet.Range("A2"). Select dataReadArray(1) = sourceSheet.Range("A2").Value sourceSheet.Range("A3"). Select dataReadArray(2) = sourceSheet.Range("A3").Value SourceSheet.Range("A4"). Select dataReadArray(3) = sourceSheet.Range("A4").Value sourceSheet.Range("A5"). Select dataReadArray(4) = sourceSheet.Range("A5").Value चरण 6
अपनी वर्तमान प्रस्तुति में स्ट्रिंग सरणी से डेटा को एक नई स्लाइड में जोड़ें:
newSlide.Shapes(1).TextFrame.TextRange = "डेटा को एक्सेल से कॉपी किया गया" और _ डेटा रीडअरे (3) और वीबीन्यूलाइन और _ डेटा रीडअरे (4) और वीबीन्यूलाइन
चरण 7
कार्यपुस्तिका बंद करें:
सोर्सबुक.बंद करें PowerPoint विंडो पर स्विच करें और "मैक्रोज़" पर क्लिक करें। "CopyFromExcel" मैक्रो को चलाने के लिए "रन" पर क्लिक करें और चरण 1 में आपके द्वारा बनाई गई एक्सेल फ़ाइल से कॉपी किए गए डेटा के साथ एक नई स्लाइड जोड़ें।
