Hogyan másolhat át diákat a PowerPoint-bemutatóba VBA-makrók segítségével?

Utolsó frissítés: 2020. június

Alkalmazható: Office 2019 és régebbi verziók. Csak Windows.

Íme egy olvasói kérdés:

A vezetőségnek szóló negyedéves jelentési prezentációm részeként gyakran kell más prezentációkról átmásolnom több általános információs diát. Nem nagy dolog, de jelentős megtakarítást jelentene, ha ezt a gyakorlatot automatizálnák. Nagyra értékeljük a VBA makró segítségét ennek megvalósításához!

Ahogy az imént említette, automatizálhatja a diák másolását és beillesztését a PowerPointban a Visual Basic for Applications segítségével. Ha havonta több prezentációt kell készítenie, ez a diamásolás/importálás automatizálás óriási időmegtakarítást jelenthet!

PowerPoint VBA diák hozzáadásához

Kezdjük ezzel az egyszerű gyakorlattal.

Először is győződjön meg arról, hogy a fejlesztési lap engedélyezve van és látható. Íme, hogyan kell ezt megtenni .

Feltételezem, hogy már létrehozott egy makróképes prezentációt (a fájl típusa .pptm), amelyet ugyanabba a könyvtárba helyezett el, mint a forrásprezentációt (amelyre forrás.pptm néven hivatkozom). Így hozhat létre PowerPoint prezentációt VBA segítségével .

Először is készítsünk biztonsági másolatot a bemutatóról (egyszerű másolás és mentés).

Ezután menjünk tovább, és helyezzük be a következő Makrót egy új VBA-modulba a célprezentációban. Ennek minden részlete megtalálható a PowerPoint VBA oktatóanyagában .

Itt van a VBA-kód, amelyre szüksége lesz a diák automatikus másolásához és beillesztéséhez.

Egy-két feltételezésem:

  • A forrásbemutató neve source.pptm
  •  A forrásbemutató 2–4. diáját beillesztheti
  • A másolt diákat az 5. diával kezdheti.

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

Nyilvánvaló, hogy nyugodtan módosítsa a diák számának indexelését a kódban, hogy azok megfeleljenek az Ön igényeinek.

Lehetőség van arra, hogy több prezentáción is végigfusson, és mindegyikből konkrét diát szúrjon be a vezetői jelentésbe.

PowerPoint VBA diák sokszorosításához

A diák másik prezentációba másolása helyett érdemes lehet egy vagy több diát klónozni a prezentációban:

Sub CopySlides()

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

ActivePresentation.Slides(3).Duplicate

End Sub

Ez csak néhány egyszerű példa volt a PowerPoint automatizálására. Azok az olvasók, akik konkrét kérdéseiket keresik, nyugodtan küldjenek érdeklődést a Kapcsolat oldalon keresztül.

Remélem segít 🙂

A formázás megőrzése diák másolásakor

Az előző példával az volt a probléma, hogy az eredeti prezentációtéma formázását nem másolták át. Tegyük fel, hogy a 2 lap eltérő formázású, ez történt volna:

1. példa

 

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

A kód futtatása előtt
Ez a prezentáció a másolni kívánt diával: Eredmény: A probléma megoldásához használhatja az alábbi kódot:
Másolandó diák

Eredmény

 

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

A dia másolásán kívül a fenti kód másolja a dizájnt. Ha ezt manuálisan szeretné megtenni, át kell másolnia a diamestert az új bemutatóba. A slidemaster nem másolható VBA használatával, ehelyett beállíthatja a diák tervezési tulajdonságait.

Hagyj kommentárt

Az Excel képletek nem számolnak automatikusan? Javítsd meg 3 egyszerű lépésben

Az Excel képletek nem számolnak automatikusan? Javítsd meg 3 egyszerű lépésben

Javítsd meg az Excel képleteket, amelyek nem számolnak automatikusan három lépésben: engedélyezd az Automatikus számítást, újraszámoltasd, és javítsd meg a képletcellákat.

Független vállalkozó költségnapló sablon amerikai szabadúszóknak: Mit kell nyilvántartani 2026-ban

Független vállalkozó költségnapló sablon amerikai szabadúszóknak: Mit kell nyilvántartani 2026-ban

