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

Hogyan lehet leállítani az Excelt a számok automatikus dátumokra váltásáról

Hogyan lehet leállítani az Excelt a számok automatikus dátumokra váltásáról

Megakadályozhatod, hogy az Excel olyan értékeket konvertáljon dátumokká, mint az 1/2, 11-53 vagy JAN1. Ismerj meg megbízható javításokat a gépeléshez, beillesztéshez, CSV-importáláshoz és a már konvertált cellákhoz.

Modern Real Estate Listing Presentation PowerPoint Template (Free): What to Include

Modern Real Estate Listing Presentation PowerPoint Template (Free): What to Include

Build a polished real estate listing PowerPoint for free with a practical slide plan, photo, branding, accessibility, compliance, and export tips.

Hogyan javítható meg az Outlook hiba: e-mailek fogadása működik, de a küldés nem

Hogyan javítható meg az Outlook hiba: e-mailek fogadása működik, de a küldés nem

Javítsa meg az Outlookot, ha fogadhat e-maileket, de nem tud küldeni. Ellenőrizze a Kimenő mappát, az offline módot, a bejelentkezést, az SMTP-beállításokat, a profilokat és a Microsoft 365 változásait.

Egyszerű kétheti bérszámfejtési nyilvántartó Excel sablon kis csapatoknak: Gyakorlati beállítási útmutató

Egyszerű kétheti bérszámfejtési nyilvántartó Excel sablon kis csapatoknak: Gyakorlati beállítási útmutató

Készítsen egyszerű kétheti bérszámfejtési nyilvántartót Excelben kis csapatok számára, órákkal, fizetéssel, levonásokkal, felülvizsgálati jelölőkkel, összefoglalókkal és nyilvántartási útmutatással.

Nyomtatható eseménytervezési ellenőrzőlista és költségvetési sablon Wordhöz: Mit tartalmazzon, és mikor használjon Excelt helyette?

Nyomtatható eseménytervezési ellenőrzőlista és költségvetési sablon Wordhöz: Mit tartalmazzon, és mikor használjon Excelt helyette?

Készítsen vagy szabjon testre nyomtatható eseménytervezési ellenőrzőlistát és költségvetési sablont Microsoft Wordben, gyakorlati részekkel, kompromisszumokkal és tippekkel a Word és az Excel használatához.

Egyszerű belépési képzési prezentációs sablon új munkatársaknak: 12 diás gyakorlati vázlat

Egyszerű belépési képzési prezentációs sablon új munkatársaknak: 12 diás gyakorlati vázlat

Készítsen egyszerű belépési prezentációt új munkatársaknak egy gyakorlati, 12 diás struktúrával, amely lefedi a szerepkör elvárásait, az eszközöket, a biztonságot, a szabályzatokat, a munkavédelmet és az első hét teendőit.

Hogyan exportálhatók a Salesforce névjegyek tiszta Excel formátumba az azonosítók és telefonszámok sérülése nélkül

Hogyan exportálhatók a Salesforce névjegyek tiszta Excel formátumba az azonosítók és telefonszámok sérülése nélkül

Exportáljon Salesforce névjegyeket tisztán Excelbe: állítsa össze a megfelelő jelentést, exportáljon Details Only CSV formátumban, importáljon Power Query-vel, őrizze meg az azonosítókat és a vezető nullákat, deduplikáljon biztonságosan, és ellenőrizze az eredményt.

Nyomtatható heti takarítási ütemterv sablon Airbnb házigazdáknak (Word és PDF)

Nyomtatható heti takarítási ütemterv sablon Airbnb házigazdáknak (Word és PDF)

Használja ezt a nyomtatható heti takarítási ütemtervet Airbnb házigazdáknak a vendégváltások közötti takarítás, a mélytakarítás, a feltöltés, a biztonsági ellenőrzések és a Word-PDF nyomtatás szervezéséhez.

Ingyenes havi számlanaptár-szervező sablon Excelhez: Gyakorlati beállítás 2026-ra

Ingyenes havi számlanaptár-szervező sablon Excelhez: Gyakorlati beállítás 2026-ra

Szervezze havi számláit Excelben egy ingyenes számlanaptár elrendezéssel, esedékességkövetéssel, státuszképletekkel, automatikus fizetési mezőkkel és gyakorlati pénzforgalmi tippekkel.

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.