Chèn tổng số trang chiếu trong PowerPoint 2007

Có thể chèn tổng số trang chiếu trong bản trình bày PowerPoint vào chú thích không? Tôi đang tìm kiếm một cách tự động.

Tất nhiên tôi có thể chỉnh sửa chân trang và đặt nó vào bằng tay, nhưng nếu tôi tăng / giảm các trang chiếu, thì cần phải điều chỉnh nó. Và đây là điều mà chúng ta luôn quên.

Sự giúp đỡ từ Microsoft giải thích cách thực hiện thủ công. Tôi không thể tin rằng PowerPoint không có nó ...

Nếu bạn đang tìm kiếm một tùy chọn hoặc cài đặt cấu hình sẽ tự động thêm nó vào mỗi bản trình bày bạn tạo, thì không có. Tuy nhiên, nếu bạn chỉnh sửa Đầu trang hoặc Chân trang, bạn có thể tự động thêm số trang chiếu ở đó và để chúng xuất hiện trên tất cả các trang chiếu.

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

Về cơ bản , đây là mã của pwrpntuser được mở rộng thành hướng dẫn thực thi đầy đủ.

Tạo macro

1. Trong PowerPoint 2007 và mới hơn, đảm bảo rằng bạn đã lưu bản trình bày của mình dưới .pptmphần mở rộng (bản trình bày tiêu chuẩn có macro cho phép).

2. Hãy chắc chắn rằng bạn đã thêm số slide bằng phương pháp được mô tả trong bài viết ^{1 này} .

3. Mở cửa sổ " Macro " ² . Trong PowerPoint 2007 trở lên, bấm vào Viewtab (cuối cùng) và sau đó vào Macronút trong nhóm thanh công cụ cuối cùng. Trong các phiên bản tai nghe chọn Tools > Macrotừ menu.

4. Nhập tên cho macro của bạn (nói PageCountUpdater) và nhấp vào Create.

5. Dán mã macro (từ câu trả lời của pwrpntuser hoặc bên dưới) giữa Sub PageCountUpdater()và End Sub. Thay đổi vantrong dòng thụt lề nhất thành ofhoặc bất cứ thứ gì tương tự trong lang của bạn.

6. Lưu macro và đóng Microsoft Visual Basic cho Ứng dụng. Quay trở lại PowerPoint.

Bạn đã hoàn tất. Mã được chèn (đầy đủ và được sửa lại từ "keo-word"):

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

Thi công vĩ mô

1. Mở cửa sổ " Macro " lần nữa.

2. Chọn PageCountUpdatermacro đã lưu và nhấn Run.

Bạn phải làm điều này mỗi lần bằng tay. Một phím tắt sẽ được chào đón nhất. Nhưng ... không có cách nào để thay đổi các phím tắt của PowerPoint, ngoại trừ việc mua một plugin thương mại mà bạn phải trả giá bắt đầu từ 20 đô la cho mỗi máy tính. Xem cuối này hay này bài viết cho một chi tiết.

Xóa macro

Macro này chỉ chạy, khi bạn cần nó. Nó không phải là một vĩ mô sống. Nó cập nhật trường với số lượng slide thực tế và đó là nó. Trường chính nó là một trường văn bản tiêu chuẩn. Không có phép thuật. Điều này có nghĩa là, bạn có thể dễ dàng chuyển đổi tệp của mình trở lại .pptxvà ném macro này đi, một khi bạn chắc chắn, bài thuyết trình của bạn đã hoàn thành và bạn sẽ không thêm các slide vào đó. Trường sẽ vẫn ở vị trí của chúng với các giá trị chưa được xử lý, khi macro được xóa.

Điều này thật thoải mái vì nhiều người dùng không thích các tài liệu có macro và nhiều nơi trình bày, hội chợ, hội nghị, v.v ... đơn giản là sẽ không cho phép bạn chạy .pptmtệp.

Điều này cũng tốt, bởi vì macro này tạo lại các trường đánh số trên tất cả các slide (ngoại trừ các tiêu đề - xem chú thích số 1 ở cuối), ngay cả khi bạn xóa chúng bằng tay. Do đó, bạn nên chạy nó lần cuối, sau khi bạn chắc chắn về số cuối cùng và thứ tự các slide và sau đó bạn có thể xóa nó.

