PowerPoint 2007에서 총 슬라이드 수 삽입

PowerPoint 프레젠테이션의 총 슬라이드 수를 각주에 삽입 할 수 있습니까? 자동화 된 방법을 찾고 있습니다.

물론 바닥 글을 편집하여 수동으로 넣을 수는 있지만 슬라이드를 늘리거나 줄이면 조정해야합니다. 그리고 이것은 우리가 항상 잊어 버린 것입니다.

Microsoft 의 도움 으로 수동으로 수행하는 방법에 대해 설명합니다. 나는 파워 포인트가 그것을 가지고 있지 않다는 것을 믿을 수 없다 ...

작성한 모든 프레젠테이션에 자동으로 추가되는 옵션 또는 구성 설정을 찾고 있다면 하나도 없습니다. 그러나 머리글 또는 바닥 글을 편집하면 자동으로 슬라이드 번호를 추가하여 모든 슬라이드에 표시 할 수 있습니다.

http://office.microsoft.com/en-us/powerpoint/HA101181931033.aspx

이것은 기본적으로 전체 실행 가이드로 확장 된 pwrpntuser 의 코드 입니다.

매크로 만들기

1. PowerPoint 2007 이상에서는 프레젠테이션을 .pptm확장명 (매크로가 허용 된 표준 프레젠테이션)으로 저장했는지 확인하십시오 .

2. 이 기사 ^1에 설명 된 방법을 사용하여 슬라이드 번호를 추가했는지 확인하십시오 .

3. " 매크로 "창을 엽니 다 ² . PowerPoint 2007 이상에서는 마지막 도구 모음 그룹 에서 View탭 (마지막)을 Macro클릭 한 다음 버튼을 클릭하십시오 . Eariler 버전에서는 Tools > Macro메뉴에서 선택하십시오 .

4. 매크로 이름 (예 :)을 입력하고을 PageCountUpdater클릭하십시오 Create.

5. 와 사이에 매크로 코드 ( pwrpntuser 의 답변 또는 아래)를 붙여 넣습니다 . 가장 들여 쓰기 된 줄을 귀하의 언어로 바꾸 십시오.Sub PageCountUpdater()End Subvanof

6. 매크로를 저장하고 Microsoft Visual Basic for Applications를 닫습니다. PowerPoint로 돌아갑니다.

끝났습니다. 삽입 할 코드 (전체 및 수정 된 "글 루어") :

Sub PageCountUpdater()
    Dim s As Slide
    Dim shp As Shape

    For Each s In ActivePresentation.Slides
        s.DisplayMasterShapes = True
        s.HeadersFooters.SlideNumber.Visible = msoTrue

        For Each shp In s.Shapes
            If Left(shp.Name, 12) = "Slide Number" Then
                shp.TextFrame.TextRange.Text = s.SlideNumber & " of " & ActivePresentation.Slides.Count
            End If

        Next
    Next
End Sub

매크로 실행

1. " 매크로 "창을 다시여십시오.

2. 저장된 PageCountUpdater매크로를 선택 하고를 누르십시오 Run.

매번 수동으로이 작업을 수행해야합니다. 키보드 단축키가 가장 좋습니다. 그러나 한 대의 컴퓨터에서 20 달러로 시작하는 상용 플러그인을 제외하고는 PowerPoint 바로 가기를 변경할 수있는 방법이 없습니다. 자세한 내용은 이 기사 또는 이 기사의 끝 부분을 참조 하십시오.

매크로 삭제

이 매크로는 필요할 때만 실행됩니다. 라이브 매크로가 아닙니다. 실제 슬라이드 수로 필드를 업데이트합니다. 필드 자체는 표준 텍스트 필드입니다. 마법이 없습니다. 즉, 파일을 쉽게 다시 변환 .pptx하고이 매크로를 버릴 수 있습니다. 확실 해지면 프레젠테이션이 완료되고 더 이상 슬라이드를 추가하지 않을 것입니다. 일단 매크로가 제거되면 필드는 값을 그대로 유지하면서 제자리에 유지됩니다.

많은 사용자가 매크로가있는 문서와 많은 프리젠 테이션 장소, 박람회, 회의 등을 좋아하지 않으므로 .pptm파일 을 실행할 수 없으므로 편리 합니다.

이 매크로는 수동으로 제거하더라도 모든 슬라이드에서 제목 필드를 제외하고 (제목 1을 제외하고 끝에 각주 1 참조) 다시 생성하기 때문에 좋습니다. 따라서 마지막 슬라이드 수와 슬라이드 순서를 확인한 후 제거 할 수 있습니다.

매크로 가능 파일 열기

.pptm확장 기능과 매크로를 내부 에 유지하기로 결정한 경우 매크로를 비활성화 한 상태로이 문서를 항상 열어야하며, Enable macros기본 설정으로 실행하는 경우 매번 클릭 하여 활성화해야합니다.

