Terapkan kembali tata letak slide ke slide yang ada

Saya memiliki presentasi PowerPoint di mana slide bernomor ganjil memiliki tata letak utama A, dan slide bernomor genap memiliki tata letak utama B (dengan beberapa pengecualian yang dapat saya sortir secara manual). Ketika saya memperbarui salah satu tata letak (mis. Menambahkan atau memindahkan placeholder), saya harus memilih setiap slide lainnya secara manual untuk menerapkan kembali tata letak kepada mereka. Bagaimana saya bisa secara otomatis menerapkan kembali tata letak ke slide ini?

Jika tidak ada fitur bawaan untuk melakukan ini (atau bahkan jika ada!) Makro akan sama bermanfaatnya.

microsoft-office microsoft-powerpoint microsoft-powerpoint-2013

— wizzwizz4
sumber

Saya tidak biasa di sini, jadi tidak yakin bagaimana cara menandainya. Jika ini salah, harap perbaiki! :-)

— wizzwizz4

Tag Anda relevan - tidak ada masalah, tapi saya pikir Anda bahkan tidak perlu menggunakan makro ... cukup centang opsi "apply to all slide" di bilah alat. Juga jika Anda ingin membahas kode, poskan di

— www.stackoverflow.com

@ AnandS Saya tidak ingin membahas kode, karena dengan begitu saya akan jatuh dari masalah XY, dan pertanyaan "beri kode" tidak dihargai di sana (atau di sini, tapi ini bukan satu-satunya). Dan saya tidak ingin opsi "apply to all slide"; Saya hanya ingin menerapkannya pada slide 4 dan setiap slide lainnya setelah dan termasuk 7.

— wizzwizz4

Terima kasih telah mengklarifikasi! Dan saya yakin Anda salah paham terhadap saya - Saya tidak mendesak Anda untuk secara terang-terangan meminta kode lengkap, tetapi meminta Anda untuk memindahkan pertanyaan ini ke Stack Overflow, karena ini tentang pengodean ...

— ClobberXD

@ AnandSaya berharap ada fitur bawaan untuk membiarkan saya melakukan ini. Mereka semua sudah memiliki tata letak slide yang tepat; Saya hanya ingin mendaftar ulang ke yang sudah memilikinya, sesuai support.office.com/en-us/article/…

— wizzwizz4

Jawaban:

Karena biasanya tidak ada 32 tata letak dalam desain presentasi, saya berasumsi Anda memiliki tata letak khusus. Bagaimanapun, coba ini, gantikan angka yang benar untuk 2 di bawah ini:

Sub ReapplyMaster()
    Dim slidenum As Long
    For slidenum = 3 To ActivePresentation.Slides.Count Step 2
        With ActivePresentation.Slides(slidenum)

            .CustomLayout = ActivePresentation.Designs(1).SlideMaster.CustomLayouts(2)

        End With
    Next
End Sub

— Steve Rindsberg
sumber

Saya telah mengubah pertanyaan untuk menghapus makro, tetapi itu tidak membatalkan jawaban Anda. Akan .CustomLayout = .CustomLayoutbekerja

— wizzwizz4

Akan lebih cepat untuk mencobanya daripada menunggu jawaban di sini, bukan?

— Steve Rindsberg

Apakah Anda pikir saya harus menerima jawaban Anda (menunjukkan banyak usaha dan dapat dikembangkan) atau jawaban yang saya posting (adalah fitur bawaan, lebih berguna untuk pengguna yang bukan pengguna listrik)?

— wizzwizz4

Karena ini SuperUser dan bukan StackOverflow, saya akan menjawab sendiri (yang kurang lebih seperti saran yang saya buat sebelumnya).

— Steve Rindsberg

Terima kasih atas bantuan Anda. Saya hanya akan menunggu 22 jam sebelum menerima, hanya karena saya merasa menyukainya dan jelas bukan karena sistem memiliki batasan> 48 jam.

— wizzwizz4

Untuk menerapkan kembali tata letak slide saat ini ke slide, klik kanan pada slide dan pilih "Reset Slide" dari menu konteks. Anda dapat memilih rentang slide, atau bahkan seluruh presentasi, dari panel kiri. Ini akan menerapkan kembali tata letak untuk semua slide, tidak hanya untuk yang ditentukan, tetapi setiap slide akan mempertahankan tata letaknya yang ada.

— wizzwizz4
sumber