파워포인트(PPT, PPTX) 파일 들을 JPG 파일로 변환하는 프로그램 (PPT2JPG)

파워포인트 파일을 JPG 이미지로 한 번에 변환하는 매크로 프로그램입니다.

사용중인 파워포인트 파일들을 자막기에서 사용할 때에도 필요한 파일입니다.

 

이 프로그램을 사용하기 위해서는 파워포인트가 설치되어 있어야 합니다.

화면에 작업상황을 표시하지 않기 때문에 빠른 속도로 작업이 가능합니다.

 

사용방법

1. 작업할 폴더를 선택하고

2. 첫번째 슬라이드, 또는 전체 슬라이드 변환을 선택하고

3. 고화질을 원할 경우 높은 화질에 체크하고 (1920x1440 또는 1920x1080)

4. 작업시작을 클릭하면 됩니다.

 

PPT2JPG.zip

0.32MB

 

파워포인트의 VBA 매크로를 사용할 줄 아시는 분은 아래의 코드를 사용하셔도 됩니다.

화면에 작업상황을 표시하기 때문에 위 프로그램보다는 속도가 떨어집니다.

파워포인트에서 새로 만들기 하신 후에 folder 경로를 수정하고 아래 소스를 사용하세요.

 

VBA Source
========================================
' PPT2JPG, PPT to JPG, 파워포인트를 JPG 이미지로 변환하는 매크로 소스
Sub PPT2JPG()
folder = "M:\PPT\"                     ' 작업할 경로로 수정
ExportOne = 1                          ' 첫장만 변환하면 1 전체변환은 0
Width = 1920                            ' 가로 크기 - 저화질로 변환하려면 보통 960
fName = Dir(folder & "*.PPT*")
If fName = "" Then
    MsgBox "작업할 파일이 없습니다. 폴더가 맞는지 확인해 주세요."
Else
    On Error GoTo Err_ImageSave
    While fName <> ""
        Set PPT = Presentations.Open(folder & fName)
        iName = Split(PPT.Name, ".")(0)
        Height = Width / PPT.PageSetup.SlideWidth * PPT.PageSetup.SlideHeight
        If ExportOne = 1 Then
            PPT.Slides(1).Export folder & iName & ".JPG", "JPG", Width, Height
        Else
            For Each oSlide In PPT.Slides
                oSlide.Export folder & iName & "-" & Right("00" & oSlide.SlideIndex, 3) & ".JPG", "JPG", Width, Height
            Next oSlide
        End If
        PPT.Close
        fName = Dir()
    Wend
    MsgBox "작업을 완료하였습니다."
End If
Set PPT = Nothing
Exit Sub
Err_ImageSave:
    If Err <> 0 Then MsgBox Err.Description
End Sub
========================================