วิธีคัดลอกเพิ่มสไลด์ลงในงานนำเสนอ PowerPoint ของคุณด้วย VBA Macros

ปรับปรุงล่าสุด: มิถุนายน 2020

ใช้ได้กับ: Office 2019 ขึ้นไป Windows เท่านั้น

นี่เป็นคำถามจากผู้อ่าน:

ในการนำเสนอรายงานประจำไตรมาสต่อผู้บริหาร ฉันมักจะต้องคัดลอกสไลด์ข้อมูลทั่วไปหลายสไลด์จากการนำเสนออื่นๆ ไม่ใช่เรื่องใหญ่ แต่จะเป็นการประหยัดที่สำคัญที่สามารถทำให้แบบฝึกหัดนี้เป็นแบบอัตโนมัติได้ VBA Macro ใด ๆ ที่ช่วยให้บรรลุผลที่ได้รับการชื่นชม!

ตามที่คุณเพิ่งกล่าวถึง คุณสามารถทำการคัดลอกและวางสไลด์ใน PowerPoint โดยอัตโนมัติโดยใช้ Visual Basic for Applications หากคุณต้องการสร้างงานนำเสนอหลายรายการทุกเดือน ระบบอัตโนมัติคัดลอก/นำเข้าสไลด์นี้อาจช่วยประหยัดเวลาได้มาก!

PowerPoint VBA สำหรับเพิ่มสไลด์

มาเริ่มกันเลยกับแบบฝึกหัดง่ายๆ นี้กัน

ก่อนอื่น ตรวจสอบให้แน่ใจว่าแท็บการพัฒนาของคุณเปิดใช้งานและมองเห็นได้ นี่คือวิธี การทำ

ฉันจะถือว่าคุณได้สร้างงานนำเสนอที่เปิดใช้งานมาโครแล้ว (ประเภทไฟล์คือ .pptm) ​​ซึ่งคุณวางไว้ในไดเรกทอรีเดียวกันกับงานนำเสนอต้นทางของคุณ (ซึ่งฉันจะเรียกว่า source.pptm) ต่อไปนี้คือวิธีการสร้างงานนำเสนอ PowerPoint ด้วย VBA

ก่อนอื่น สำรองข้อมูลของงานนำเสนอนั้นก่อน (คัดลอกและบันทึกอย่างง่าย)

จากนั้นให้เราแทรกมาโครต่อไปนี้ลงในโมดูล VBA ใหม่ในงานนำเสนอปลายทางของคุณ รายละเอียดทั้งหมดเกี่ยวกับวิธีการทำที่สามารถพบได้ใน บทช่วย สอน PowerPoint VBAของ เรา

นี่คือโค้ด VBA ที่คุณต้องการเพื่อคัดลอกและวางสไลด์โดยอัตโนมัติ

ฉันตั้งสมมติฐานสองสามข้อ:

  • งานนำเสนอต้นฉบับของคุณชื่อ source.pptm
  •  คุณจะวางสไลด์ 2-4 จากงานนำเสนอต้นทางของคุณ
  • คุณจะวางสไลด์ที่คัดลอกโดยเริ่มจากสไลด์ที่ 5

Sub InsertFromOtherPres()

' This short VBA macro copies slides from one presentation and inserts them into another

ActivePresentation.Slides.InsertFromFile FileName:="source.pptm", Index:=1, SlideStart:=2, 
SlideEnd:=4

End Sub

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

คุณสามารถทำให้มันวนซ้ำในการนำเสนอหลายๆ แบบ และแทรกสไลด์เฉพาะจากแต่ละสไลด์ลงในรายงานการจัดการของคุณ

PowerPoint VBA สำหรับการทำซ้ำสไลด์

แทนที่จะคัดลอกสไลด์ไปยังงานนำเสนออื่น คุณอาจต้องการโคลนสไลด์อย่างน้อยหนึ่งสไลด์ในงานนำเสนอของคุณ:

Sub CopySlides()

' Short snippet to duplicate the third slide in a presentation, change the index/es accrodingly

ActivePresentation.Slides(3).Duplicate

End Sub

นี่เป็นเพียงตัวอย่างง่ายๆ สองสามตัวอย่างของระบบอัตโนมัติของ PowerPoint ผู้อ่านที่กำลังมองหาคำถามเฉพาะสามารถส่งคำถามผ่านหน้าติดต่อ

หวังว่ามันจะช่วย🙂

รักษาการจัดรูปแบบเมื่อคัดลอกสไลด์

ปัญหาในตัวอย่างก่อนหน้านี้คือการจัดรูปแบบธีมงานนำเสนอต้นฉบับไม่ได้ถูกคัดลอกมา สมมติว่าทั้ง 2 แผ่นมีการจัดรูปแบบที่แตกต่างกัน นี่คือสิ่งที่จะเกิดขึ้น:

ตัวอย่างที่ 1

 

Sub main()

Dim objPresentation As Presentation

Dim i As Integer

'open the target presentation

Set objPresentation = Presentations.Open("C:\2.pptx")

For i = 1 To objPresentation.Slides.Count

    objPresentation.Slides.Item(i).Copy

    Presentations.Item(1).Slides.Paste

Next i

objPresentation.Close

End Sub

ก่อนที่จะรันโค้ด
นี่คือการนำเสนอพร้อมสไลด์ที่เราต้องการคัดลอก: ผลลัพธ์: เพื่อที่จะแก้ไขปัญหานี้ คุณสามารถใช้โค้ดด้านล่าง:
สไลด์ที่จะคัดลอก

ผลลัพธ์

 

Sub Example2()

