Passando attraverso una variante oggetto COM tramite PowerShell per eseguire una macro in PowerPoint

Question

Cercando di stringa il titolo insieme era abbastanza di una sfida ...

Sto cercando di eseguire alcune macro di PowerPoint da PowerShell. Sono diventato abbastanza bravo a eseguire macro da PowerShell per Excel. Quando eseguo le macro su Excel, il metodo Run() dall'oggetto COM prenderà una serie di argomenti, a seconda che la macro abbia qualche parametro. Tuttavia, d'altra parte, il metodo Run() di PowerPoint si aspetta parametri e non riesco a capire come passarli.

La mia macro si aspetta che una stringa venga passata attraverso, io ho cercato su Google in modo profuso e ho finito corto. Ho sempre trovato questo errore:

Errore:

type must not be ByRef 

ho messo insieme un PoC molto di base per PowerPoint in PowerShell:

Codice:

# 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 

Il la stessa macro sposta semplicemente del testo attraverso le finestre, funziona bene quando viene eseguita da PowerPoint.

Requisito:

Ora voglio automatizzare questo in più file e diapositive.

Documentation on the PowerPoint COM object Run method, che mostra il requisito per due parametri.

Answer 1

Ottima domanda e non molti esempi online come dici tu. Sono riuscito a spogliare ulteriormente il tuo esempio e passare con successo del testo a un MsgBox in una macro di PowerPoint senza realmente cambiare ciò che avevi.

la macro nella PowerShellTest.pptm file salvato in C: \ Temp

Sub DisplayMessage(myText As String) 
    MsgBox myText 
End Sub 

Lo script 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") 

Il legame metodo Run documentazione che hai fornito menziona il fatto che il nome del modulo può essere incluso quindi ha funzionato anche per me:

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

Answer 2

Forse provare a rimuovere il [ref] in la riga di codice sotto o provare a cambiare a [val]

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

Quindi, o:

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

o:

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

E poi anche fare in modo che la macro PowerPoint si aspetta la variabile da passare ByVal. Ad esempio qualcosa di simile:

Sub IAM(ByVal sMonthName As String)