[뻘글] PPT의 각 슬라이드를 그림으로 교체하기

마이크로소프트가 개발한 EMF는 최신의 그래픽파일 형식입니다.
벡터형식의 그래픽 데이터도 저장할 수 있고,
글자나 폰트 정보도 삽입할 수 있습니다.
(1장 짜리 PDF와 비슷하다고 생각하면 되겠더군요.)

파워포인트에서는 PPT 슬라이드를 EMF 형식으로 저장할 수 있습니다.
다른이름으로 저장하기 해서 EMF형식을 선택하면
모든 슬라이드가 그 PPT 파일과 동일한 이름의 하위폴더에
EMF라는 그래픽이미지 파일 형식으로 저장 됩니다.

아래는 그렇게 저장된 EMF를
다시 PPT에 올리면서 원래의 내용을 전부 날려버리는 동작을 자동화 한
간단한 VBA 코드입니다. (제가 짠겁니다.)

Sub use()

Dim ImagePath As String

Dim ImageFullName As String

ImagePath = Left(ActivePresentation.FullName, InStr(ActivePresentation.FullName, ".ppt") - 1)

For Each s In ActivePresentation.Slides

    s.Select

    s.Shapes.SelectAll

    ActiveWindow.Selection.Delete

    ImageFullName = ImagePath & "\슬라이드" & s.SlideNumber & ".emf"

    Set shp = s.Shapes.AddPicture2(ImageFullName, MsoTriState.msoFalse, MsoTriState.msoTrue, 0, 0)

Next s

End Sub

이걸 어떻게 써 먹는지,

왜 이런짓을 하는지....

그 설명은 생략합니다.

널리 알려져 봐야 좋을것도 없고,

보통 사람들에겐 별로 실용적이지도 않지요...

이게 뭔지 아는 분들도 부디 널리 알리지 말고 혼자 쓰시던지 하세요.