Cum să creați și să adăugați diapozitive la prezentările PowerPoint cu VBA?

Cu câteva zile în urmă, un cititor a întrebat că există o modalitate de a automatiza crearea de prezentări PowerPoint de la zero și apoi de a adăuga rapid diapozitive la prezentarea existentă. Am crezut că acel script ar putea fi foarte în lista celor mai utile macrocomenzi PowerPoint. 

După cum am indicat în trecut, PowerPoint nu include un Macro Recorder (care este spre deosebire de Excel și Word, care ambele au încorporate recordere pentru Macro). Prin urmare, am rămas cu vechiul Visual Basic pentru Aplicație pe care îl putem folosi pentru a crea macrocomenzi simple pentru a automatiza PowerPoint. Există alte alternative pentru automatizarea PowerPoint, dar acestea depășesc scopul acestui tutorial.

În tutorialul scurt de astăzi, vom trece peste trei cazuri de utilizare diferite:

  1. Creare nouă de prezentare (gol sau folosind un șablon)
  2. Adăugați diapozitive la o prezentare existentă.
  3. O combinație a celor două cazuri menționate mai sus (Creați de la zero și adăugați diapozitive)

Să începem.

Uită-te la Ribbon. Dacă nu vedeți o intrare pentru Dezvoltator în meniu, înainte de a începe codarea, va trebui să activați fila Dezvoltator.

După ce faceți vizibil meniul Developer Ribbon, mergeți mai departe și apăsați pe Developer , apoi apăsați pe butonul Visual Basic (sau pur și simplu mergeți mai departe și apăsați Alt+F11) pentru a deschide Visual Basic IDE.

VBA pentru a crea o prezentare PowerPoint

  1. În Editorul VB, faceți clic dreapta pe VBAProject și apăsați Inserare .
  2. Selectați Modul .
  3. Lipiți următorul cod în modulul nou creat.
Sub CreatePresentation()
Dim NewPres as Presentation
Set NewPres = Presentations.Add
NewPres.SaveAs("MyPresentation.pptx")
End Sub
  1. Apăsați pe fișier și apoi pe Salvați.
  2. Pentru a rula codul, apăsați Run și apoi alegeți Run Sub/User Form (sau pur și simplu F5).
  3. Închideți editorul VB.

VBA pentru a insera diapozitive

  1. În Editorul VB, faceți clic dreapta pe VBAProject și apăsați Inserare.
  2. Selectați Modul
  3. Lipiți următorul cod în modulul nou creat.
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. Apăsați pe fișier și apoi pe Salvați.
  2. Pentru a rula codul, apăsați Run și apoi alegeți Run Sub/User Form (sau pur și simplu F5).
  3. Închideți editorul VB.

Macro pentru a configura o nouă prezentare și pentru a adăuga diapozitive

Ar fi doar amestecarea celor două fragmente prezentate mai sus.

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

În continuare, s-ar putea să consultați tutorialul nostru despre crearea programatică a formelor în PowerPoint cu VBA

Generați o prezentare PowerPoint din Excel

Ultimul caz este că doriți să creați o prezentare PowerPoint direct dintr-o foaie de calcul Excel. Puteți folosi aceeași tehnică din Word și din alte aplicații Microsoft 365.

  • Conectați foaia de calcul la modelul de date PowerPoint (din Instrumente>>Referințe)
  • Introduceți un buton în foaia de calcul Excel (Dezvoltator >> Inserați și apoi alegeți un buton de comandă).
  • Introduceți codul VBA de mai jos în proiectul dvs. VBA Spreadsheet (direct în foaie sau într-un modul VBA)
  • Modificați scriptul după cum este necesar.
  • Rulați (apăsați F5) și testați rezultatul.
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

Bucură-te 🙂

Avantajele Excel VBA PowerPoint

  • Utilizarea VBA în Powerpoint face ușor de manevrat dacă un fișier ppt are atât de multe diapozitive cu conținut imens.
  • VBA cu Powerpoint oferă o notă de automatizare chiar și cu funcții limitate disponibile.

Contra ale Excel VBA PowerPoint

  • Trebuie să selectăm Biblioteca de obiecte Microsoft PowerPoint 15.0 din opțiunea Referință situată în opțiunea meniului Instrument, de care avem nevoie la începutul exemplu-1, de fiecare dată când rulăm codul pentru PowerPoint.

