Masukkan jumlah total slide di PowerPoint 2007

Apakah mungkin untuk memasukkan jumlah total slide dalam presentasi PowerPoint ke dalam catatan kaki? Saya mencari cara otomatis.

Tentu saja saya bisa mengedit footer dan memasukkannya secara manual, tetapi jika saya menambah / mengurangi slide, perlu untuk menyesuaikannya. Dan ini adalah sesuatu yang selalu kita lupakan.

The bantuan dari Microsoft menjelaskan cara melakukannya secara manual. Saya tidak percaya bahwa PowerPoint tidak memilikinya ...

Jika Anda mencari opsi atau pengaturan konfigurasi yang secara otomatis akan menambahkannya ke setiap presentasi yang Anda buat, tidak ada satu pun. Namun, jika Anda mengedit Header atau Footer, Anda dapat secara otomatis menambahkan nomor slide di sana dan membuatnya muncul di semua slide.

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

Ini pada dasarnya adalah kode pwrpntuser diperluas ke panduan yang dapat dieksekusi penuh.

Membuat makro

1. Di PowerPoint 2007 dan yang lebih baru pastikan, bahwa Anda menyimpan presentasi Anda di bawah .pptmekstensi (presentasi standar dengan makro diperbolehkan).

2. Pastikan, bahwa Anda telah menambahkan nomor slide menggunakan metode yang dijelaskan dalam artikel ini ¹ .

3. Buka jendela " Makro " ² . Di PowerPoint 2007 dan yang lebih baru, klikView tab (terakhir) dan kemudian Macrotombol di grup toolbar terakhir. Dalam versi eariler pilih Tools > Macrodari menu.

4. Ketikkan nama untuk makro Anda (katakanlah PageCountUpdater ) dan klik Create.

5. Tempel kode makro (dari jawaban pwrpntuser atau di bawah) antara Sub PageCountUpdater()dan End Sub. Perubahanvan baris yang paling menjorok ke ofatau sesuatu yang serupa di bahasa Anda.

6. Simpan makro dan tutup Microsoft Visual Basic for Applications. Kembali ke PowerPoint.

Kamu sudah selesai. Kode yang akan dimasukkan (lengkap dan dengan "kata-lem" yang diperbaiki):

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

Menjalankan makro

1. Buka " jendela " Makro " lagi.

2. Pilih PageCountUpdatermakro yang disimpan dan tekanRun .

Anda harus melakukan ini setiap kali secara manual. Pintasan keyboard akan sangat disambut. Tapi ... tidak ada cara untuk mengubah cara pintas PowerPoint, kecuali untuk membeli plugin komersial, di mana Anda harus membayar harga mulai dari 20 dolar per satu komputer. Lihat akhir ini atau ini untuk detailnya.

Menghapus makro

Makro ini hanya dijalankan saat Anda membutuhkannya. Ini bukan makro hidup. Ini memperbarui bidang dengan jumlah slide aktual dan hanya itu. Bidang itu sendiri adalah bidang teks standar. Tanpa sihir. Ini berarti, Anda dapat dengan mudah mengkonversi kembali file Anda.pptx dan membuang makro ini, setelah Anda yakin, bahwa presentasi Anda selesai dan Anda tidak akan menambahkan lagi slide ke dalamnya. Bidang akan tetap di tempat mereka dengan nilai-nilai mereka tidak tersentuh, setelah makro dihapus.

Ini nyaman karena banyak pengguna tidak suka dokumen dengan makro dan banyak tempat presentasi, pameran, konferensi dll. Anda tidak akan membiarkan Anda menjalankan .pptm file.

Ini juga bagus, karena makro ini menciptakan kembali bidang penomoran pada semua slide (kecuali yang judul - lihat catatan kaki no 1 di akhir), bahkan jika Anda menghapusnya secara manual. Karena itu Anda harus menjalankannya untuk yang terakhir kalinya, setelah Anda yakin tentang jumlah dan urutan slide dan kemudian Anda dapat menghapusnya.

