Please Enable JavaScript!
Gon[ Enable JavaScript ]

파워포인트 PPT 매크로 이용해서 페이지 이동하기

파워포인트(PowerPoint)
반응형

파워포인트도 엑셀처럼 단순 반복 작업일 경우 매크로를 짜서 자동 기능을 구현할 수 있습니다. 오늘 매크로로 구현할 내용은 슬라이드 수가 많을 경우 페이지 번호만 입력하면 바로 이동할 수 있는 기능입니다. 페이지 입력창을 띄울 것이며, 숫자가 아닐 경우 동작하지 않도록 했습니다.

 

 

파워포인트에서 처음 매크로를 사용하시는 분들은 개발 도구 탭이 나와 있지 않을 겁니다. 엑셀처럼 파워포인트에서 개발 도구 탭을 이용하려면 리본 사용자 지정 옵션으로 가야 합니다. [파일] > [옵션] 메뉴를 선택해서 파워포인트 옵션창을 띄웁니다.

파워포인트 PPT 매크로 이용해서 페이지 이동하기

 

파워포인트 옵션창의 왼쪽 메뉴 목록에서 [리본 사용자 지정]을 선택합니다. 그리고 오른쪽 화면에서 오른쪽에 있는 기본 탭 중 [개발 도구]를 선택합니다. 왼쪽에서 오른쪽으로 추가할 필요는 없습니다. 단지 체크가 안되어 있을 뿐입니다

파워포인트 PPT 매크로 이용해서 페이지 이동하기

 

옵션에서 개발 도구 탭이 보이도록 설정했다면 화면으로 돌아와서 매크로 작성을 위해 [개발 도구] > [매크로] 리본 메뉴를 클릭합니다

파워포인트 PPT 매크로 이용해서 페이지 이동하기

 

매크로 생성 팝업창에서 이름을 넣고 만들기 버튼을 눌러 실행 함수를 만듭니다. 매크로 실행 소스가 들어갈 틀을 만드는 것입니다

파워포인트 PPT 매크로 이용해서 페이지 이동하기

 

매크로 함수가 만들어 졌으면 아래 소스를 붙여 넣습니다. 아래 소스를 단계별로 간단하게 설명하겠습니다. 나머지는 모두 체크하는 소스이고 지정한 슬라이드로 이동하게 해 주는 핵심 소스는 ActivePresentation.Slides(nPageNo).Select 입니다.

 

1. 입력 박스를 띄운다. InputBox() 함수 실행

2. 숫자인지 아닌지 판단한다. If IsNumeric(sPageNo) Then

3. 숫자일때

  3.1. 입력 박스에 들어온 Text를 비교가능 하도록 변환, nPageNo = Val(sPageNo)

  3.2. 이동하고자 하는 페이지 번호가 전체 슬라이드 개수를 넘어서는지 체크

  3.3. 페이지 이동, ActivePresentation.Slides(nPageNo).Select

4. 숫자가 아닐 때 메시지 출력 

Sub 페이지이동()
   
    Dim sPageNo As String ' 입력받은 페이지 번호
    Dim nPageNo As Integer ' 페이지 번호 숫자 변환
   
    sPageNo = InputBox("어느 페이지로 이동하고 싶습니까?")
   
    If IsNumeric(sPageNo) Then
        nPageNo = Val(sPageNo)
        If nPageNo < 1 Or nPageNo > ActivePresentation.Slides.Count Then
            MsgBox "전체 페이지 개수를 벗어났습니다."
            Exit Sub
        End If
       
        ' 페이지 이동
        ActivePresentation.Slides(nPageNo).Select
    Else
        MsgBox "숫자를 입력하셔야 합니다."
    End If
   
End Sub

 

위의 소스를 붙여 넣으면 아래 그림과 같이 됩니다. 이제 매크로 실행을 위한 준비는 끝났습니다. 매크로를 실행해서 입력 박스에 페이지 번호만 입력하면 바로 이동하게 됩니다

파워포인트 PPT 매크로 이용해서 페이지 이동하기

 

아래는 참고하면 좋을 만한 글들의 링크를 모아둔 것입니다. ※
파워포인트 PPT 문서 비밀번호 설정과 다양한 파일 형식으로 저장하기
파워포인트 PPT 기본 글꼴 변경해서 문서에 적용하는 방법
엑셀 Excel 매크로 실행과 소스 편집하기
파워포인트 ppt 파일 슬라이드 내용 합치기 위한 방법
MS 워드 매크로 만들기, 과정을 하나의 단축키로 지정하기

 

 



매크로 파일 저장하기

 

다음은 처음 매크로 파일을 만들었을 때 초보자들이 실수하는 것에 대한 내용을 이야기 하겠습니다. 매크로가 포함된 문서는 기존 파워포인트 문서의 확장자와 틀립니다. 그러니까 저장할 때 pptx 가 아닌 pptm 으로 저장해야 합니다. 아무 생각 없이 기존에 저장하던 확장자로 선택하게 되면 기껏 작성했던 모든 소스는 날아가게 됩니다. 아래 그림과 같이 매크로를 작성한 문서를 저장할 때 경고 메시지를 날리는데 []를 누르는 것이 아니라 [아니오]로 누른 후 파일 형식을 변경해 줘야 합니다

파워포인트 PPT 매크로 이용해서 페이지 이동하기

 

위에서 이야기 했듯이 pptx 가 아닌 매크로 내용이 저장될 수 있도록 파일 형식을 pptm 으로 변경해서 저장해 주세요.

파워포인트 PPT 매크로 이용해서 페이지 이동하기

 

 

매크로 실행

 

이제 페이지 이동을 손쉽게 하기 위해서 만든 매크로가 제대로 되는지 알아 봐야겠죠. 개발 도구 > 매크로 > 실행 버튼을 눌러 이전에 만든 페이지 이동 함수를 실행합니다

파워포인트 PPT 매크로 이용해서 페이지 이동하기

 

그럼 소스에 구현한 대로 이동할 페이지 번호를 입력할 창이 뜨게 됩니다. 여기에 문자가 아닌 숫자를 입력하고 확인을 누릅니다

파워포인트 PPT 매크로 이용해서 페이지 이동하기

 

그럼 바로 입력한 페이지 번호에 해당하는 슬라이드가 선택이 됩니다

파워포인트 PPT 매크로 이용해서 페이지 이동하기

아래는 참고하면 좋을 만한 글들의 링크를 모아둔 것입니다. ※
파워포인트 PPT 문서 비밀번호 설정과 다양한 파일 형식으로 저장하기
파워포인트 PPT 기본 글꼴 변경해서 문서에 적용하는 방법
엑셀 Excel 매크로 실행과 소스 편집하기
파워포인트 ppt 파일 슬라이드 내용 합치기 위한 방법
MS 워드 매크로 만들기, 과정을 하나의 단축키로 지정하기
반응형
Posted by 녹두장군1
,