แทรกจำนวนภาพนิ่งทั้งหมดใน PowerPoint 2007

เป็นไปได้หรือไม่ที่จะแทรกจำนวนสไลด์ทั้งหมดในการนำเสนอ PowerPoint ลงในเชิงอรรถ ฉันกำลังมองหาวิธีอัตโนมัติ

แน่นอนว่าฉันสามารถแก้ไขส่วนท้ายและวางด้วยตนเองได้ แต่ถ้าฉันเพิ่ม / ลดสไลด์ก็จำเป็นต้องปรับมัน และนี่คือสิ่งที่เรามักจะลืม

ความช่วยเหลือจาก Microsoftอธิบายวิธีดำเนินการด้วยตนเอง ฉันไม่อยากจะเชื่อว่า PowerPoint ไม่มี ...

หากคุณกำลังมองหาตัวเลือกหรือการตั้งค่าที่จะเพิ่มลงในงานนำเสนอทุกรายการที่คุณสร้างโดยอัตโนมัติ อย่างไรก็ตามหากคุณแก้ไข Header หรือ Footer คุณสามารถเพิ่มหมายเลขสไลด์โดยอัตโนมัติและให้ปรากฏในสไลด์ทั้งหมด

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

นี่คือรหัสของpwrpntuserที่ขยายไปยังคู่มือปฏิบัติการเต็มรูปแบบ

การสร้างมาโคร

1. ใน PowerPoint 2007 และรุ่นที่ใหม่กว่าตรวจสอบให้แน่ใจว่าคุณได้บันทึกงานนำเสนอของคุณภายใต้.pptmส่วนขยาย (อนุญาตงานนำเสนอมาตรฐานพร้อมแมโคร)

2. ตรวจสอบให้แน่ใจว่าคุณมีหมายเลขสไลด์เพิ่มการใช้วิธีการที่อธิบายไว้ในบทความนี้ 1

3. เปิด " Macro " หน้าต่าง2 ใน PowerPoint 2007 และใหม่กว่าให้คลิกที่Viewแท็บ (สุดท้าย) จากนั้นMacroคลิกที่ปุ่มในกลุ่มแถบเครื่องมือสุดท้าย ในรุ่น eariler เลือกTools > Macroจากเมนู

4. พิมพ์ชื่อสำหรับแมโครของคุณ (พูดPageCountUpdater) Createและคลิก

