파워포인트 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 기본 글꼴 변경해서 새 문서에 적용하는 방법 ▶ 엑셀 Excel 매크로 실행과 소스 편집하기 ▶ 파워포인트 ppt 파일 슬라이드 내용 합치기 위한 방법 ▶ MS 워드 매크로 만들기, 여러 과정을 하나의 단축키로 지정하기

 

 

◎ 매크로 파일 저장하기

 

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

 

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

 

 

◎ 매크로 실행

 

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

 

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

 

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

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