I had to find an easy solution for my colleaugue to convert Powerpoint files to e.g. JPGs.
\nThey have a big screen where they want to do slideshows and the people do Powerpoint files for easy changes.
\nInstead of doing all manually with save as and such it should be an automatic conversion.<\/p>\n
Here is the batch convertPowerpoint2JPG.bat<\/em> I came up with:<\/p>\n It uses a vbs Skript to invoke Powerpoint for pdf saving and then converts the PDF with ImageMagick (actually the embedded portable GhostScript) to JPG.<\/p>\n The code for ppt2pdf.vbs is:<\/p>\n Sorry, I forgot the source. If you know it, let me know.<\/p>\n I used a portable version of ImageMagick and a portable version of GhostScript. You have to integrate GhostScript into ImageMagick in the file delegates.xml<\/em>. Place GhostScript in ImageMagick folder and replace all appearances of gswin32c.exe<\/em> with Ghostscript\\bin\\gswin32c.exe<\/em> (if that is the path of your portable GhostScript).<\/p>\n@echo off\nSET imagemagickpath=%~dp0\nset filepath=%~dp1\nset extension=%~x1\nset filename=%~n1\necho convert Powerpoint to PDF\nif exist "%filepath%%filename%.pdf" del "%filepath%%filename%.pdf"\nCSCRIPT "%imagemagickpath%ppt2pdf.vbs" "%filepath%%filename%%extension%" "%filepath%%filename%.pdf"\nif not exist "%filepath%%filename%" mkdir "%filepath%%filename%"\necho convert PDF to JPGs\n"%imagemagickpath%convert.exe" -monitor -quality 100 -unsharp 0x1 -density 400 "%filepath%%filename%.pdf" -resize 60%% "%filepath%%filename%\\%filename%.jpg"\nexit \/b<\/code><\/pre><\/p><\/blockquote>\nOption Explicit\n\nSub WriteLine ( strLine )\n WScript.Stdout.WriteLine strLine\nEnd Sub\n\n' http:\/\/msdn.microsoft.com\/en-us\/library\/office\/aa432714(v=office.12).aspx\nConst msoFalse = 0 ' False.\nConst msoTrue = -1 ' True.\n\n' http:\/\/msdn.microsoft.com\/en-us\/library\/office\/bb265636(v=office.12).aspx\nConst ppFixedFormatIntentScreen = 1 ' Intent is to view exported file on screen.\nConst ppFixedFormatIntentPrint = 2 ' Intent is to print exported file.\n\n' http:\/\/msdn.microsoft.com\/en-us\/library\/office\/ff746754.aspx\nConst ppFixedFormatTypeXPS = 1 ' XPS format\nConst ppFixedFormatTypePDF = 2 ' PDF format\n\n' http:\/\/msdn.microsoft.com\/en-us\/library\/office\/ff744564.aspx\nConst ppPrintHandoutVerticalFirst = 1 ' Slides are ordered vertically, with the first slide in the upper-left corner and the second slide below it.\nConst ppPrintHandoutHorizontalFirst = 2 ' Slides are ordered horizontally, with the first slide in the upper-left corner and the second slide to the right of it.\n\n' http:\/\/msdn.microsoft.com\/en-us\/library\/office\/ff744185.aspx\nConst ppPrintOutputSlides = 1 ' Slides\nConst ppPrintOutputTwoSlideHandouts = 2 ' Two Slide Handouts\nConst ppPrintOutputThreeSlideHandouts = 3 ' Three Slide Handouts\nConst ppPrintOutputSixSlideHandouts = 4 ' Six Slide Handouts\nConst ppPrintOutputNotesPages = 5 ' Notes Pages\nConst ppPrintOutputOutline = 6 ' Outline\nConst ppPrintOutputBuildSlides = 7 ' Build Slides\nConst ppPrintOutputFourSlideHandouts = 8 ' Four Slide Handouts\nConst ppPrintOutputNineSlideHandouts = 9 ' Nine Slide Handouts\nConst ppPrintOutputOneSlideHandouts = 10 ' Single Slide Handouts\n\n' http:\/\/msdn.microsoft.com\/en-us\/library\/office\/ff745585.aspx\nConst ppPrintAll = 1 ' Print all slides in the presentation.\nConst ppPrintSelection = 2 ' Print a selection of slides.\nConst ppPrintCurrent = 3 ' Print the current slide from the presentation.\nConst ppPrintSlideRange = 4 ' Print a range of slides.\nConst ppPrintNamedSlideShow = 5 ' Print a named slideshow.\n\n' http:\/\/msdn.microsoft.com\/en-us\/library\/office\/ff744228.aspx\nConst ppShowAll = 1 ' Show all.\nConst ppShowNamedSlideShow = 3 ' Show named slideshow.\nConst ppShowSlideRange = 2 ' Show slide range.\n\n'\n' This is the actual script\n'\n\nDim inputFile\nDim outputFile\nDim objPPT\nDim objPresentation\nDim objPrintOptions\nDim objFso\n\nIf WScript.Arguments.Count <> 2 Then\n WriteLine "You need to specify input and output files."\n WScript.Quit\nEnd If\n\ninputFile = WScript.Arguments(0)\noutputFile = WScript.Arguments(1)\n\nSet objFso = CreateObject("Scripting.FileSystemObject")\n\nIf Not objFso.FileExists( inputFile ) Then\n WriteLine "Unable to find your input file " & inputFile\n WScript.Quit\nEnd If\n\nIf objFso.FileExists( outputFile ) Then\n WriteLine "Your output file (" & outputFile & ") already exists!"\n WScript.Quit\nEnd If\n\nWriteLine "Input File: " & inputFile\nWriteLine "Output File: " & outputFile\n\nSet objPPT = CreateObject( "PowerPoint.Application" )\n\nobjPPT.Visible = True\nobjPPT.Presentations.Open inputFile\n\nSet objPresentation = objPPT.ActivePresentation\nSet objPrintOptions = objPresentation.PrintOptions\n\nobjPrintOptions.Ranges.Add 1,objPresentation.Slides.Count\nobjPrintOptions.RangeType = ppShowAll\n\n' Reference for this at http:\/\/msdn.microsoft.com\/en-us\/library\/office\/ff746080.aspx\nobjPresentation.ExportAsFixedFormat outputFile, ppFixedFormatTypePDF, ppFixedFormatIntentScreen, msoTrue, ppPrintHandoutHorizontalFirst, ppPrintOutputSlides, msoFalse, objPrintOptions.Ranges(1), ppPrintAll, "Slideshow Name", False, False, False, False, False\n\nobjPresentation.Close\nObjPPT.Quit<\/code><\/pre><\/p><\/blockquote>\n