5. วางรหัสแมโคร (จากpwrpntuser 's คำตอบหรือด้านล่าง) ระหว่างและSub PageCountUpdater() End Subเปลี่ยนvanในบรรทัดที่เยื้องที่สุดไปofหรือสิ่งที่คล้ายกันใน lang ของคุณ

6. บันทึกแมโครและปิด Microsoft Visual Basic สำหรับแอปพลิเคชันกลับไปยัง PowerPoint

คุณทำเสร็จแล้ว รหัสที่จะแทรก (เต็มและแก้ไขด้วย "กาวคำ"):

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

การเรียกใช้งานแมโคร

1. เปิดหน้าต่าง " Macro " อีกครั้ง

2. เลือกบันทึกแมโครและตีPageCountUpdaterRun

คุณต้องทำสิ่งนี้ทุกครั้งด้วยตนเอง แป้นพิมพ์ลัดจะได้รับการต้อนรับมากที่สุด แต่ ... ไม่มีทางที่จะเปลี่ยนทางลัดของ PowerPoint ยกเว้นซื้อปลั๊กอินเชิงพาณิชย์ซึ่งคุณต้องจ่ายราคาเริ่มต้นที่ 20 bucks ต่อคอมพิวเตอร์หนึ่งเครื่อง ดูตอนท้ายของเรื่องนี้หรือนี้บทความเพื่อดูรายละเอียด

การลบมาโคร

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

สะดวกสบายเพราะผู้ใช้หลายคนไม่ชอบเอกสารที่มีมาโครและสถานที่นำเสนองานแสดงสินค้าการประชุมและอื่น ๆ เพียงแค่ไม่อนุญาตให้คุณเรียกใช้.pptmไฟล์

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

การเปิดไฟล์ที่เปิดใช้งานมาโคร

หากคุณตัดสินใจที่จะให้.pptmส่วนขยายและมาโครอยู่ข้างในคุณจะต้องเปิดเอกสารนี้เสมอเมื่อปิดการใช้งานมาโครและคุณจะต้องคลิกEnable macrosแต่ละครั้ง (หากคุณใช้การตั้งค่าเริ่มต้น) เพื่อเปิดใช้งาน

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

วิธีที่ง่ายที่สุดคือการเพิ่มโฟลเดอร์ที่มีการนำเสนอที่เปิดใช้งานแมโครเพื่อรักษาความปลอดภัยตำแหน่งใน PowerPoint

เพื่อทำสิ่งนี้:

1. คลิกFileแท็บOptionsปุ่มTrust Centerส่วนและTrust Center Settingsปุ่ม

2. ไปที่Trusted locationsส่วน (วินาที) และคลิกที่Add new location...ปุ่ม

3. วางหรือเลือกเส้นทางของโฟลเดอร์ลงในPathฟิลด์และตรวจสอบทางเลือกว่าโฟลเดอร์ย่อยทั้งหมดในตำแหน่งที่เพิ่มควรได้รับการปฏิบัติเหมือนเชื่อถือได้

4. คลิกOKสามครั้งเพื่อยืนยันและปิดหน้าต่างที่เปิดอยู่ทั้งหมด เปิดเอกสารที่เปิดใช้งานแมโครอีกครั้ง

จากจุดนี้เป็นต้นไปเอกสารทั้งหมดที่เปิดจากตำแหน่งที่เพิ่มเพิ่งไม่ควรแสดงคำเตือนใด ๆ และควรเปิดด้วยการเปิดใช้งานมาโครเสมอ คุณจะพบรายละเอียดเพิ่มเติมเกี่ยวกับเรื่องนี้ในเอกสารสนับสนุน Office.comนี้

เชิงอรรถ

¹ _{ในรุ่นมากที่สุดของ PowerPoint ความหมายภาพนิ่งชื่อเรื่องที่ไม่ได้กำหนดเป็นภาพนิ่งแรกในการนำเสนอแต่เป็นสไลด์สไตล์เป็นภาพนิ่งชื่อ คุณสามารถดูประเภทสไลด์ที่แตกต่างกันเมื่อใส่ใหม่ ซึ่งหมายความว่าหากคุณไม่มีสไตล์สไลด์เป็นชื่อเรื่องคุณจะต้องเพิ่มหมายเลขหน้าในทุกสไลด์ และตรงกันข้าม - หากคุณใช้สไลด์ไตเติ้ลจำนวนมากภายในงานนำเสนอเช่นเพื่อทำเครื่องหมายส่วนหรือบล็อกที่แตกต่างกัน}

² _{ชื่อองค์ประกอบ GUI ทั้งหมดเป็นการแปลแบบทันทีจาก PowerPoint 2010 รุ่นโปแลนด์ของฉันในรุ่นอื่น ๆ หรือรุ่นภาษา PowerPoint อาจแตกต่างกันเล็กน้อย ปรับเปลี่ยนให้เหมาะสม}

ก่อนอื่นตรวจสอบให้แน่ใจว่าทุกสไลด์มีสไลด์เดอร์หมายเลขปกติ จากนั้นเพิ่มโมดูลใส่ชิ้นส่วนของรหัสต่อไปนี้แล้วกด F5 (เริ่ม)

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สำหรับ PowerPoint อาจช่วยคุณได้ขึ้นอยู่กับเวอร์ชันของ PowerPoint ที่คุณใช้ นี่คือจุดประสงค์ของมัน

ฉันพบหน้าเว็บหนึ่งที่บอกว่าคุณใส่ <#> ของ x ลงในกล่องข้อความใน Master Slide จากนั้นเพิ่ม "หมายเลขสไลด์" ลงในสไลด์ ฉันได้มันมาทำงานสั้น ๆ แต่แล้วเมื่อฉันย้ายมันและลองอีกครั้งมันไม่ได้บรรจุเลขสไลด์เต็มเข้าไปใน x อีกต่อไป แต่วิธีนี้อาจเป็นไปได้สำหรับผู้ใช้ส่วนใหญ่

ต่อไปนี้เป็นรหัสที่แตกต่างกันเล็กน้อยที่จะอัปเดตส่วนท้ายของคุณด้วย "slide # of ##" ฉันเลือกที่จะไม่นับสไลด์ที่ซ่อนอยู่ทั้งหมด ฉันมีรหัสนี้ดำเนินการจากเมาส์ไปเหนือปุ่มการกระทำที่ซ่อนอยู่ในสไลด์ 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