문서가 자신의 것으로, 악의적 인 코드가없고 문서가 안전한 위치 (예 : 일부 또는 공유 폴더가 아님)에 저장되어 있다고 믿는 경우 각 Office 프로그램 설정을 변경하여이 파일을 항상 열 수 있습니다 매크로가 활성화되었습니다.

가장 쉬운 방법은 매크로 사용 프레젠테이션이있는 폴더를 추가하여 PowerPoint의 위치를 ​​보호하는 것입니다.

이것을하기 위해:

1. File탭, Options버튼, Trust Center섹션 및 Trust Center Settings버튼을 클릭 하십시오 .

2. Trusted locations섹션 (초)으로 이동하여 Add new location...버튼을 클릭하십시오 .

3. Path필드에 폴더 경로를 붙여 넣거나 선택 하고 선택적으로 추가 된 위치의 모든 하위 폴더도 신뢰할 수있는 것으로 취급되는지 확인합니다.

4. OK열린 창을 모두 확인하고 닫으 려면 세 번 클릭하십시오 . 매크로 사용 가능 문서를 다시여십시오.

이 시점에서 방금 추가 한 위치에서 열린 모든 문서에 경고가 표시되지 않아야하며 항상 매크로가 활성화 된 상태에서 열어야합니다. 이 문제에 대한 자세한 내용은 이 Office.com 지원 문서를 참조하십시오 .

각주

^하나는 _{파워 포인트의 대부분의 버전에서 의미하는 제목 슬라이드 로 판단한다 프리젠 테이션의 첫 번째 슬라이드 하지만 같은 어떤 슬라이드 제목 슬라이드로 스타일 . 새 슬라이드를 삽입 할 때 다른 슬라이드 유형을 볼 수 있습니다. 즉, 제목으로 스타일이 지정된 슬라이드가없는 경우 모든 슬라이드에 페이지 번호가 추가됩니다. 반대로 , 다른 섹션이나 블록을 표시하기 위해 프레젠테이션 내에서 많은 제목 슬라이드 를 사용한 경우 모든 슬라이드 에서 번호가 누락됩니다.}

² _{모든 GUI 요소의 이름은 폴란드어 버전의 PowerPoint 2010에서 즉시 번역됩니다. 다른 릴리스 또는 언어 버전의 PowerPoint에서는 약간 다를 수 있습니다. 그에 따라 조정하십시오.}

먼저 모든 슬라이드에 정상적인 슬라이드 번호가 있는지 확인하십시오. 그런 다음 모듈을 추가하고 다음 코드를 삽입하고 F5 (시작)를 누르십시오.

Dim s As Slide
Dim shp As Shape

For Each s In ActivePresentation.Slides
    s.DisplayMasterShapes = True
    s.HeadersFooters.SlideNumber.Visible = msoTrue

    For Each shp In s.Shapes
        If Left(shp.Name, 12) = "Slide Number" Then
            shp.TextFrame.TextRange.Text = s.SlideNumber & " van " & ActivePresentation.Slides.Count
        End If

    Next
Next

Bill Dilworth의 PowerPoint 용 애드 인 은 사용중인 PowerPoint 버전에 따라 도움이 될 수 있습니다. 이것이 바로 그 목적입니다.

마스터 슬라이드의 텍스트 상자에 <#> of x을 (를) 넣고 슬라이드에 "슬라이드 번호"를 추가했다는 웹 페이지가 있습니다. 잠시 작동하도록했지만 다시 움직였을 때 더 이상 전체 슬라이드 번호를 x에 채우지 않았습니다. 그러나이 솔루션은 대부분의 사용자에게 적합 할 수 있습니다.

다음은 '슬라이드 # / ##'로 바닥 글을 업데이트하는 약간 다른 코드입니다. 숨겨진 슬라이드를 총계로 세지 않기로 결정했습니다. 이 코드는 슬라이드 1의 숨겨진 동작 버튼 위에서 마우스로 실행됩니다.

Dim SlideTotal As Integer
Dim VisibleSlides As Integer
Dim SlideNum As Integer
Dim i As Integer

With ActivePresentation

    SlideTotal = .Slides.Count

    For i = 1 To SlideTotal
        If .Slides(i).SlideShowTransition.Hidden = msoFalse Then
            VisibleSlides = 1 + VisibleSlides
        End If
    Next

    For i = 1 To SlideTotal
        If .Slides(i).SlideShowTransition.Hidden = msoFalse Then
            SlideNum = 1 + SlideNum
            .Slides(i).HeadersFooters.Footer.Visible = msoCTrue
            .Slides(i).HeadersFooters.Footer.Text = "Slide " & SlideNum & " of " & VisibleSlides
        Else
            .Slides(i).HeadersFooters.Footer.Visible = -msoFalse
        End If
    Next

End With