파워포인트 VBA: 슬라이드 썸네일 추출하기

파워포인트 VBA: 슬라이드 썸네일 추출하기

이번 포스팅에서는 파워포인트의 VBA를 활용하여 슬라이드 썸네일을 추출하는 방법에 대해 알아보겠습니다.

파워포인트는 비즈니스 프레젠테이션에 주로 사용되며, 여러 슬라이드로 이루어진 문서를 작성하는 도구입니다. 이런 문서들을 공유하거나 인쇄하기 전에 슬라이드의 내용을 빠르게 확인할 수 있는 썸네일 이미지를 추출하면 작업 효율이 향상될 수 있습니다.

 

이를 위해 파워포인트의 VBA(Visual Basic for Applications)를 활용할 수 있습니다. VBA는 매크로 프로그래밍 언어로, 파워포인트에서는 슬라이드와 관련된 작업을 자동화할 수 있습니다.

우선 VBA 에디터를 열기 위해서는 파워포인트의 메뉴에서 '도구'를 선택한 후 '매크로'를 클릭합니다. 그런 다음, 새로운 매크로를 생성하고 VBA 코드를 작성합니다.

Sub ExtractThumbnails()
    Dim objPresentation As Presentation
    Dim objSlide As Slide
    Dim objTempSlide As Slide
    Dim i As Integer

    ' 현재 열려있는 프레젠테이션 가져오기
    Set objPresentation = ActivePresentation
    
    i = 1 ' 슬라이드 인덱스 초기화
    
    ' 슬라이드마다 반복
    For Each objSlide In objPresentation.Slides
        ' 썸네일을 추출할 임시 슬라이드 생성
        Set objTempSlide = objPresentation.Slides.Add(i, ppLayoutBlank)
        
        ' 원본 슬라이드의 크기 및 배율 설정
        objTempSlide.Width = 100
        objTempSlide.Height = 75
        
        ' 임시 슬라이드를 이미지 파일로 내보내기
        objTempSlide.Export "C:\temp\thumbnail" & i & ".jpg", "JPG"
        
        ' 임시 슬라이드 삭제
        objTempSlide.Delete
        
        i = i + 1 ' 다음 슬라이드 인덱스
    Next objSlide
End Sub

위의 코드에서는 ExtractThumbnails라는 서브루틴을 정의하고, 여기서 각 슬라이드의 썸네일을 추출하는 작업을 수행합니다.

먼저 현재 열려있는 프레젠테이션을 가져오기 위해 ActivePresentation을 사용합니다. 그리고 For Each문을 활용하여 각 슬라이드에 대해 작업을 반복합니다.

 

각 슬라이드마다 썸네일을 추출하기 위해 임시 슬라이드를 생성합니다. 이때 생성된 임시 슬라이드의 크기를 설정하여 원하는 크기의 썸네일을 추출할 수 있습니다. 예제 코드에서는 가로 100픽셀, 세로 75픽셀로 설정되어 있습니다.

추출된 썸네일은 Export 메소드를 사용하여 지정된 경로에 저장됩니다. 예제 코드에서는 "C:\temp\thumbnail.jpg" 경로에 JPG 형식으로 저장하도록 설정되어 있습니다.

 

마지막으로, 임시 슬라이드는 작업이 완료된 후 삭제합니다. 이렇게 하면 원본 프레젠테이션에는 영향을 미치지 않으면서 썸네일만을 추출할 수 있습니다.

 

위의 코드를 VBA 에디터에서 작성한 후 실행하면, 각 슬라이드의 썸네일이 지정된 경로에 저장됩니다.

이런 방식으로 파워포인트의 VBA를 활용하여 슬라이드 썸네일을 추출할 수 있습니다. 이 기능을 활용하면 프레젠테이션을 작성할 때 많은 시간을 절약할 수 있으며, 효율적인 작업을 수행할 수 있습니다.

썸네일 추출뿐만 아니라 VBA를 활용하여 다양한 작업을 수행할 수 있으므로, 파워포인트의 VBA에 대해 더욱 탐구해보는 것을 추천합니다.

감사합니다.