본문 바로가기
■ 칼퇴를 위한 VBA : 사례/- VBA for 파워포인트

파워포인트 VBA: 자동 재생 설정하기

by 포탈메이커 2023. 7. 1.

파워포인트 VBA: 자동 재생 설정하기

 

파워포인트(VBA)를 사용하여 프레젠테이션 파일에서 자동 재생 설정을 하려면 어떻게 해야 할까요? 이 글에서는 파워포인트 VBA를 사용하여 프레젠테이션 슬라이드를 자동으로 재생하는 방법과 관련된 코드 예제를 제공하고자 합니다.

1. VBA 에디터 열기

먼저, 파워포인트 파일을 열어 VBA 에디터를 엽니다. VBA 에디터를 열기 위해서는 "개발" 탭에서 "Visual Basic"을 클릭하면 됩니다. VBA 에디터는 파워포인트 파일에 포함된 마크로 코드를 편집하는 도구입니다.

2. VBA 코드 입력

VBA 에디터를 열었다면, 모듈을 추가하고 해당 모듈에 VBA 코드를 입력해야 합니다. 모듈을 추가하기 위해서는 "삽입" 메뉴에서 "모듈"을 선택하면 새로운 모듈이 생성됩니다. 생성된 모듈에 다음과 같은 VBA 코드를 입력하세요.

Sub AutoPlaySlides()
    Dim Slide As Slide
    
    For Each Slide In ActivePresentation.Slides
        Slide.SlideShowTransition.AdvanceOnTime = True
        Slide.SlideShowTransition.AdvanceTime = 1 ' 여기에 슬라이드 전환 시간(초) 입력
    Next Slide
    
    ActivePresentation.SlideShowSettings.Run.View.ShowToolbar = False ' 툴바 감추기
    ActivePresentation.SlideShowSettings.Run.View.State = ppSlideShowRunning
End Sub

위의 코드에서 AdvanceTime에는 각 슬라이드가 자동으로 전환되는 시간(초)을 입력하세요. 예를 들어, 1로 설정하면 각 슬라이드는 1초마다 자동으로 전환됩니다.

3. 프레젠테이션에서 자동 재생 설정 실행

VBA 코드를 입력한 후, "디자인" 탭에서 "마크로"를 클릭하여 마크로 목록을 열고 생성한 VBA 코드를 선택하세요. 그리고 "실행" 버튼을 클릭하면 파워포인트 프레젠테이션이 자동으로 실행되고 슬라이드가 자동으로 전환됩니다.

4. 자동 재생 설정 변경 또는 해제

만약, 자동 재생 설정을 변경하거나 해제하고 싶다면, VBA 에디터로 돌아가서 코드를 수정하거나 삭제하면 됩니다. 예를 들어, AdvanceOnTimeFalse로 설정하면 자동 재생이 해제됩니다.

마무리하며...

이렇게 파워포인트 VBA를 사용하여 프레젠테이션 슬라이드를 자동으로 재생하는 방법을 알아봤습니다. 프레젠테이션을 자동으로 재생하면 사용자가 직접 클릭하지 않아도 자동으로 슬라이드가 전환되므로 편리합니다. VBA를 활용하여 파워포인트 파일을 보다 동적이고 자동화된 형태로 구성할 수 있습니다.