Apakah ada cara untuk melihat semua bentuk yang digunakan dalam presentasi power point?

Saya sedang mengerjakan presentasi dengan sekitar 150 tabel dan grafik gabungan untuk melacak. Panel pemilihan dan visibilitas (Alat Gambar> Atur> Panel Pilihan) memungkinkan saya memberi nama dan melihat daftar semua bentuk pada slide, tetapi apakah ada opsi untuk naik level dan melihat daftar semua bentuk yang digunakan di seluruh presentasi?

microsoft-powerpoint

— SuziLmrdo
sumber

Jawaban:

Tidak, PowerPoint tidak memiliki fitur apa pun yang memungkinkan Anda melakukan ini.

Apa yang sebenarnya ingin Anda capai? Mungkin ada cara lain.

— Steve Rindsberg
sumber

Perusahaan tempat saya bekerja menggunakan PowerPoint sebagai perangkat lunak tata letak untuk keperluan publikasi. Ini adalah metode yang mapan bagi mereka, dan saya tidak memiliki pengaruh untuk meyakinkan seluruh departemen untuk beralih ke perangkat lunak seperti Adobe Pagemaker, atau bahkan Microsoft Word dalam hal ini.

— SuziLmrdo

Salah satu pekerjaan utama saya adalah membuat laporan bersama dengan grafik dan tabel untuk masuk, rata-rata 100 angka dan 50 tabel per publikasi. Setiap laporan rata-rata sekitar 70-90 halaman, dan karenanya melacak lokasi masing-masing gambar dalam presentasi saat ini sangat sulit. Saya ingin menemukan cara untuk membuat tabel angka yang memperbarui lokasi slide secara otomatis jika menambah atau menghapus slide di antaranya.

— SuziLmrdo

Sesuatu yang akan diperbarui secara otomatis akan sangat sulit untuk ditulis, tetapi membuat kembali laporan semacam itu kemungkinan akan memakan waktu satu menit atau lebih. Mengidentifikasi setiap tabel / gambar secara unik akan menjadi bagian yang sulit. Bagaimana Anda mengidentifikasi angka pada slide 42 sehingga kode dapat mengenalinya dan melaporkannya kepada pengguna dengan cara yang bermakna?

— Steve Rindsberg

Dalam laporan saya memberi nama tabel dan angka sesuai dengan penampilannya dari atas ke bawah searah jarum jam. Saya sudah melewati dan menamai setiap gambar sehingga ketika saya pergi ke panel pemilihan untuk slide 42, saya bisa melihatnya berisi angka 74 dan 75, dan tabel 21 (angka dan tabel dihitung secara terpisah). Ini berbeda dari urutan pembuatannya, bisa jadi isi dari pertanyaan survei 12 dan 66. Jika ada cara untuk memasukkan input dari teks alt, mungkin ada deskripsi setiap gambar / tabel di sana. Itukah yang kamu tanyakan?

— SuziLmrdo

Laporan tautan mudah. Saya memiliki add-in komersial yang membantu memperbaiki tautan yang rusak. Demo gratis melakukan laporan tautan, mendaftar tautan pada setiap slide. Ini disebut PTools FixLinks. Untuk apa yang Anda bicarakan, anggap saja ini freebie; versi berbayar tidak akan menambah nilai dalam kasus Anda. pptools.com/fixlinks/index.html

— Steve Rindsberg

Saya ingin memberikan jawaban parsial untuk pertanyaan saya sendiri, di atas, berdasarkan VBA yang ditemukan di utas berikut tentang stack overflow: VBA untuk membuat daftar semua nama objek presentasi powerpoint

Solusi ini secara teknis memungkinkan seseorang untuk melihat semua bentuk yang digunakan dalam presentasi Power Point melalui laporan file teks.

Sub ListAllShapes()

    Dim curSlide As Slide
    Dim curShape As Shape
    Dim lFile As Long
    Dim sPath As String

    sPath = ActivePresentation.Path

    lFile = FreeFile

    Open sPath & "\All Shapes.txt" For Append As #lFile

    For Each curSlide In ActivePresentation.Slides
        Print #lFile, "SLIDE " & curSlide.SlideNumber
        For Each curShape In curSlide.Shapes
                Print #lFile, "    " & curShape.Name
        Next curShape
    Next curSlide

    Close #lFile

End Sub

Ini menghasilkan laporan teks yang terlihat seperti ini:

SLIDE 1
    Rectangle 2
    Rectangle 4
    Rectangle 4
    TextBox 10
    Rectangle 4
SLIDE 2
    TextBox 7
    Rectangle 2
    Rectangle 4
    Rectangle 4
    Line 37
    Picture 1
    Picture 2
SLIDE 3
    Rectangle 2
    Rectangle 4
    Rectangle 7
    TextBox 7
    Line 28
    Picture 3
    Picture 4, etc...

Untuk kasus penggunaan khusus saya, saya ingin daftar hanya bentuk tertentu per slide, yang saya capai dengan terlebih dahulu menggunakan panel pemilihan untuk memberi nama setiap gambar yang berisi gambar atau tabel dengan awalan yang sesuai dan kemudian menjalankan ini:

Sub ListFiguresAndTables()

    Dim curSlide As Slide
    Dim curShape As Shape
    Dim lFile As Long
    Dim sPath As String

    sPath = ActivePresentation.Path

    lFile = FreeFile

    Open sPath & "\Figures and Tables.txt" For Append As #lFile

    For Each curSlide In ActivePresentation.Slides
        Print #lFile, "SLIDE " & curSlide.SlideNumber
        For Each curShape In curSlide.Shapes
            If Left(curShape.Name, 4) = "Fig." Or Left(curShape.Name, 5) = "Table" Then
                Print #lFile, "    " & curShape.Name
            End If
        Next curShape
    Next curSlide

    Close #lFile

End Sub

Sayangnya, satu-satunya cara saya bisa mendapatkan makro untuk mencetak objek-objek ini dalam urutan menaik adalah jika saya menggunakan panel pemilihan untuk secara manual mengatur bentuk dalam urutan yang berlawanan (menurun) terlebih dahulu.

SLIDE 1
    Fig. 1
    Fig. 2
    Fig. 3
    Table 1
SLIDE 2
    Fig. 4
    Fig. 5
    Fig. 6  
SLIDE 3
    Table 2
    Table 3 (etc.)

— SuziLmrdo
sumber