Mở tệp kích hoạt macro

Nếu bạn quyết định giữ .pptmphần mở rộng và macro bên trong, tài liệu này sẽ luôn được mở khi macro bị vô hiệu hóa và bạn sẽ phải nhấp Enable macrosmỗi lần (nếu bạn chạy trên cài đặt mặc định) để bật chúng.

Nếu tài liệu là của riêng bạn, bạn tin tưởng rằng chúng không chứa mã độc hại và tất cả chúng đều được lưu trữ ở một vị trí an toàn (nghĩa là không nằm trong một số thư mục tạm thời hoặc chia sẻ), bạn có thể thay đổi từng cài đặt chương trình Office để luôn mở các tệp này macro được kích hoạt.

Cách dễ nhất là thêm thư mục với các bản trình bày được bật macro vào các vị trí an toàn trong PowerPoint.

Để làm điều này:

1. Nhấp vào Filetab, Optionsnút, Trust Centerphần và Trust Center Settingsnút.

2. Đi đến Trusted locationsphần (thứ hai) và bấm vào Add new location...nút.

3. Dán hoặc chọn đường dẫn thư mục vào Pathtrường và tùy chọn kiểm tra, rằng tất cả các thư mục con trong vị trí đã thêm cũng nên được coi là đáng tin cậy.

4. Nhấp vào OKba lần để xác nhận và đóng tất cả các cửa sổ đã mở. Mở lại tài liệu kích hoạt macro của bạn.

Từ thời điểm này, tất cả các tài liệu được mở từ vị trí vừa thêm sẽ không hiển thị bất kỳ cảnh báo nào và phải luôn được mở khi bật macro. Bạn sẽ tìm thấy nhiều chi tiết hơn về vấn đề này trong tài liệu hỗ trợ Office.com này .

Chú thích

¹ _{Trong hầu hết các phiên bản PowerPoint, slide tiêu đề có nghĩa được xác định không phải là slide đầu tiên trong bản trình bày , mà là bất kỳ slide nào được tạo kiểu như slide tiêu đề . Bạn có thể thấy các loại slide khác nhau, khi chèn một loại mới. Điều này có nghĩa là, nếu bạn không có slide theo kiểu như tiêu đề, bạn sẽ có số trang được thêm vào tất cả các slide. Và ngược lại - nếu bạn đã sử dụng nhiều slide tiêu đề bên trong bản trình bày, ví dụ để đánh dấu các phần hoặc khối khác nhau, bạn sẽ đánh số bị thiếu trên tất cả chúng.}

² _{Tất cả tên của các thành phần GUI đều được dịch nhanh từ phiên bản PowerPoint Ba Lan của tôi năm 2010. Trong các bản phát hành hoặc phiên bản ngôn ngữ khác của PowerPoint, chúng có thể hơi khác nhau. Điều chỉnh phù hợp.}

Trước tiên hãy chắc chắn rằng mỗi slide có một slidenumber bình thường. Sau đó thêm một mô-đun, chèn đoạn mã sau và nhấn F5 (Bắt đầu).

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

Bổ trợ cho Bill Dilworth cho PowerPoint có thể giúp bạn, tùy thuộc vào phiên bản PowerPoint bạn đang sử dụng. Đây chính xác là mục đích của nó.

Tôi đã tìm thấy một trang web cho biết bạn đặt <#> của x vào hộp văn bản trong Bản chiếu chính và sau đó thêm "số trang chiếu" vào trang chiếu. Tôi đã làm cho nó hoạt động nhanh chóng, nhưng sau đó khi tôi di chuyển nó và thử lại, nó không còn điền số slide đầy đủ vào x. Nhưng giải pháp này có thể khả thi đối với hầu hết người dùng.

Đây là một số mã hơi khác nhau cập nhật chân trang của bạn với "slide # of ##." Tôi đã chọn không tính các slide ẩn về tổng số. Tôi có mã này thực thi từ chuột trên một nút hành động ẩn trên slide 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