다음 슬라이드로 이동하기 전에 파워 포인트 슬라이드간에 특정 전환을 설정하는 매크로

Question

모든 슬라이드에서 "왼쪽에서 밀어 내기"전환을 설정 한 슬라이드 쇼에서 작업하고 있습니다. 이전 슬라이드로 돌아가려면 모든 슬라이드에 단추를 삽입하고 단추를 누르면 "오른쪽에서 밀어 내기"로 전환을 전환하고 이전 슬라이드로 이동 한 다음 다시 "왼쪽에서 누르기"로 전환하십시오. 내가 쓴, 그러나 그것은 작동하지 않습니다

Sub previousslide() 
With ActivePresentation.SlideShowWindow.View 
    .Slide.SlideShowTransition.EntryEffect = ppEffectPushRight 
    .GotoSlide (ActivePresentation.SlideShowWindow.View.Slide.SlideIndex - 1) 
    .Slide.SlideShowTransition.EntryEffect = ppEffectPushLeft 
End Sub 

감사

Answer 1

당신이 누락 블록으로로 엔드를 완료 '로 끝나는'. 또한 활성 프레젠테이션이있는 경우에만 작동하기 때문에 ActivePresentation 개체를 참조하지 않습니다. .PPSX/.PPSM 파일을 실행하는 동안 위의 코드를 실행하면 코드가 실패합니다. 아래 코드는 참조를 제거합니다.

Sub PreviousSlide() 
With SlideShowWindows(1).View 
    .Slide.SlideShowTransition.EntryEffect = ppEffectPushRight 
    .GotoSlide (SlideShowWindows(1).View.Slide.SlideIndex - 1) 
    .Slide.SlideShowTransition.EntryEffect = ppEffectPushLeft 
End With 
End Sub