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

Office 2003에 대한 지원이 종료되었습니다.

Microsoft는 2014년 4월 8일 Office 2003에 대한 지원을 종료했습니다. 이러한 변경에 따라 해당 소프트웨어 업데이트 및 보안 옵션이 영향을 받습니다. 사용자에게 미치는 영향 및 계속 보호를 받는 방법에 대해 알아보십시오.

중요: 본 문서는 전문 번역가가 번역한 것이 아니라 Microsoft 기계 번역 소프트웨어로 번역한 것입니다. Microsoft는 번역가가 번역한 문서 및 기계 번역된 문서를 모두 제공하므로 Microsoft 기술 자료에 있는 모든 문서를 한글로 접할 수 있습니다. 그러나 기계 번역 문서가 항상 완벽한 것은 아닙니다. 따라서 기계 번역 문서에는 마치 외국인이 한국어로 말할 때 실수를 하는 것처럼 어휘, 구문 또는 문법에 오류가 있을 수 있습니다. Microsoft는 내용상의 오역 또는 Microsoft 고객이 이러한 오역을 사용함으로써 발생하는 부 정확성, 오류 또는 손해에 대해 책임을 지지 않습니다. Microsoft는 이러한 문제를 해결하기 위해 기계 번역 소프트웨어를 자주 업데이트하고 있습니다.

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: 기술 자료 문서의 예제 코드를 실행하는 방법
모듈의 사용자 양식 메시지 상자를 경로 이름을 파일 이름 프로그래밍 9.00 ppt9 VBA vbe ppt2k powerpt vba2k ppt9.0 ppt2000 프로그램

경고: 이 문서는 자동으로 번역되었습니다.

속성

문서 ID: 222797 - 마지막 검토: 12/05/2015 13:27:06 - 수정: 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

  • kbnosurvey kbarchive kbmt kbcode kbdtacode kbhowto kbmacro kbprogramming KB222797 KbMtko
피드백