4
回答
请教PPT转JPG的思路
开发十年,就只剩下这套Java开发体系了   

大家好,请教各位,不用到OFFICE库的情况下,PPT转JPG有何思路?

我目前只想到,分析PPT文件格式,然后输出图片,但没查到PPT的文件格式。

PPT
举报
jxfengzi
发帖于7年前 4回/1K+阅
共有4个答案 最后回答: 6年前

不用库不知道

用库有个脚本

'PowerPoint文件转图像脚本(ppt2img)
'使用方法:将此文件放在sendto文件中,然后在ppt文件上点右键,发送到,ppt2img.vbs
'中,输入要输出图
'像的格式,然后输入图像的宽与高,脚本会生成一个同名的文件,里面为生成的图像文件。
'机器上要安装Powerpoint程序
on error resume next
Set ArgObj = WScript.Arguments
pptfilepath = ArgObj(0)
imgType = InputBox("输入导出文件的格式,可以是jpg,png,bmp,gif","输入导出文件的格式","gif")

if imgType = "" or (lcase(imgType)<>"jpg" and lcase(imgType)<>"png" and lcase(imgType)<>"bmp" and lcase(imgType)<>"gif") then
    imgType = "png"
    msgbox "输入不正确,以png格式输出"
end if

imgW = InputBox("输入导出图像的宽度","输入导出图像的宽度","800")
if imgW = "" or isnumeric(imgW)=false then
    imgW = 800
    msgbox "输入不正确,程序使用默认值:800"
end if


imgH = InputBox("输入导出图像的高度","输入导出图像的高度","600")

if imgH = "" or isnumeric(imgH)=false then
    imgH = imgW*0.75
    msgbox "输入不正确,程序使用默认值:"&imgH
end if


call Form_Load(pptfilepath,imgType)

Private Sub Form_Load(Filepath,format)
    if format = "" then
        format = "gif"
    end if
    Folderpath = left(Filepath,len(Filepath)-4)
    if lcase(right(Filepath,4))<>".ppt" then
        call ConvertPPT(Filepath,Folderpath&".ppt")
    end if
    Filepath = Folderpath&".ppt"
    CreateFolder(Folderpath)
    Set ppApp = CreateObject("PowerPoint.Application")
    Set ppPresentations = ppApp.Presentations
    Set ppPres = ppPresentations.Open(Filepath, -1, 0, 0)
    Set ppSlides = ppPres.Slides

    For i = 1 To ppSlides.Count

        iname = "000000"&i
        iname = right(iname,4)'取四位数
        Call ppSlides.Item(i).Export(Folderpath&"\"&iname&"."&format, format, imgW, imgH)
    Next

    Set ppApp = Nothing
    Set ppPres = Nothing
End Sub

Function CreateFolder(Filepath)
    Dim fso, f
    on error resume next
    Set fso = CreateObject("Scripting.FileSystemObject")
    if not fso.FolderExists(Filepath) then
        Set f = fso.CreateFolder(Filepath)
    end if
    CreateFolder = f.Path
    set fso = Nothing
    set f = Nothing
End Function

Sub ConvertPPT(FileName1, FileName2)
    Dim PPT
    Dim Pres

    Set PPT = CreateObject("PowerPoint.Application")
    Set Pres = PPT.Presentations.Open(FileName1, False, False, False)
    Pres.SaveAs FileName2, , True

    Pres.Close
    PPT.Quit

    Set Pres = Nothing
    Set PPT = Nothing
End Sub


--- 共有 1 条评论 ---
Mooke很好用!哈哈 7年前 回复

这个方法是windows下的?

我想知道如果在linux下实现PPT文件一屏一屏地转化成jpg。

系统里用得是libreoffice

顶部