จะสร้างและเพิ่มสไลด์ในงานนำเสนอ PowerPoint ด้วย VBA ได้อย่างไร

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

ตามที่เราระบุไว้ในอดีต PowerPoint ไม่มีMacro Recorder (ซึ่งต่างจาก Excel และ Word ซึ่งทั้งคู่มีตัวบันทึกในตัวสำหรับ Macro) ดังนั้นเราจึงเหลือ Visual Basic for Application แบบเก่าที่ดีที่เราสามารถใช้เพื่อสร้าง Macros อย่างง่ายเพื่อทำให้ PowerPoint เป็นอัตโนมัติ มีทางเลือกอื่นสำหรับ PowerPoint Automation แต่ตัวเลือกเหล่านั้นอยู่นอกเหนือขอบเขตของบทช่วยสอนนี้

ในบทช่วยสอนสั้นๆ ของวันนี้ เราจะพูดถึงกรณีการใช้งานที่แตกต่างกันสามกรณี:

  1. การสร้างงานนำเสนอใหม่ (ว่างเปล่าหรือใช้เทมเพลต)
  2. เพิ่มสไลด์ในงานนำเสนอที่มีอยู่
  3. การผสมผสานของสองกรณีที่กล่าวถึงข้างต้น (สร้างตั้งแต่เริ่มต้นและการเพิ่มสไลด์)

มาเริ่มกันเลย.

ดูริบบิ้น. หากคุณไม่เห็นรายการนักพัฒนาซอฟต์แวร์ในเมนู ก่อนเริ่มเขียนโค้ด คุณจะต้องเปิดใช้งานแท็บนักพัฒนาซอฟต์แวร์ก่อน

หลังจากที่คุณทำให้เมนู Developer มองเห็น Ribbon ของคุณแล้ว ให้กดบนDeveloperจากนั้นกดปุ่มVisual Basic (หรือเพียงแค่กด Alt+F11) เพื่อเปิด Visual Basic IDE

VBA เพื่อสร้างงานนำเสนอ PowerPoint

  1. ใน VB Editor ให้คลิกขวาที่ VBAProject แล้วกดInsert
  2. เลือกโมดูล _
  3. วางรหัสต่อไปนี้ในโมดูลที่สร้างขึ้นใหม่
Sub CreatePresentation()
Dim NewPres as Presentation
Set NewPres = Presentations.Add
NewPres.SaveAs("MyPresentation.pptx")
End Sub
  1. กดไฟล์แล้วบันทึก
  2. ในการรันโค้ดของคุณ ให้กด Run จากนั้นเลือก Run Sub/User Form (หรือเพียงแค่ F5)
  3. ปิดตัวแก้ไข VB

VBA เพื่อแทรกสไลด์

  1. ใน VB Editor ให้คลิกขวาที่ VBAProject แล้วกด Insert
  2. เลือกโมดูล
  3. วางรหัสต่อไปนี้ในโมดูลที่สร้างขึ้นใหม่
Sub CreateSlide()
Dim NewSlide as Slide
'This statement ads a title slide
Set NewSlide = ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle)
'This statement adds a blank slide in the second place
Set NewSlide = ActivePresentation.Slides.Add(Index:=2, Layout:=ppLayoutBlank)
End Sub
  1. กดไฟล์แล้วบันทึก
  2. ในการรันโค้ดของคุณ ให้กด Run จากนั้นเลือก Run Sub/User Form (หรือเพียงแค่ F5)
  3. ปิดตัวแก้ไข VB

มาโครเพื่อตั้งค่าการนำเสนอใหม่และเพิ่มสไลด์

นั่นจะเป็นเพียงแค่การผสมสองตัวอย่างที่ระบุไว้ข้างต้น

Sub CreatePres_AddSlides()
Dim NewPres as Presentation
Dim NewSlide as Slide
Set NewPres = Presentations.Add
NewPres.SaveAs("MyPresentation.pptx")
' Title Slide
Set NewSlide = ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle)
'This statement adds a blank slide in the second place
Set NewSlide = ActivePresentation.Slides.Add(Index:=2, Layout:=ppLayoutBlank)
'Save the new PowerPoint file
NewPres.SaveAs("MyPresentation.pptx")
End Sub

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

