슬라이드쇼 2개를 연동해서 실행

1. 일단 슬라이드쇼를 두 개 실행하려면

각각의 슬라이드쇼 설정에서 '웹형식으로 진행'으로 설정합니다.

​

2. 한쪽 ppt에 VBA코드를 추가합니다.

Alt-F11 창에서 삽입메뉴에서 모듈을 추가하고 아래 코드를 붙여 넣습니다.

Option Explicit

'슬라이드쇼 페이지가 바뀔 때마다 호출되는 파워포인트 함수
Sub OnSlideShowPageChange(SSW As SlideShowWindow)

    Dim SW As SlideShowWindow
    Dim pos As Long
     
    '현재 쇼의 위치
    pos = SSW.View.CurrentShowPosition
    
    '모든 쇼 순환
    For Each SW In SlideShowWindows
        '만약 현재 쇼가 아니면
        If Not SW Is SSW Then _
             SW.View.GotoSlide pos, msoTrue ' 쇼 위치 이동(초기화)
    Next SW
    
End Sub​

 

만약 같은 페이지로 이동하는 것이 아니라 현재 슬라이드쇼 페이지가 바뀌면

단순히 다른 슬라이드쇼는 현재 슬라이드 다음 페이지로 이동하게 하려면

If Not SW Is SSW Then _

SW.View.GotoSlide pos, msoTrue ' 쇼 위치 이동(초기화)

위 구문을

If Not SW Is SSW Then SW.View.Next 로 바꾸면 됩니다.

​

 

 

3. 2개의 쇼를 각각 시작하고 Win키+ 왼쪽 화살표/오른쪽화살표로 두가지 쇼화면을 화면 양쪽에 가득 채웁니다.

​

4. 어느쪽이든 페이지가 바뀌면 다른 쇼화면도 페이지가 바뀌게 됩니다.

​

위와 같은 화면 구성이면 디자인>슬라이드크기에서 세로 슬라이드로 설정하는것이 좋겠습니다.

​

아래는 시연 영상입니다.

 

 

단, 화면전환 효과를 추가하면 작동이 어려워집니다.

 

아래는 샘플 파일입니다.

SlideShowSync1.pptm

0.15MB

SlideShowSync2.pptx

0.14MB

 

추가.

발표자보기 동작시 슬라이드쇼 페이지 싱크 동작을 중지하고 싶은 경우: 링크

SlideShowSync1.pptm

0.16MB