Hvernig á að afrita bæta glærum inn í PowerPoint kynninguna þína með VBA fjölvi?

Síðast uppfært: júní 2020

Gildir fyrir: Office 2019 og eldri. Aðeins Windows.

Hér er spurning frá lesanda:

Sem hluti af ársfjórðungsskýrslukynningu minni fyrir stjórnendum þarf ég oft að afrita nokkrar almennar upplýsingaskyggnur úr öðrum kynningum. Ekki mikið mál, en það væri verulegur sparnaður að geta gert þessa æfingu sjálfvirkan. Öll VBA Macro hjálp til að ná því er vel þegin!

Eins og þú nefndir nýlega geturðu sjálfvirkt afrita og líma glærurnar í PowerPoint með Visual Basic fyrir forrit. Ef þú þarft að búa til nokkrar kynningar í hverjum mánuði gæti þessi sjálfvirkni glæruafritunar / innflutnings orðið mikill tímasparnaður!

PowerPoint VBA til að bæta við glærum

Höldum af stað með þessa einföldu æfingu.

Fyrst skaltu ganga úr skugga um að þróunarflipi þinn sé virkur og sýnilegur. Hér er hvernig á að gera það .

Ég geri ráð fyrir að þú hafir þegar búið til Macro-virkja kynningu (skráargerð er .pptm), sem þú hefur sett í sömu möppu og frumkynningin þín (sem ég mun vísa til sem source.pptm). Hér er hvernig á að búa til PowerPoint kynningu með VBA .

Í fyrsta lagi skulum við taka öryggisafrit af þeirri kynningu (einfalt afrita og vista).

Þá skulum við halda áfram og setja eftirfarandi fjölvi inn í nýja VBA einingu í áfangakynningu þinni. Allar upplýsingar um hvernig á að gera það er að finna í PowerPoint VBA kennsluefninu okkar .

Hér er VBA kóðann sem þú þarft til að afrita og líma skyggnurnar sjálfkrafa.

Nokkrar forsendur sem ég gaf mér:

• Upprunakynningin þín heitir source.pptm
•  Þú munt líma glærur 2-4 úr frumkynningunni þinni
• Þú setur afrituðu skyggnurnar sem byrja á glæru 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

Augljóslega skaltu ekki hika við að breyta skráningu glærunúmera í kóðanum svo þau passi að þínum þörfum.

Þú ert fær um að láta það fara í gegnum nokkrar kynningar og setja sérstakar glærur úr hverri inn í stjórnunarskýrsluna þína.

PowerPoint VBA til að afrita glærur

Í stað þess að afrita skyggnur í aðra kynningu gætirðu viljað klóna eina eða fleiri skyggnur í kynningunni þinni:

Sub CopySlides()

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

ActivePresentation.Slides(3).Duplicate

End Sub

Þetta voru bara nokkur einföld dæmi um sjálfvirkni PowerPoint. Lesendur sem eru að leita að ákveðnum spurningum, ekki hika við að senda fyrirspurn í gegnum tengiliðasíðuna.

Vona að það hjálpi 🙂