Jak zkopírovat přidání snímků do prezentace PowerPoint pomocí maker VBA?

Poslední aktualizace: červen 2020

Platí pro: Office 2019 a starší. Pouze Windows.

Zde je otázka od čtenáře:

V rámci své čtvrtletní prezentace zpráv vedení často potřebuji zkopírovat několik obecných informačních slidů z jiných prezentací. Není to velký problém, ale bylo by to značnou úsporou, kdyby bylo možné toto cvičení zautomatizovat. Jakákoli pomoc maker VBA k dosažení toho je oceňována!

Jak jste právě zmínili, můžete zautomatizovat kopírování a vkládání snímků v PowerPointu pomocí jazyka Visual Basic for Applications. Pokud potřebujete vytvořit několik prezentací každý měsíc, tato automatizace kopírování/importu snímků se může stát obrovskou úsporou času!

PowerPoint VBA pro přidávání snímků

Pojďme na toto jednoduché cvičení.

Nejprve se ujistěte, že je vaše karta Vývoj povolena a viditelná. Zde je návod, jak to udělat .

Předpokládám, že jste již vytvořili prezentaci s podporou maker (typ souboru je .pptm), kterou jste umístili do stejného adresáře jako zdrojovou prezentaci (kterou budu nazývat source.pptm). Zde je návod, jak vytvořit prezentaci v PowerPointu pomocí jazyka VBA .

Nejprve si udělejme zálohu této prezentace (jednoduché zkopírování a uložení).

Pak pokračujte a vložte následující makro do nového modulu VBA ve vaší cílové prezentaci. Všechny podrobnosti o tom, jak to udělat, najdete v našem výukovém programu PowerPoint VBA .

Zde je kód VBA, který budete potřebovat k automatickému kopírování a vkládání snímků.

Pár předpokladů, které jsem učinil:

  • Vaše zdrojová prezentace se jmenuje source.pptm
  •  Vložíte snímky 2–4 ze zdrojové prezentace
  • Zkopírované snímky umístíte na začátek snímku 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

Samozřejmě můžete změnit indexování čísel snímků v kódu tak, aby vyhovovaly vašim požadavkům.

Můžete procházet několika prezentacemi a vkládat konkrétní snímky z každé do vaší zprávy o řízení.

PowerPoint VBA pro duplikování snímků

Místo kopírování snímků do jiné prezentace můžete chtít naklonovat jeden nebo více snímků v prezentaci:

Sub CopySlides()

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

ActivePresentation.Slides(3).Duplicate

End Sub

To bylo jen pár jednoduchých příkladů automatizace PowerPointu. Čtenáři, kteří hledají konkrétní dotazy, neváhejte poslat dotaz prostřednictvím stránky Kontakt.

Snad to pomůže 🙂

Zachovat formátování při kopírování snímků

Problém s předchozím příkladem byl, že původní formátování motivu prezentací nebylo zkopírováno. Předpokládejme, že 2 listy měly odlišné formátování, stalo by se toto:

Příklad 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

Před spuštěním kódu
Toto je prezentace se snímkem, který chceme zkopírovat: Výsledek: K vyřešení tohoto problému můžete použít níže uvedený kód:
Snímky ke kopírování

Výsledek

 

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

Kromě zkopírování snímku výše uvedený kód zkopíruje návrh. Pokud byste to chtěli udělat ručně, zkopírujte předlohu snímků do nové prezentace. Předlohu snímků nemůžete zkopírovat pomocí jazyka VBA, ale místo toho můžete nastavit vlastnost návrhu snímků.

Leave a Comment

[VYRIEŠENÉ] „Tomuto vydavateľovi bolo zablokované spustenie softvéru na vašom počítači“ v systéme Windows 10

[VYRIEŠENÉ] „Tomuto vydavateľovi bolo zablokované spustenie softvéru na vašom počítači“ v systéme Windows 10

Získanie chyby Tomuto vydavateľovi bolo zablokované spustenie softvéru na vašom počítači, potom postupujte podľa opráv na odblokovanie vydavateľa a jednoduché spúšťanie softvéru

Ako kresliť na fotografiu na iPhone

Ako kresliť na fotografiu na iPhone

Chcete rýchlo anotovať fotografiu na iPhone? Môžete na to použiť aplikáciu Fotky. Táto príručka vám ukáže, ako začať.

[OPRAVENÉ] Kód chyby 0x80070035 Sieťová cesta sa nenašla v systéme Windows 10

[OPRAVENÉ] Kód chyby 0x80070035 Sieťová cesta sa nenašla v systéme Windows 10

Pri problémoch s kódom chyby 0x80070035 sa sieťová cesta nenašla, skúste opravy uvedené v článku ako vypnutie firewallu a zdieľanie disku.

Oprava: Nefunguje rozpoznání hlasu Asistenta Google

Oprava: Nefunguje rozpoznání hlasu Asistenta Google

Pokud hlasová shoda Google Assistant nefunguje, vytvořte nový hlasový model, spusťte aplikaci Google a nastavte výchozího asistenta.

Jak hrát The Legend Of Zelda: Breath Of The Wild na PC?

Jak hrát The Legend Of Zelda: Breath Of The Wild na PC?

Chcete si zahrát The Legend Of Zelda: Breath Of The Wild na PC? Zde se podívejte na všechny možné způsoby, jak hrát The Legend Of Zelda BOTW na Windows PC.

Nejjednodušší způsoby, jak vytvořit průhledné fotografické pozadí

Nejjednodušší způsoby, jak vytvořit průhledné fotografické pozadí

Objevte <strong>nejjednodušší způsoby odstranění pozadí fotografií</strong>. Připojte se k WebTech360 a zjistěte, jak efektivně vytvářet průhledná pozadí pro vaše obrázky.

Ako povoliť a používať automatické titulky na TikTok

Ako povoliť a používať automatické titulky na TikTok

Aby bylo vaše video na TikTok přístupnější a srozumitelnější, poskytneme vám návod, jak povolit a používat automatické titulky.

Ako opraviť chybu Bootrec/Fixboot Access Is Denied Windows 10?

Ako opraviť chybu Bootrec/Fixboot Access Is Denied Windows 10?

Postupujte podľa komplexných riešení uvedených v článku a opravte chybu bootrec/fixboot access denied vo Windows 10.

Ako sťahovať videá z Disney Plus na prezeranie offline

Ako sťahovať videá z Disney Plus na prezeranie offline

Zjistěte, jak efektivně stahovat videa z Disney Plus pro offline sledování. Všechny důležité informace na jednom místě.

Chyba 1058: Službu nelze spustit Windows 10 [VYŘEŠENO]

Chyba 1058: Službu nelze spustit Windows 10 [VYŘEŠENO]

Chcete-li opravit chybu 1058: Službu nelze spustit Windows 10, postupujte podle uvedených oprav, jako je kontrola služby a její povolení, použijte nastavení registru.