excel-vba
वीबीए के माध्यम से PowerPoint एकीकरण
खोज…
टिप्पणियों
यह खंड वीबीए के माध्यम से PowerPoint के साथ बातचीत करने के विभिन्न तरीकों को प्रदर्शित करता है। स्लाइड्स पर डेटा दिखाने से लेकर चार्ट बनाने तक, जब Excel के साथ संयोजन में उपयोग किया जाता है, तो PowerPoint एक बहुत शक्तिशाली उपकरण है। इस प्रकार, यह खंड विभिन्न तरीकों को प्रदर्शित करना चाहता है VBA का उपयोग इस बातचीत को स्वचालित करने के लिए किया जा सकता है।
मूल बातें: VBA से PowerPoint लॉन्च करना
जबकि कई पैरामीटर हैं जिन्हें बदला जा सकता है और वांछित कार्यक्षमता के आधार पर भिन्नताएं जोड़ी जा सकती हैं, यह उदाहरण PowerPoint को लॉन्च करने के लिए बुनियादी ढांचे को तैयार करता है।
नोट: इस कोड के लिए आवश्यक है कि PowerPoint संदर्भ सक्रिय VBA प्रोजेक्ट में जोड़ा गया हो। संदर्भ को सक्षम करने के बारे में जानने के लिए संदर्भ दस्तावेज़ीकरण प्रविष्टि देखें।
सबसे पहले, अनुप्रयोग, प्रस्तुति और स्लाइड ऑब्जेक्ट के लिए चर को परिभाषित करें। हालांकि यह देर से बाध्यकारी के साथ किया जा सकता है, लागू होने पर शुरुआती बंधन का उपयोग करना हमेशा सबसे अच्छा होता है।
Dim PPApp As PowerPoint.Application
Dim PPPres As PowerPoint.Presentation
Dim PPSlide As PowerPoint.Slide
अगला, PowerPoint एप्लिकेशन का एक नया उदाहरण खोलें या बनाएं। यहां, PowerPoint को अभी तक नहीं खोला गया है, तो GetObject द्वारा फेंकी जा रही एक त्रुटि से बचने के लिए On Error Resume Next कॉल का उपयोग किया जाता है। अधिक विस्तृत विवरण के लिए सर्वश्रेष्ठ अभ्यास विषय के त्रुटि हैंडलिंग उदाहरण देखें।
'Open PPT if not running, otherwise select active instance
On Error Resume Next
Set PPApp = GetObject(, "PowerPoint.Application")
On Error GoTo ErrHandler
If PPApp Is Nothing Then
'Open PowerPoint
Set PPApp = CreateObject("PowerPoint.Application")
PPApp.Visible = True
End If
एक बार एप्लिकेशन लॉन्च होने के बाद, उपयोग के लिए एक नई प्रस्तुति और बाद में निहित स्लाइड उत्पन्न होती है।
'Generate new Presentation and slide for graphic creation
Set PPPres = PPApp.Presentations.Add
Set PPSlide = PPPres.Slides.Add(1, ppLayoutBlank)
'Here, the slide type is set to the 4:3 shape with slide numbers enabled and the window
'maximized on the screen. These properties can, of course, be altered as needed
PPApp.ActiveWindow.ViewType = ppViewSlide
PPPres.PageSetup.SlideOrientation = msoOrientationHorizontal
PPPres.PageSetup.SlideSize = ppSlideSizeOnScreen
PPPres.SlideMaster.HeadersFooters.SlideNumber.Visible = msoTrue
PPApp.ActiveWindow.WindowState = ppWindowMaximized
इस कोड के पूरा होने पर, एक खाली स्लाइड के साथ एक नई PowerPoint विंडो खुली होगी। ऑब्जेक्ट चर, आकार, पाठ, ग्राफिक्स और एक्सेल रेंज का उपयोग करके वांछित के रूप में जोड़ा जा सकता है