Membuka file yang diaktifkan makro

Jika Anda memutuskan untuk menjaga .pptmekstensi dan makro di dalam, Anda akan selalu membuka dokumen ini dengan makro dinonaktifkan dan Anda harus mengklikEnable macros setiap kali (jika Anda menjalankan pada pengaturan default) untuk mengaktifkannya.

Jika dokumen milik Anda sendiri, Anda percaya, bahwa dokumen itu tidak mengandung kode berbahaya dan semuanya disimpan di lokasi yang aman (mis. Tidak di beberapa folder temporal atau bersama), Anda dapat mengubah setiap pengaturan program Office agar selalu dibuka dengan file-file ini. makro diaktifkan.

Cara termudah adalah menambahkan folder dengan presentasi yang diaktifkan makro untuk mengamankan lokasi di PowerPoint.

Untuk melakukan ini:

1. Klik Filetab, Optionstombol, Trust Centerbagian dan Trust Center Settingstombol.

2. Pergi ke Trusted locationsbagian (kedua) dan klik Add new location...tombol.

3. Rekatkan atau pilih jalur folder ke dalam Pathbidang dan secara opsional periksa, bahwa semua subfolder di lokasi tambahan juga harus diperlakukan sebagai tepercaya.

4. Klik OKtiga kali untuk mengonfirmasi dan menutup semua jendela yang terbuka. Buka kembali dokumen Anda yang diaktifkan makro.

Mulai saat ini, semua dokumen yang dibuka dari lokasi yang baru ditambahkan tidak boleh menampilkan peringatan apa pun dan harus selalu dibuka dengan makro yang diaktifkan. Anda akan menemukan lebih banyak detail tentang masalah ini di dokumen dukungan Office.com ini .

Catatan kaki

¹ _{Dalam sebagian besar versi PowerPoint slide judul makna ditentukan bukan sebagai slide pertama dalam presentasi , tetapi sebagai slide apa pun yang ditata sebagai slide judul . Anda dapat melihat tipe slide yang berbeda, saat memasukkan yang baru. Ini berarti bahwa, jika Anda tidak memiliki gaya slide sebagai judul, Anda akan memiliki nomor halaman yang ditambahkan ke semua slide. Dan sebaliknya - jika Anda menggunakan banyak slide judul di dalam presentasi, misalnya untuk menandai bagian atau blok yang berbeda, Anda akan kehilangan penomoran pada semuanya.}

^{2 Nama} _{semua elemen GUI adalah terjemahan on-the-fly dari PowerPoint edisi Polandia saya 2010. Dalam rilis lain atau edisi bahasa PowerPoint mereka mungkin sedikit berbeda. Sesuaikan dengan itu.}

Pertama-tama pastikan setiap slide memiliki slidenumber yang normal. Kemudian tambahkan modul, masukkan potongan kode berikut dan tekan F5 (Mulai).

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

Add-in Bill Dilworth untuk PowerPoint dapat membantu Anda, tergantung pada versi PowerPoint yang Anda gunakan. Inilah tujuannya.

Saya menemukan satu halaman web yang mengatakan Anda memasukkan <#> x ke dalam kotak teks di Slide Master dan kemudian menambahkan "nomor slide" ke slide. Saya membuatnya bekerja sebentar, tetapi kemudian ketika saya memindahkannya, dan mencoba lagi, itu tidak lagi mengisi jumlah slide penuh ke x. Tetapi solusi ini mungkin cocok untuk sebagian besar pengguna.

Berikut ini beberapa kode yang sedikit berbeda yang memperbarui catatan kaki Anda dengan "slide # of ##." Saya memilih untuk tidak menghitung slide tersembunyi ke arah total. Saya memiliki kode ini dijalankan dari mouse di atas tombol tindakan tersembunyi pada 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