PowerPoint

Question

में किसी मैक्रो को चलाने के लिए स्ट्रिंग के लिए एक साथ शीर्षक कोशिश कर रहा है एक चुनौती के लिए पर्याप्त था ...

मैं PowerShell से कुछ PowerPoint मैक्रो को चलाने के लिए कोशिश कर रहा हूँ PowerShell के माध्यम से COM वस्तु के माध्यम से एक प्रकार पासिंग। मुझे एक्सेल के लिए पावरहेल से मैक्रोज़ चलाने में काफी अच्छा लगा है। जब मैं एक्सेल पर मैक्रोज़ चलाता हूं, तो COM ऑब्जेक्ट से रन() विधि विभिन्न प्रकार के तर्क लेती है, भले ही मैक्रो के पास कोई पैरामीटर हो। हालांकि दूसरी ओर, पावरपॉइंट रन() विधि पैरामीटर की अपेक्षा करती है, और मैं उन्हें कैसे पास करना है, यह नहीं कर सकता।

मेरा मैक्रो एक स्ट्रिंग को पारित करने की उम्मीद कर रहा है, मैंने profusely googled और कम आ गया है।

त्रुटि::

type must not be ByRef 

मैं PowerShell में पावर प्वाइंट के लिए एक साथ डाल दिया है एक बहुत ही बुनियादी PoC:

कोड:

# PowerPoint test 
Add-type -AssemblyName office 
$PowerPoint = New-Object -comobject PowerPoint.Application 

$PowerPoint.Visible = [Microsoft.Office.Core.MsoTriState]::msoTrue 

$presentation2 = $PowerPoint.Presentations.open("C:\macros.pptm") 
$presentation = $PowerPoint.Presentations.open("C:\Test For Macros.pptx") 

$PowerPoint.run("macros.pptm!IAM",[ref]"Feb") 
$presentation.save() 
$presentation.close() 

$presentation2.close() 
$PowerPoint.quit() 

# extra clean up omitted 

The I हमेशा इस त्रुटि मिलती है मैक्रो स्वयं बस कुछ पाठ बॉक्स में ले जाता है, यह PowerPoint से चलाते समय ठीक काम करता है।

आवश्यकता:

मैं अब एक से अधिक फ़ाइलों और स्लाइड भर में इस स्वचालित करना चाहते हैं।

Documentation on the PowerPoint COM object Run method, दो पैरामीटर के लिए आवश्यकता दिखा रहा है।

Answer 1

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

फ़ाइल PowerShellTest.pptm सी में सहेजा में मैक्रो: \ अस्थायी

Sub DisplayMessage(myText As String) 
    MsgBox myText 
End Sub 

PowerShell स्क्रिप्ट:

# PowerPoint test 
Add-type -AssemblyName office 
$PowerPoint = New-Object -comobject PowerPoint.Application 

$PowerPoint.Visible = [Microsoft.Office.Core.MsoTriState]::msoTrue 

$presentation = $PowerPoint.Presentations.open("C:\Temp\PowerShellTest.pptm") 

$PowerPoint.run("PowerShellTest.pptm!DisplayMessage",[ref]"Feb") 

भागो विधि दस्तावेज़ लिंक आपके द्वारा दी गई उल्लेख मॉड्यूल का नाम हो सकता है कि शामिल है इसलिए यह मेरे लिए भी काम करता है:

$PowerPoint.run("PowerShellTest.pptm!Module1.DisplayMessage",[ref]"Feb") 

Answer 2

शायद [ref] को हटाने का प्रयास करें नीचे दिए गए कोड की लाइन या [वैल]

$PowerPoint.run("macros.pptm!IAM",[ref]"Feb") 

तो करने के लिए इसे बदलने का प्रयास करें या तो:

$PowerPoint.run("macros.pptm!IAM","Feb") 

या:

$PowerPoint.run("macros.pptm!IAM",[val]"Feb") 

और फिर भी सुनिश्चित करें कि PowerPoint मैक्रो की उम्मीद कर रहा है परिवर्तनीय BYVal पारित करने के लिए। इस तरह उदाहरण कुछ के लिए:

Sub IAM(ByVal sMonthName As String)