Dim objPresentation As Presentation

Dim i As Integer

'open the target presentation

Set objPresentation = Presentations.Open("C:\2.pptx")

For i = 1 To objPresentation.Slides.Count

    objPresentation.Slides.Item(i).Copy

    Presentations.Item(1).Slides.Paste

    Presentations.Item(1).Slides.Item(Presentations.Item(1).Slides.Count).Design = _

        objPresentation.Slides.Item(i).Design

Next i

objPresentation.Close

End Sub

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


วิธีแปลอีเมลขาเข้าใน Microsoft Outlook

วิธีแปลอีเมลขาเข้าใน Microsoft Outlook

เรียนรู้วิธีแปลอีเมลขาเข้าผ่าน Microsoft Outlook อย่างง่ายดาย โดยปรับการตั้งค่าเพื่อแปลอีเมลหรือดำเนินการแปลแบบครั้งเดียว

10 วิธีในการแก้ไขข้อผิดพลาด NET :: ERR_CERT_AUTHORITY_INVALID อย่างถาวร

10 วิธีในการแก้ไขข้อผิดพลาด NET :: ERR_CERT_AUTHORITY_INVALID อย่างถาวร

อ่านคำแนะนำเพื่อปฏิบัติตามวิธีแก้ปัญหาทีละขั้นตอนสำหรับผู้ใช้และเจ้าของเว็บไซต์เพื่อแก้ไขข้อผิดพลาด NET::ERR_CERT_AUTHORITY_INVALID ใน Windows 10

CefSharp.BrowserSubprocess คืออะไร ฉันควรหยุดมันไหม?

CefSharp.BrowserSubprocess คืออะไร ฉันควรหยุดมันไหม?

ค้นหาข้อมูลเกี่ยวกับ CefSharp.BrowserSubprocess.exe ใน Windows พร้อมวิธีการลบและซ่อมแซมข้อผิดพลาดที่เกี่ยวข้อง มีคำแนะนำที่เป็นประโยชน์

ไม่สามารถจับภาพหน้าจอเนื่องจากนโยบายความปลอดภัย? นี่คือเหตุผล

ไม่สามารถจับภาพหน้าจอเนื่องจากนโยบายความปลอดภัย? นี่คือเหตุผล

ค้นพบวิธีแก้ไขปัญหาเมื่อคุณไม่สามารถจับภาพหน้าจอได้เนื่องจากนโยบายความปลอดภัยในแอป พร้อมเทคนิคที่มีประโยชน์มากมายในการใช้ Chrome และวิธีแชร์หน้าจออย่างง่ายๆ.

ติดตั้ง Windows 10 บน M1 Mac และบอกลา Boot Camp

ติดตั้ง Windows 10 บน M1 Mac และบอกลา Boot Camp

ในที่สุด คุณสามารถติดตั้ง Windows 10 บน M1 Macs โดยใช้ Parallels Desktop 16 สำหรับ Mac นี่คือขั้นตอนที่จะทำให้เป็นไปได้

Fallout 3 จะไม่เปิด/ไม่ทำงานบน Windows 10 [แก้ไขด่วน]

Fallout 3 จะไม่เปิด/ไม่ทำงานบน Windows 10 [แก้ไขด่วน]

ประสบปัญหาเช่น Fallout 3 จะไม่เปิดขึ้นหรือไม่ทำงานบน Windows 10? อ่านบทความนี้เพื่อเรียนรู้วิธีทำให้ Fallout 3 ทำงานบน Windows 10 ได้อย่างง่ายดาย

[แก้ไขแล้ว] จะแก้ไขข้อผิดพลาดแอปพลิเคชัน 0xc0000142 และ 0xc0000005 ได้อย่างไร

[แก้ไขแล้ว] จะแก้ไขข้อผิดพลาดแอปพลิเคชัน 0xc0000142 และ 0xc0000005 ได้อย่างไร

วิธีแก้ไขข้อผิดพลาด Application Error 0xc0000142 และ 0xc0000005 ด้วยเคล็ดลับที่มีประสิทธิภาพและการแก้ปัญหาที่สำคัญ

การแก้ไข: การใช้งาน CPU สูงของความเข้ากันได้ของ Microsoft Telemetry อย่างถาวร

การแก้ไข: การใช้งาน CPU สูงของความเข้ากันได้ของ Microsoft Telemetry อย่างถาวร

เรียนรู้วิธีแก้ไข Microsoft Compatibility Telemetry ประมวลผลการใช้งาน CPU สูงใน Windows 10 และวิธีการปิดการใช้งานอย่างถาวร...

[แก้ไขแล้ว] ข้อผิดพลาดของ World War Z – หยุดทำงาน ไม่เปิดตัว หน้าจอดำและอื่น ๆ

[แก้ไขแล้ว] ข้อผิดพลาดของ World War Z – หยุดทำงาน ไม่เปิดตัว หน้าจอดำและอื่น ๆ

หากพบข้อผิดพลาดและข้อบกพร่องของ World War Z เช่น การหยุดทำงาน ไม่โหลด ปัญหาการเชื่อมต่อ และอื่นๆ โปรดอ่านบทความและเรียนรู้วิธีแก้ไขและเริ่มเล่นเกม

วิธีการใช้ ลบ และค้นหาข้อความเน้นใน Word

วิธีการใช้ ลบ และค้นหาข้อความเน้นใน Word

เมื่อคุณต้องการให้ข้อความในเอกสารของคุณโดดเด่น คุณสามารถใช้เครื่องมือในตัวที่มีประโยชน์ได้ ต่อไปนี้คือวิธีการเน้นข้อความใน Word