[오토잇] ppt,pptx 파일을 png, jpg, pdf, txt 파일로 변환하는 프로그램
아래쪽에 있는 워드, 엑셀 처럼 이 프로그램도 ms ppt 프로그램이 설치 되어 있어야 사용이 가능합니다.
오토잇에 원드,엑셀과는 다르게 UDF가 없어서 일반적으로 사용하는 방식으로 만들어졌지만 부가적인것 없이 심플하게 변환하는 기능만 가지고 있어 무척 간단한 프로그램 입니다.
pdf, txt 같은 것은 지정한 파일로 저장이 되지만.
jpg, png 파일은 지정한 파일로 디렉토리가 생기고 그 안에 페이지 번호로 파일이 생성 됩니다.
#cs
# ----------------------------------------------------------------------------
#
# pptx to png
#
# Author: pabburi.co.kr
# Date :
#
# ----------------------------------------------------------------------------
-
#ce
#Include <File.au3>
#Include <Array.au3>
#Include <String.au3>
#include <MsgBoxConstants.au3>
$mode = 'pdf'
$srcFile = ''
$dstFile = ''
; 인자 입력 및 유효 파일 체크
If $CmdLine[0] >= 1 Then $mode = $CmdLine[1]
If $CmdLine[0] >= 2 Then $srcFile = $CmdLine[2]
If $CmdLine[0] >= 3 Then $dstFile = $CmdLine[3]
If $srcFile == '' OR Not FileExists($srcFile) Then
$srcFile = @ScriptDir & "\" & "1ppt.pptx"
$dstFile = @ScriptDir & "\" & "destppt" & "\" & "1ppt.pdf"
EndIf
ConsoleWrite('mode: ' & $mode & @CRLF)
ConsoleWrite('srcFile: ' & $srcFile & @CRLF)
ConsoleWrite('dstFile: ' & $dstFile & @CRLF)
If FileExists($srcFile) Then
$objName = "PowerPoint.Application"
$oObj = ObjGet("", $objName)
If Not IsObj($oObj) Then
$oPpt = ObjCreate($objName)
EndIf
$oPpt.Visible = 0
$oPrst = $oPpt.Presentations
$oPptOpen = $oPrst.Open($srcFile, 0, 0, 0)
; 만약 특정 페이지 이후의 저장은 필요 없다면 loop를 돌면서 삭제하면 된다.
;~ $pptPage = $oPptOpen.Slides.Count
;~ $oPptOpen.slides($pageNum).delete
If $mode == "png" Then
$oPptOpen.SaveAs($dstFile, 18)
ElseIF $mode == 'jpg' Then
$oPptOpen.SaveAs($dstFile, 17)
ElseIF $mode == 'pdf' Then
$oPptOpen.SaveAs($dstFile, 32)
ElseIF $mode == 'txt' Then
$oPptOpen.SaveAs($dstFile, 14)
EndIf
If IsObj($oPpt) Then
$oPpt.Quit
EndIf
Else
ConsoleWrite($srcFile & '파일이 없습니다.' & @CRLF)
EndIf
png, jpg 차이는 휀손이 되어 압축율이 높은지 아닌지에 대한 문제로서 깔끔한 이미지를 얻고 싶으시면 png로 저장한 다음 jpg 퀄리티를 90 이상으로 주는 것이 좋습니다.
단색의 일러스트 같은 경우는 png가 용량이 적은 경우도 있기는 하지만 구분하는데 번거롭기 때문에 jpg로 변환하고 품질을 높게 주는 것이 좀 더 효율적입니다.
예전엔 jpg 퀄리티를 80정도 줘도 괜찮았는데 요즘은 쇼핑몰 페이지 보면 모두 90이 넘습니다. 100으로 주는것은 좀 그렇고 ...
● 오토잇 워드를 pdf 파일로 변환
- [오토잇] doc,docx 파일을 txt, pdf 파일로 변환하는 프로그램