Lucruri de amintit

  • Salvați fișierul în formatul Macro-Enable Presentation după ce ați scris codul. Acest lucru ne va ajuta să evităm pierderea codului și utilizarea aceluiași timp de mai multe ori în viitor.
  • Caracteristica de codificare nu va funcționa aici, deoarece trebuie să trecem de la Excel la PowerPoint schimbând interfața dintre pagini.
  • Întotdeauna compilați codul înainte de a rula. Acest lucru vă va ajuta să găsiți eroarea din cod. Acest lucru este destul de util atunci când scriem linii mari de cod.
  • Pentru a rula și implementa codul trebuie să deschidem foaia Excel cu Chart pe care dorim să o lipim în slide PowerPoint.
  • Putem alinia diagrama în PowerPoint în funcție de nevoile noastre.

7 moduri de a remedia eroarea Blue Screen of Death (BSOD) în Windows 10

7 moduri de a remedia eroarea Blue Screen of Death (BSOD) în Windows 10

Luptă cu eroarea Blue Screen of Death (BSOD) în Windows 10. Obțineți remedieri de depanare pentru a rezolva această eroare cu ușurință.

Cum se creează etichete în aplicația Gmail? Iată tot ce trebuie să știi

Cum se creează etichete în aplicația Gmail? Iată tot ce trebuie să știi

Dacă doriți să creați etichete în aplicația Gmail, acest ghid vă oferă soluția. Aflati cum sa faceti acest lucru atât pe telefon, cât și pe desktop.

Cum să adăugați chenar la o pagină în Microsoft Word

Cum să adăugați chenar la o pagină în Microsoft Word

Îmbunătățiți-vă documentele cu un chenar de pagină personalizat în Word. Află cum să adăugați și să personalizezi chenarul.

Cum să remediați Xbox nu se conectează la Wi-Fi? [10 soluții rapide]

Cum să remediați Xbox nu se conectează la Wi-Fi? [10 soluții rapide]

Dacă Xbox-ul dvs. nu se va conecta la Wi-Fi, urmăriți soluțiile furnizate în acest articol pentru a vă conecta Xbox și a continua să jucați.

REPARAT: PS4 se oprește de la sine Problemă aleatorie [Remediere rapidă]

REPARAT: PS4 se oprește de la sine Problemă aleatorie [Remediere rapidă]

Dacă PS4 se oprește de la sine, urmați soluțiile noastre eficiente pentru a remedia problema rapid și ușor.

Remediați „Microfonul este dezactivat de setările sistemului Google Meet” [6 trucuri]

Remediați „Microfonul este dezactivat de setările sistemului Google Meet” [6 trucuri]

Aflați cele mai bune soluții pentru a remedia eroarea „microfonul este dezactivat de setările sistemului” pe Google Meet, Zoom și Hangouts.

Cum să scrieți fracții în Google Docs

Cum să scrieți fracții în Google Docs

Descoperiți modalitățile simple și eficiente de a scrie fracții în Google Docs folosind caractere speciale și echivalente automate.

7 Remedieri rapide pentru eroarea ReCaptcha pentru proprietarul site-ului: Tip cheie nevalid

7 Remedieri rapide pentru eroarea ReCaptcha pentru proprietarul site-ului: Tip cheie nevalid

Remedierea eroarei Google ReCaptcha „Eroare pentru proprietarul site-ului: tip cheie invalid” prin soluții eficiente și actualizate.

Cum să calibrați culoarea monitorului în Windows 10

Cum să calibrați culoarea monitorului în Windows 10

Setările de calibrare a culorilor încorporate în Windows 10 vă ajută să îmbunătățiți acuratețea culorii monitoarelor dvs. Acest ghid detaliat vă arată cum să găsiți și să configurați aceste setări.

Conectarea la PlayStation Network a eșuat [FIXAT]

Conectarea la PlayStation Network a eșuat [FIXAT]

Conectarea la rețeaua PlayStation a eșuat atunci când vă conectați la PS4, apoi urmați remedieri precum actualizarea software-ului sistemului PSN, modificarea setărilor DNS...