ลบสไลด์ต้นแบบที่ไม่ได้ใช้ทั้งหมดในงานนำเสนอ PowerPoint

บริษัท ของฉันเพิ่งสร้างเทมเพลต PowerPoint ใหม่ ด้วยตัวเองโดยไม่มีสไลด์ใด ๆ มันมีขนาด 9MB สิ่งนี้ใช้ไม่ได้อย่างสมบูรณ์สำหรับการส่งไปยังอุปกรณ์มือถือและทำให้ลูกค้ารำคาญ ผู้ร้ายหลักคือภาพความละเอียดสูงบนสไลด์ต้นแบบ ส่วนใหญ่ฉันไม่ได้ใช้ 8 สไลด์กับภาพความละเอียดสูง ฉันได้ลองบีบอัดภาพ แต่เพียงเทมเพลตลงไปที่ 5MB เปล่า แต่ก็ยังใหญ่เกินไป

มีอยู่แล้วเพื่อบันทึกงานนำเสนอและยกเลิกภาพนิ่งต้นแบบยักษ์ที่ไม่ได้ใช้โดยอัตโนมัติ เห็นได้ชัดว่าฉันสามารถเข้าไปและลบสไลด์ต้นแบบ แต่สงสัยว่ามีอะไรที่ช่วยให้คุณทำสิ่งนี้โดยอัตโนมัติหรือไม่

ดูเป็น "ต้นแบบภาพนิ่ง" เมื่อคุณเลื่อนเมาส์ไปที่ต้นแบบภาพนิ่งแต่ละรายการคุณสามารถดูได้ว่าใช้สไลด์ต้นแบบนั้นหรือไม่ คุณสามารถลบแต่ละสไลด์ต้นแบบ ค้นหาโดยเฉพาะอย่างยิ่งสำหรับผู้ที่มีรูปภาพและนำสิ่งที่ไม่ได้ใช้ออก

หากคุณเน้นสไลด์แรกแล้วกดปุ่มDeleteซ้ำ ๆ ไปเรื่อย ๆ เฉพาะเทมเพลตสไลด์ที่ไม่ได้ใช้งานเท่านั้นที่จะถูกลบ นี่เป็นวิธีที่ง่ายในการเลื่อนดูเทมเพลตด้วยตนเองอย่างรวดเร็วโดยไม่ต้องกังวลกับการลบเทมเพลตที่ใช้งานอยู่

คุณสามารถทำได้โดยการสร้างแมโคร:

Sub SlideMasterCleanup()

Dim i As Integer
Dim j As Integer
Dim oPres As Presentation
Set oPres = ActivePresentation
On Error Resume Next
With oPres
    For i = 1 To .Designs.Count
        For j = .Designs(i).SlideMaster.CustomLayouts.Count To 1 Step -1
            .Designs(i).SlideMaster.CustomLayouts(j).Delete
        Next
    Next i
End With

End Sub

คำตอบที่ upvoted ยังคงใช้ได้และทำงานให้ฉันได้ ปัญหาคือว่าเมื่อฉันคัดลอกรหัสฉันไม่ทราบว่าจะทำอย่างไรกับมัน

หลังจากการวิจัยเล็กน้อยฉันพบว่านี่เป็นวิธีใช้รหัสด้านบน:

1. เปิดเอกสาร PPT ของคุณ
2. ไปที่มุมมองคลิกมาโคร
3. เลือกตำแหน่งที่คุณต้องการเรียกใช้แมโครนี้ในเมนูดรอปดาวน์
4. ตั้งชื่อและสร้างมัน

จากนั้นหน้าต่างจะปรากฏขึ้นซึ่งคุณสามารถวางรหัสได้

บันทึกจากนั้นกลับไปที่มุมมอง -> มาโครและเลือกมาโครจากเมนูดร็อปดาวน์

คลิก "Run" และทำ!