Készítsen gyakorlati költségnaplót amerikai szabadúszóknak Schedule C-barát kategóriákkal, számlamezőkkel, kilométerkövetéssel és a 2026-os IRS szabálymódosításokkal.

A legjobb ingyenes számlázó alkalmazások kis szolgáltató vállalkozások számára az USA-ban (2026)

A legjobb ingyenes számlázó alkalmazások kis szolgáltató vállalkozások számára az USA-ban (2026)

Hasonlítsa össze a legjobb ingyenes számlázó alkalmazásokat az amerikai szolgáltató vállalkozások számára 2026-ban, beleértve a Zoho Invoice, Wave, Square, PayPal és Invoice Ninja megoldásokat.

Ingyenes Excel sablon bérleti ingatlan költségeinek és bevételeinek nyomon követésére: Kezdőknek szóló útmutató

Ingyenes Excel sablon bérleti ingatlan költségeinek és bevételeinek nyomon követésére: Kezdőknek szóló útmutató

Használjon ingyenes Excel bérleti ingatlan nyomonkövetőt a bevételek, költségek, ingatlanok és havi cash flow szervezésére. Tanulja meg, mit rögzítsen, hogyan állítsa be, és milyen hibákat kerüljön el.

Ingyenes projektstátusz-jelentés prezentációs sablon Agile csapatoknak: Mit tartalmazzon?

Ingyenes projektstátusz-jelentés prezentációs sablon Agile csapatoknak: Mit tartalmazzon?

Használd ezt az ingyenes, másolásra kész Agile projektstátusz-jelentés prezentációs sablont a haladás, a kockázatok, a döntések és a következő lépések bemutatására úgy, hogy a frissítések ne váljanak zajossá.

Hogyan javítsd meg a „PowerPoint képernyőrögzítés hangja nem működik” hibát

Hogyan javítsd meg a „PowerPoint képernyőrögzítés hangja nem működik” hibát

A PowerPoint képernyőrögzítésnek van videója, de nincs hangja? Ellenőrizd a Hang vezérlőt, a Windows mikrofon-hozzáférést, a bemeneti beállításokat, a lejátszási kompatibilitást, a frissítéseket és a javítást.

Ingyenes munkavállalói műszakbeosztás sablon Excelben, óraszámolóval

Ingyenes munkavállalói műszakbeosztás sablon Excelben, óraszámolóval

Készítsen ingyenes Excel munkavállalói műszakbeosztást automatikus óraszámítással, éjszakai műszakok kezelésével, szünet levonásokkal, heti összesítésekkel, túlóra tervezési jelzőkkel és nyomtatható csapatnézettel.

Ingyenes kisvállalkozási számlasablon Excelhez automatizált forgalmiadó-számítással

Ingyenes kisvállalkozási számlasablon Excelhez automatizált forgalmiadó-számítással

Készítsen ingyenes Excel számlasablont, amely automatikusan kiszámítja az adóalapot, a forgalmi adót és a végösszeget. Hasonlítsa össze az egységes kulcsos, a keresőtáblás és a tételenkénti adóbeállításokat, és tudja meg, mikor nem elég már az Excel.

Hogyan alakítsunk át PDF-et szerkeszthető Word-dokumentummá formázási veszteség nélkül

Hogyan alakítsunk át PDF-et szerkeszthető Word-dokumentummá formázási veszteség nélkül

Alakítsd át a PDF-et szerkeszthető Word-dokumentummá a lehető legkisebb formázási veszteséggel a Word vagy az Acrobat segítségével. Tanuld meg, mikor működik a közvetlen konverzió, mikor van szükség OCR-re, és hogyan javíthatóak a táblázatok, betűtípusok és oldaltörések.

Nyomtatható építési munkabecslő sablon Excelben kisvállalkozóknak

Nyomtatható építési munkabecslő sablon Excelben kisvállalkozóknak

Készítsen nyomtatható építési munkabecslést Excelben: terjedelmi leírás, anyagköltség, munkadíj, rezsiköltség, tartalék, felár, adó és nyomtatásra kész összesítés – képletekkel és a kerülendő hibákkal.