>>93
このソースだと出てしまいます。何か違いますでしょうか？

Option Explicit

Dim inFilePath
inFilePath = Wscript.Arguments(0)

Dim outFilePath
outFilePath = Wscript.Arguments(1)

Dim objPowerPoint
Set objPowerPoint = CreateObject("PowerPoint.Application")

dim pre
set pre = objPowerPoint.Presentations.Open(inFilePath, false, false, false)

dim wdFormatPDF
wdFormatPDF = 32
call pre.SaveAs(outFilePath, wdFormatPDF )

objPowerPoint.Quit()
Set objPowerPoint = Nothing