파워포인트(PPT, PPTX) 파일 들을 무배경으로 한 번에 변환하는 프로그램
파워포인트에 이미 적용되어있는 배경을 삭제하고
그 배경을 흰색으로 한 번에 바꿔주는 프로그램입니다.
이 프로그램을 사용하기 위해서는 파워포인트가 설치되어 있어야 합니다.
화면에 작업상황을 표시하지 않기 때문에 빠른 속도로 작업이 가능합니다.
파워포인트의 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
========================================