엑셀과 달리 파워포인트에서는 매크로로 실행하더라도 Ctrl+Z를 눌러 매크로 실행 전 상태로 실행취소가 가능합니다. 그런데, 매크로를 연속해서 실행하고, 바로 1단계 이전으로 되돌리고 싶은데 Ctrl+Z를 누르면, 전체 매크로 실행전으로 되돌아가버립니다. 물론 매크로 실행 후 파워포인트 작업 창에서 무언가 작업을 하게 되면 실행취소 지점이 생길 수는 있습니다만, 번거로운 일이지요.
만약 각 매크로를 실행한 후, 각단계마다 실행 취소 지점을 강제로 만들어줄 수 있다면 여러가지 매크로를 실행하더라도 1단계씩 실행취소가 가능할 것입니다.
아래에 두 매크로를 실행하신 후, Ctrl+Z를 눌러보시면 쉽게 차이를 이해하실 수 있습니다.
첫번째 '전체되돌리기()'를 실행하면, 5개의 도형이 생성되고, 실행취소 또는 Ctrl+Z 키를 누르면, 5개의 도형이 모두 사라지지만, 두번째 '단계별되돌리기()'를 실행한 후, 실행취소를 반복하게 되면 생성된 순서의 역순으로 1개씩 사라지는 것을 알 수 있습니다.
-----------------------------------------------------------
Sub 전체되돌리기()
Dim tSlide As Slide
Set tSlide = ActiveWindow.Selection.SlideRange(1)
For i = 1 To 5
tSlide.Shapes.AddShape i, 100 * i, 100, 80, 80
Next
End Sub
-----------------------------------------------------------
Sub 단계별되돌리기()
Dim tSlide As Slide
Set tSlide = ActiveWindow.Selection.SlideRange(1)
For i = 1 To 5
tSlide.Shapes.AddShape i, 100 * i, 100, 80, 80
Application.StartNewUndoEntry
Next
End Sub
-----------------------------------------------------------
Sub 전체되돌리기()
Dim tSlide As Slide
Set tSlide = ActiveWindow.Selection.SlideRange(1)
For i = 1 To 5
tSlide.Shapes.AddShape i, 100 * i, 100, 80, 80
Next
End Sub
-----------------------------------------------------------
Sub 단계별되돌리기()
Dim tSlide As Slide
Set tSlide = ActiveWindow.Selection.SlideRange(1)
For i = 1 To 5
tSlide.Shapes.AddShape i, 100 * i, 100, 80, 80
Application.StartNewUndoEntry
Next
End Sub
-----------------------------------------------------------
댓글 없음:
댓글 쓰기
의견이나 질문이 있으신 분은 언제든지 댓글을 달아주세요~