एक्सेल VBA PowerPoint
वीबीए का उपयोग हम पावरपॉइंट के लिए हमारे द्वारा किए जाने वाले काम को स्वचालित कर सकते हैं, लेकिन सबसे पहले वीबीए कोड या स्निपेट का उपयोग करने के लिए पावरपॉइंट में काम करने के लिए सबसे पहले मैक्रोज़ को सक्षम करने के लिए पावरपॉइंट में सुरक्षा विकल्पों के माध्यम से काम करते हैं और फिर हम एमएस में मैक्रोज़ के लिए पावर पॉइंट वीबीए संदर्भ का उपयोग कर सकते हैं। पावर प्वाइंट।
VBA की सुंदरता यह है कि हम अन्य Microsoft उत्पादों जैसे "Microsoft Word" और "Microsoft PowerPoint" का संदर्भ ले सकते हैं। हम आमतौर पर एक्सेल में रिपोर्ट बनाते हैं और फिर पावरपॉइंट प्रेजेंटेशन बनाते हैं। सभी एक्सेल उपयोगकर्ता आमतौर पर एक्सेल डेटा और रिपोर्ट से प्रस्तुति तैयार करने के लिए काफी समय खर्च करते हैं। यदि आप PowerPoint प्रस्तुतियों को तैयार करने में काफी समय खर्च कर रहे हैं, तो यह ट्यूटोरियल आपको दिखाएगा कि VBA कोडिंग का उपयोग करके एक्सेल से ही PowerPoint प्रस्तुति कैसे बनाई जाए।
पावरपॉइंट ऑब्जेक्ट मॉडल सक्षम करें
चरण 1: वीबीए संपादक खोलें और फिर, उपकरण और संदर्भ पर जाएं।
चरण 2: अब, आप VBA प्रोजेक्ट के सभी संदर्भ देखेंगे। नीचे स्क्रॉल करें और "Microsoft PowerPoint 15.0 ऑब्जेक्ट लाइब्रेरी" चुनें।
स्टेप 3: ओके पर क्लिक करें। अब हम PowerPoint को एक्सेल से एक्सेस कर सकते हैं।
PowerPoint प्रस्तुति बनाने के लिए VBA ट्यूटोरियल
हम पीपीटी को दो तरीकों से बना सकते हैं "अर्ली बाइंडिंग" का उपयोग करके और दूसरा व्यक्ति "लेट बाइंडिंग" का उपयोग कर सकता है। हम आपको "प्रारंभिक बंधन" तकनीक का उपयोग करके एक PowerPoint प्रस्तुति बनाने का तरीका दिखाएंगे ।
आमतौर पर, एक्सेल से, हम चार्ट और चार्ट की व्याख्या के आधार पर प्रस्तुतियाँ तैयार करते हैं। इसलिए इस उद्देश्य के लिए, मैंने एक ही वर्कशीट में कुछ सरल एक्सेल चार्ट और व्याख्याएं बनाई हैं।
चरण 1: VBA में सबरूटीन शुरू करें। अब PowerPoint तक पहुँचने के लिए, हमने पहले ही चरणों में, अब पहले से ही PowerPoint ऑब्जेक्ट मॉडल को सक्षम कर दिया है। इसे एक्सेस करने के लिए, हमें चर को PowerPoint.Application घोषित करना होगा।
कोड:
सब PPT_Example () Dim PPApp PowerPoint के रूप में
चरण 2: प्रस्तुति को PowerPoint में जोड़ने के लिए, हमें PowerPoint.Presentation के रूप में एक चर घोषित करना होगा।
कोड:
Dim PPPresentation PowerPoint.Presentation के रूप में
चरण 3: PowerPoint में प्रस्तुति जोड़ने के बाद, हमें स्लाइड जोड़ने की आवश्यकता है। चर को PowerPoint.lide के रूप में घोषित करने के लिए
कोड:
Dim PPSlide PowerPoint.lide के रूप में
चरण 4: एक बार स्लाइड को PowerPoint में जोड़ा जाता है, हमें PowerPoint में आकार का उपयोग करने की आवश्यकता है, अर्थात, टेक्स्ट बॉक्स। PowerPoint.hape के रूप में एक चर घोषित करने के लिए
कोड:
Dim PPShape PowerPoint.hape के रूप में
चरण 5: अब, वर्कशीट में सभी चार्ट तक पहुंचने के लिए, हमें चर को Excel.ChartObjects घोषित करना होगा।
कोड:
Excel के रूप में मंद PPCharts.ChartObject
ठीक है, कार्यवाही शुरू करने के लिए, ये चर पर्याप्त हैं।
चरण 6: अब, हमें PowerPoint को एक्सेल से लॉन्च करने की आवश्यकता है। चूंकि यह एक बाहरी वस्तु है, इसलिए हमें इसे एक नए PowerPoint के रूप में सेट करने की आवश्यकता है।
कोड:
PPApp = नया PowerPoint.Application सेट करें
यह नए PowerPoint को एक्सेल से लॉन्च करेगा।
चरण 7: अब, चर PPApp उस PowerPoint के बराबर है जिसे हमने लॉन्च किया है। अब इस PowerPoint को दृश्यमान करें और विंडो को अधिकतम करें।
कोड:
PPApp.Vanish = msoCTrue PPApp.WindowState = ppWindowMaximized
इस समय, बस F5 कुंजी या मैन्युअल रूप से कोड का उपयोग करें। आपको नीचे दिए गए की तरह लॉन्च किए गए PowerPoint ऐप को देखना चाहिए।
चरण 8: अब, हमें अपने द्वारा लॉन्च किए गए PowerPoint ऐप में एक प्रस्तुति जोड़ने की आवश्यकता है।
कोड:
PPPresentation = PPApp.Presentations.Add सेट करें
अब हमें PowerPoint प्रस्तुति को इस तरह देखना चाहिए।
Step 9: After adding the presentation, we need to add a slide.
Code:
Set PPSlide = PPPresentation.Slides.Add(1, ppLayoutTitleOnly)
Now this will add the title slide like the below.
Step 10: Now we have more than one chart in the worksheet, we need to loop through each chart and paste in the presentation. Below is the code to copy and paste the chart as well as interpretation.
Below is the complete code for you.
Sub PPT_Example() Dim PPApp As PowerPoint.Application Dim PPPresentation As PowerPoint.Presentation Dim PPSlide As PowerPoint.Slide Dim PPShape As PowerPoint.Shape Dim PPCharts As Excel.ChartObject Set PPApp = New PowerPoint.Application PPApp.Visible = msoCTrue PPApp.WindowState = ppWindowMaximized 'Add Presentation Set PPPresentation = PPApp.Presentations.Add 'Loop through each chart in the Excel and paste into the PowerPoint For Each PPCharts In ActiveSheet.ChartObjects PPApp.ActivePresentation.Slides.Add PPApp.ActivePresentation.Slides.Count + 1, ppLayoutText PPApp.ActiveWindow.View.GotoSlide PPApp.ActivePresentation.Slides.Count Set PPSlide = PPApp.ActivePresentation.Slides(PPApp.ActivePresentation.Slides.Count) 'Copy the chart and paste in Powerpoint PPCharts.Select ActiveChart.ChartArea.Copy PPSlide.Shapes.PasteSpecial(DataType:=ppPasteMetafilePicture).Select 'Add heading to the slide PPSlide.Shapes(1).TextFrame.TextRange.Text = PPCharts.Chart.ChartTitle.Text 'Allignment of the chart PPApp.ActiveWindow.Selection.ShapeRange.Left = 15 PPApp.ActiveWindow.Selection.ShapeRange.Top = 125 PPSlide.Shapes(2).Width = 200 PPSlide.Shapes(2).Left = 505 'Add interpretation If InStr(PPSlide.Shapes(1).TextFrame.TextRange.Text, "Region") Then PPSlide.Shapes(2).TextFrame.TextRange.Text = Range("K2").Value & vbNewLine PPSlide.Shapes(2).TextFrame.TextRange.InsertAfter (Range("K3").Value & vbNewLine) 'Else if the chart is the "Renewable" consumption chart, then enter the appropriate comments ElseIf InStr(PPSlide.Shapes(1).TextFrame.TextRange.Text, "Month") Then PPSlide.Shapes(2).TextFrame.TextRange.Text = Range("K20").Value & vbNewLine PPSlide.Shapes(2).TextFrame.TextRange.InsertAfter (Range("K21").Value & vbNewLine) PPSlide.Shapes(2).TextFrame.TextRange.InsertAfter (Range("K22").Value & vbNewLine) End If 'Now let's change the font size of the callouts box PPSlide.Shapes(2).TextFrame.TextRange.Font.Size = 16 Next PPCharts End Sub