สร้างงานนำเสนอ PowerPoint จาก Excel

กรณีสุดท้ายคือ คุณต้องการสร้างงานนำเสนอ PowerPoint จากสเปรดชีต Excel คุณสามารถใช้เทคนิคเดียวกันนี้จาก Word และแอปพลิเคชัน Microsoft 365 อื่นๆ

  • เชื่อมโยงสเปรดชีตกับโมเดลข้อมูล PowerPoint (จากเครื่องมือ >> ข้อมูลอ้างอิง)
  • แทรกปุ่มในสเปรดชีต Excel ของคุณ (ผู้พัฒนา >> แทรก จากนั้นเลือกปุ่มคำสั่ง)
  • แทรกโค้ด VBA ด้านล่างลงในสเปรดชีต VBA Project (ลงในชีตโดยตรงหรือลงในโมดูล VBA)
  • แก้ไขสคริปต์ตามต้องการ
  • เรียกใช้ (กด F5) และทดสอบผลลัพธ์
Sub CreatePresentationFromExcel()


Dim MyPPt As PowerPoint.Application
Dim NewPres As PowerPoint.Presentation
Dim NewSlide As Slide
Set MyPPt = CreateObject("PowerPoint.Application")

Set NewPres = MyPPt.Presentations.Add
Set NewSlide = MyPPt.ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle)

NewPres.SaveAs ("MyPresentation.pptx")
NewPres.Close

MyPPt.Quit

MsgBox ("Presentation saved")
End Sub

สนุก 🙂

ข้อดีของ Excel VBA PowerPoint

  • การใช้ VBA ใน Powerpoint ช่วยให้จัดการได้ง่ายหากไฟล์ ppt มีสไลด์จำนวนมากและมีเนื้อหาขนาดใหญ่
  • VBA พร้อม Powerpoint มอบสัมผัสแห่งการทำงานอัตโนมัติ แม้ว่าจะมีฟังก์ชันที่จำกัดก็ตาม

ข้อเสียของ Excel VBA PowerPoint

  • เราจำเป็นต้องเลือก ไลบรารีวัตถุของ Microsoft PowerPoint 15.0 จากตัวเลือกการอ้างอิงที่อยู่ในตัวเลือกเมนูเครื่องมือ ซึ่งเราต้องการเมื่อเริ่มต้น ตัวอย่างที่ 1 ทุกครั้งที่เราเรียกใช้โค้ดสำหรับ PowerPoint

สิ่งที่ต้องจำ

  • บันทึกไฟล์ในรูปแบบ Macro-Enable Presentation หลังจากเขียนโค้ดแล้ว วิธีนี้จะช่วยให้เราหลีกเลี่ยงการสูญเสียรหัสและการใช้หลายครั้งเดียวกันในอนาคต
  • คุณลักษณะการบันทึกจะไม่ทำงานที่นี่ เนื่องจากเราจำเป็นต้องข้ามจาก Excel ไปยัง PowerPoint เพื่อเปลี่ยนอินเทอร์เฟซระหว่างหน้าต่างๆ
  • รวบรวมโค้ดก่อนรันเสมอ ซึ่งจะช่วยคุณค้นหาข้อผิดพลาดในโค้ด สิ่งนี้ค่อนข้างมีประโยชน์เมื่อเราเขียนโค้ดบรรทัดใหญ่
  • ในการเรียกใช้และนำโค้ดไปใช้ เราจำเป็นต้องเปิดแผ่นงาน Excel พร้อมแผนภูมิที่เราต้องการวางในสไลด์ PowerPoint
  • เราสามารถจัดแนวแผนภูมิใน PowerPoint ได้ตามความต้องการของเรา

วิธีแปลอีเมลขาเข้าใน 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