PPT 자동 페이지 넘버링! VBA 코드로 A3 반으로 나눠 자동 페이지 번호 매기기

PPT 자동 페이지 넘버링! VBA 코드로 A3 반으로 나눠 자동 페이지 번호 매기기

PPT에서 A3를 반으로 나눠 A4 형식으로 페이지 번호를 자동으로 생성하고 싶나요?

매번 수동으로 페이지 번호를 넣는 건 너무 번거롭죠!

이번 포스팅에서는 PPT에서 VBA 코드를 활용해, A3 슬라이드를 A4 두 페이지로 나누고, 숫자만 자동으로 증가하는 페이지 번호(01, 02, 03...)를 생성하는 방법을 알려드립니다.

 

✔ 한 번 실행하면 자동으로 모든 페이지 번호가 입력!
✔ 하단에서 정확히 0.9cm 위에 배치!
✔ A4 세로 중앙 정렬로 깔끔하게 표시!
✔ VBA 코드를 활용한 완전 자동화 솔루션!

 

이제 PPT 페이지 넘버링을 자동화하는 법을 알아볼까요?

✅ 정확한 중앙 & 하단 배치 & 숫자만 자동 증가!

✔ A3 가로 슬라이드를 반으로 나눠서 A4 세로 중앙 정렬
✔ 하단에서 0.9cm (25.51pt) 위쪽에 배치
✔ 페이지 번호 형식: `"01", "02", "03", ... 자동 증가 (숫자만 증가, 장 없음!)**
✔ 위치 조정:

• 왼쪽(A4 첫 번째 페이지) 중앙 정렬
• 오른쪽(A4 두 번째 페이지) 중앙 정렬
  ✔ 글씨 크기: 9pt
  ✔ 글씨 색상: #888888 (RGB 136, 136, 136)
  ✔ 폰트: "KoPub 바탕체 Medium"

 

🔹 최종 VBA 코드 (정확한 위치 & 숫자만 자동 증가!)

적용 방법

1️⃣ [ALT] + [F11]을 눌러 VBA 편집기(Visual Basic for Applications) 실행
2️⃣ [삽입] → [모듈] 클릭
3️⃣ 아래 코드를 입력

Sub AddPageNumbersOnlyNumbers()
      Dim slideIndex As Integer
      Dim shapeLeft As Shape
      Dim shapeRight As Shape
      Dim slideCount As Integer
      Dim leftX As Single, rightX As Single, bottomY As Single
      Dim pageNum As Integer

      slideCount = ActivePresentation.Slides.Count
      pageNum = 1 ' 페이지 번호 시작 값

      ' A3 가로 기준 A4 세로 중앙 위치
      bottomY = 842 - 25.51 ' A4 하단에서 0.9cm(25.51pt) 위쪽 위치
      leftX = (595 / 2) - 50 ' 왼쪽 A4 세로 중앙
      rightX = 595 + (595 / 2) - 50 ' 오른쪽 A4 세로 중앙

      For slideIndex = 1 To slideCount
            With ActivePresentation.Slides(slideIndex)
                  ' 왼쪽(A4 첫 번째 페이지) 중앙 정렬
                  Set shapeLeft = .Shapes.AddTextbox(msoTextOrientationHorizontal, leftX, bottomY, 100, 20)
                  shapeLeft.TextFrame.TextRange.Text = Format(pageNum, "00")
                  shapeLeft.TextFrame.TextRange.Font.Size = 9
                  shapeLeft.TextFrame.TextRange.Font.Name = "KoPub 바탕체 Medium"
                  shapeLeft.TextFrame.TextRange.Font.Color = RGB(136, 136, 136)
                  shapeLeft.TextFrame.TextRange.ParagraphFormat.Alignment = msoAlignCenter

                  pageNum = pageNum + 1 ' 페이지 번호 증가
                  ' 오른쪽(A4 두 번째 페이지) 중앙 정렬
                  Set shapeRight = .Shapes.AddTextbox(msoTextOrientationHorizontal, rightX, bottomY, 100, 20)
                  shapeRight.TextFrame.TextRange.Text = Format(pageNum, "00")
                  shapeRight.TextFrame.TextRange.Font.Size = 9
                  shapeRight.TextFrame.TextRange.Font.Name = "KoPub 바탕체 Medium"
                  shapeRight.TextFrame.TextRange.Font.Color = RGB(136, 136, 136)
                  shapeRight.TextFrame.TextRange.ParagraphFormat.Alignment = msoAlignCenter
                 
                   pageNum = pageNum + 1 ' 다음 페이지 번호 증가
           End With
      Next slideIndex
End Sub

4️⃣ [F5]를 눌러 실행
5️⃣ 각 슬라이드(A3)를 반으로 나누어, A4 세로 중앙 & 하단 0.9cm 위에 자동으로 01, 02, 03 ... 숫자만 증가하는 페이지 번호가 들어감!

 

A3 페이지 자동 넘버링

 

이제 PPT에서 페이지 번호를 일일이 입력할 필요 없이, VBA 코드 한 번 실행하면 자동으로 페이지 넘버링이 적용됩니다!

이 방법을 활용하면 A3 슬라이드를 A4로 나눠 책처럼 페이지 번호를 매길 때도 손쉽게 작업할 수 있어요.

 

✅ 여러 장(Ⅰ~Ⅶ)으로 구성된 프로젝트에도 활용 가능!
✅ 번호만 자동 증가하는 방식으로 적용 가능!
✅ VBA를 활용해 업무 효율을 극대화!

 

 

"이 포스팅은 쿠팡 파트너스 활동의 일환으로, 이에 따른 일정액의 수수료를 제공받습니다."