PowerPoint ExportAsFixedFormat dans Powershell

Question

J'essaie d'utiliser le ExportAsFixedFormat dans PowerPoint 2007 à partir d'un script PowerShell 2.0. Seuls les deux premiers arguments sont requis, mais cela ne fonctionnera pas.

J'obtiens toujours:

Exception appelant "ExportAsFixedFormat" avec "2" argument (s): "Type mismatch ( Exception de HRESULT: 0x80020005 (DISP_E_TYPEMISMATCH))"

J'ai lu que tous les arguments doivent être spécifiés pour que cela fonctionne, mais cela ne fonctionne pas non plus. BTW, la même méthode fonctionne pour moi dans Word 2007 et Excel 2007.

Alors quel est le problème avec ceci:

Add-type -AssemblyName Office 
Add-type -AssemblyName Microsoft.Office.Interop.PowerPoint 

$p = new-object -comobject powerpoint.application 
$p.visible = 1 
$document = $p.presentations.open('somefile.ppt') 


$document.ExportAsFixedFormat($Path, 
[Microsoft.Office.Interop.PowerPoint.PpFixedFormatType]::ppFixedFormatTypePDF, 
[Microsoft.Office.Interop.PowerPoint.PpFixedFormatIntent]::ppFixedFormatIntentScreen, 
[Microsoft.Office.Core.MsoTriState]::msoFalse, 
[Microsoft.Office.Interop.PowerPoint.PpPrintHandoutOrder]::ppPrintHandoutVerticalFirst, 
[Microsoft.Office.Interop.PowerPoint.PpPrintOutputType]::ppPrintOutputSlides, 
[Microsoft.Office.Core.MsoTriState]::msoFalse, 
$null, 
[Microsoft.Office.Interop.PowerPoint.PpPrintRangeType]::ppPrintAll, 
[System.Reflection.Missing]::Value, 
$true, 
$true, 
$true, 
$true, 
$false, 
[System.Reflection.Missing]::Value) 

Answer 1

changement $null-[System.Reflection.Missing]::Value.

Answer 2

Je réalise que c'est une réponse tardive, mais je pense que j'ai la solution. (J'essayais d'appeler cette méthode en C# en utilisant NetOffice, et en obtenant la même erreur)

Il semble qu'il y ait un bug dans Microsoft Powerpoint (Au moins dans v 2007 & 2010). Le paramètre PrintRange doit être spécifié, car la valeur par défaut (0) n'est pas valide!

donc un script de travail pourrait ressembler à:

Add-type -AssemblyName Office 
Add-type -AssemblyName Microsoft.Office.Interop.PowerPoint 

$p = new-object -comobject powerpoint.application 
$p.visible = 1 
$document = $p.presentations.open('somefile.ppt') 
$ranges = $document.PrintOptions.Ranges 
$range = $ranges.Add(1,1) 


$document.ExportAsFixedFormat($Path, 
[Microsoft.Office.Interop.PowerPoint.PpFixedFormatType]::ppFixedFormatTypePDF, 
[Microsoft.Office.Interop.PowerPoint.PpFixedFormatIntent]::ppFixedFormatIntentScreen, 
[Microsoft.Office.Core.MsoTriState]::msoFalse, 
[Microsoft.Office.Interop.PowerPoint.PpPrintHandoutOrder]::ppPrintHandoutVerticalFirst, 
[Microsoft.Office.Interop.PowerPoint.PpPrintOutputType]::ppPrintOutputSlides, 
[Microsoft.Office.Core.MsoTriState]::msoFalse, 
$range, 
[Microsoft.Office.Interop.PowerPoint.PpPrintRangeType]::ppPrintAll, 
[System.Reflection.Missing]::Value, 
$true, 
$true, 
$true, 
$true, 
$false, 
[System.Reflection.Missing]::Value) 

Notez que le paramètre de plage $ est maintenant passé dans

NB - cette réponse est adaptée de la solution ici. https://netoffice.codeplex.com/discussions/449288