파워포인트(PPT, PPTX) 파일 들을 무배경으로 한 번에 변환하는 프로그램

파워포인트에 이미 적용되어있는 배경을 삭제하고

그 배경을 흰색으로 한 번에 바꿔주는 프로그램입니다.

이 프로그램을 사용하면

찬송가, 새찬송가, 복음성가 PPT 악보 등 여러 개의 파워포인트 파일 들을

한 번에 무배경으로 바꿀 수 있습니다.

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

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

PPT_무배경.zip

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

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

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

VBA Source

========================================

Sub ChangeBackground()

Dim folder, fName As String

folder = "M:\PPT\"                  ' 작업할 경로로 수정

fName = Dir(folder & "*.PPT*")

If fName = "" Then

    MsgBox "작업할 파일이 없습니다. 폴더가 맞는지 확인해 주세요."

Else

    On Error GoTo Err_Save

    While fName <> ""

        Set PPT = Presentations.Open(folder & fName)

        If Application.Version > 11 Then

            While PPT.SlideMaster.Shapes.Count

                PPT.SlideMaster.Shapes(1).Delete ' PPT 2003 버전은 생략해야 한다.

            Wend

        End If

        Set BG = PPT.Slides.Range

        BG.FollowMasterBackground = False

        BG.Background.Fill.Solid

        BG.Background.Fill.ForeColor.RGB = RGB(255, 255, 255) ' 16777215 흰색

        PPT.Save

        PPT.Close

        fName = Dir()

    Wend

    MsgBox "작업을 완료하였습니다."

End If

Set PPT = Nothing

Set BG = Nothing

Exit Sub

Err_Save:

    If Err <> 0 Then MsgBox Err.Description

End Sub

========================================