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

요약

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

자세한 내용

Microsoft는 모든 보증, 그림에 대 한 묵시적인 보증. 이 포함 되지만 상품성 또는 특정 목적에의 적합성의 묵시적된 보증에 국한 되지는 않습니다. 이 문서는 작성 하 고 프로시저를 디버깅할 데 사용 되는 도구 및 여기서 설명 하는 프로그래밍 언어에 익숙한 가정 합니다. Microsoft 지원 엔지니어는 특정 프로시저의 기능을 설명할 수 있지만 추가 기능을 제공 하거나 특정 요구 사항에 맞도록 프로시저를 구성 하는 이러한 예제를 수정 하지 않습니다. 참고: 다음 매크로 예제에서는 PowerPoint 에서만 작동 합니다. Visual Basic for Applications 매크로 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 기술 자료의 다음 문서를 참조 하려면 아래 문서 번호를 클릭 합니다.
212536 OFF2000: 기술 자료 문서에서 샘플 코드를 실행 하는 방법
속성

문서 ID: 222797 - 마지막 검토: 2017. 2. 6. - 수정: 1

피드백