경로와 파일 이름을 각 슬라이드에 추가 예제 코드

기술 자료 번역 기술 자료 번역
기술 자료: 222797 - 이 문서가 적용되는 제품 보기.
모두 확대 | 모두 축소

이 페이지에서

요약

이 문서에서는 예제를 Visual Basic 프레젠테이션의 각 슬라이드에 바닥글 경로와 파일 이름을 추가하는 매크로를 Sub 프로시저 포함합니다. 이름 또는 프레젠테이션의 위치를 변경하면 바닥글 다시 업데이트하려면 매크로를 실행할 수 있습니다.

추가 정보

Microsoft는 묵시적인 보증 없이 목적으로만 프로그래밍 예제를 제공합니다. 이 포함되지만, 상품성 또는 특정 목적에의 적합성에 대한 묵시적인된 보증이 제한되지 않습니다. 이 문서에서는 만들려면 및 프로시저를 디버깅하는 데 사용되는 도구 및 여기서 설명하는 프로그래밍 언어에 익숙한 사용자를 대상으로 합니다. Microsoft 지원 엔지니어는 사용자에게 도움이 되도록 특정 절차에 대한 기능을 설명할 수 있지만 추가 기능을 제공하거나 특정 요구 사항에 맞도록 프로시저를 구성하지는 이 예제를 수정하지 않습니다. 참고: 다음 매크로 예제에서는 PowerPoint에서 경우에만 작동합니다. VBA 매크로에 의해 Microsoft PowerPoint Viewer가 지원되지 않습니다. 자세한 내용은 Microsoft 기술 자료의 다음 문서를 참조하십시오.

예제 Visual Basic 프로시저

   Sub UpdatePath()

      ' Macro to add the path and file name to each slide's footer.
      Dim PathAndName As String
      Dim FeedBack As Integer

      ' Place a message box warning prior to replacing footers.
      FeedBack = MsgBox( _
         "This Macro replaces any existing text that appears " & _
         "within your current footers " & Chr(13) & _
         "with the presentation name and its path. " & _
         "Do you want to continue?", vbQuestion + vbYesNo, _
         "Warning!")

      ' If no is selected in the dialog box, quit the macro.
      If FeedBack = vbNo Then
         End
      End If

      ' Gets the path and file name and converts the string to lowercase.
      PathAndName = LCase(ActivePresentation.Path & "\" & _
         ActivePresentation.Name)

      ' Checks whether there is a Title Master, and if so, updates the
      ' path.
      If ActivePresentation.HasTitleMaster Then
         With ActivePresentation.TitleMaster.HeadersFooters
            With .Footer
               .Text = PathAndName
            End With
         End With
      End If

    ' Updates the slide master.
      With ActivePresentation.SlideMaster.HeadersFooters
         With .Footer
            .Text = PathAndName
         End With
      End With

 ' Updates the individual slides that do not follow the master.
Dim X As Integer 
For X = 1 to ActivePresentation.Slides.Count 
     With ActivePresentation.Slides(X).HeadersFooters 
          With .Footer 
                .Text = PathAndName 
          End With
     End With 
 Next
     
   End Sub
				

참조

이 문서에 나와 있는 예제 코드를 사용하는 방법에 대한 자세한 내용은 아래 문서 번호를 눌러 Microsoft 기술 자료에 있는 문서를 클릭하십시오.
212536OFF2000: 기술 자료 문서의 예제 코드를 실행하는 방법

속성

기술 자료: 222797 - 마지막 검토: 2007년 1월 24일 수요일 - 수정: 3.4
본 문서의 정보는 다음의 제품에 적용됩니다.
  • Microsoft PowerPoint 2004 for Mac
  • Microsoft Office PowerPoint 2003
  • Microsoft PowerPoint 2002 Standard Edition
  • Microsoft PowerPoint 2001 for Mac
  • Microsoft PowerPoint 2000 Standard Edition
  • Microsoft PowerPoint 97 Standard Edition
  • Microsoft PowerPoint X for Mac
키워드:?
kbmt kbcode kbdtacode kbhowto kbmacro kbprogramming KB222797 KbMtko
기계 번역된 문서
중요: 본 문서는 전문 번역가가 번역한 것이 아니라 Microsoft 기계 번역 소프트웨어로 번역한 것입니다. Microsoft는 번역가가 번역한 문서 및 기계 번역된 문서를 모두 제공하므로 Microsoft 기술 자료에 있는 모든 문서를 한글로 접할 수 있습니다. 그러나 기계 번역 문서가 항상 완벽한 것은 아닙니다. 따라서 기계 번역 문서에는 마치 외국인이 한국어로 말할 때 실수를 하는 것처럼 어휘, 구문 또는 문법에 오류가 있을 수 있습니다. Microsoft는 내용상의 오역 또는 Microsoft 고객이 이러한 오역을 사용함으로써 발생하는 부 정확성, 오류 또는 손해에 대해 책임을 지지 않습니다. Microsoft는 이러한 문제를 해결하기 위해 기계 번역 소프트웨어를 자주 업데이트하고 있습니다.

피드백 보내기

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com