Paskutinį kartą atnaujinta: 2020 m. birželio mėn
Taikoma: „Office 2019“ ir senesnėms versijoms. Tik Windows.
Štai skaitytojo klausimas:
Kaip dalį savo ketvirčio ataskaitos pristatymo vadovybei, man dažnai reikia nukopijuoti kelias bendrosios informacijos skaidres iš kitų pristatymų. Tai nėra didelė problema, tačiau būtų galima sutaupyti, jei būtų galima automatizuoti šį pratimą. Bet kokia VBA makrokomanda padeda tai pasiekti yra vertinama!
Kaip ką tik minėjote, galite automatizuoti skaidrių kopijavimą ir įklijavimą „PowerPoint“ naudodami „Visual Basic for Applications“. Jei kas mėnesį reikia sukurti keletą pristatymų, šis skaidrių kopijavimo / importavimo automatizavimas gali sutaupyti daug laiko!
PowerPoint VBA skaidrėms pridėti
Pradėkime nuo šio paprasto pratimo.
Pirmiausia įsitikinkite, kad kūrimo skirtukas įjungtas ir matomas. Štai kaip tai padaryti .
Darysiu prielaidą, kad jau sukūrėte pristatymą su makrokomandomis (failo tipas yra .pptm), kurį įdėjote į tą patį katalogą nei jūsų šaltinio pristatymas (kurį vadinsiu source.pptm). Štai kaip sukurti „PowerPoint“ pristatymą naudojant VBA .
Pirmiausia padarykime atsarginę to pristatymo kopiją (paprasta nukopijuokite ir išsaugokite).
Tada eikime į priekį ir įterpkite šią makrokomandą į naują VBA modulį paskirties pristatyme. Visą informaciją apie tai, kaip tai padaryti, rasite mūsų PowerPoint VBA mokymo programoje .
Štai VBA kodas, kurio jums reikės norint automatiškai nukopijuoti ir įklijuoti skaidres.
Pora mano padarytų prielaidų:
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
Žinoma, nedvejodami pakeiskite skaidrės numerio indeksavimą kode, kad jie atitiktų jūsų poreikius.
Galite priversti jį peržiūrėti keletą pristatymų ir į savo valdymo ataskaitą įterpti konkrečias skaidres iš kiekvienos.
„PowerPoint VBA“, skirta skaidrėms kopijuoti
Užuot kopijavę skaidres į kitą pristatymą, galbūt norėsite klonuoti vieną ar kelias pristatymo skaidres:
Sub CopySlides()
' Short snippet to duplicate the third slide in a presentation, change the index/es accrodingly
ActivePresentation.Slides(3).Duplicate
End Sub
Tai buvo tik keletas paprastų „PowerPoint“ automatizavimo pavyzdžių. Skaitytojai, ieškantys konkrečių klausimų, nedvejodami siųskite užklausą kontaktų puslapyje.
Tikimės, kad tai padės 🙂
Ankstesnio pavyzdžio problema buvo ta, kad originalus pristatymų temos formatavimas nebuvo nukopijuotas. Tarkime, kad 2 lapai turėjo skirtingą formatavimą, būtų nutikę taip:
1 pavyzdys
|
|
Tai pristatymas su skaidre, kurią norime nukopijuoti:
Rezultatas:
Norėdami išspręsti šią problemą, galite naudoti toliau pateiktą kodą:
|
|
Be skaidrės kopijavimo, aukščiau esantis kodas kopijuoja dizainą. Jei norite tai padaryti rankiniu būdu, nukopijuokite skaidrių tvarkyklę į naują pristatymą. Negalite kopijuoti skaidrių šablono naudodami VBA, bet galite nustatyti skaidrių dizaino ypatybes.
Ištaisykite „Outlook“, kai galite gauti el. laiškus, bet negalite jų siųsti. Patikrinkite išsiuntimo dėžutę, atjungties režimą, prisijungimą, SMTP nustatymus, profilius ir „Microsoft 365“ pakeitimus.
Sukurkite paprastą dvisavaitinį atlyginimų apskaitos šabloną „Excel“ mažai komandai, įtraukdami darbo valandas, atlyginimus, išskaičiavimus, peržiūros žymes, suvestines ir dokumentų saugojimo gaires.
Sukurkite paprastą naujų darbuotojų įtraukimo pristatymą naudodami praktinę 12 skaidrių struktūrą, apimančią pareigų lūkesčius, įrankius, saugumą, politiką, saugą ir pirmosios savaitės veiksmus.
Švariai eksportuokite „Salesforce“ kontaktus į „Excel“: sukurkite tinkamą ataskaitą, eksportuokite kaip „Details Only CSV“, importuokite naudodami „Power Query“, išsaugokite ID ir pradinus nulius, saugiai pašalinkite dublikatus ir patikrinkite rezultatą.
Naudokite šį spausdinamą savaitinį valymo tvarkaraštį „Airbnb“ šeimininkams, kad organizuotumėte apsikeitimo valymą, giliajį valymą, atsargų papildymą, saugos patikras ir spausdinimą iš Word į PDF.
Organizuokite mėnesines sąskaitas „Excel“ naudodami nemokamą sąskaitų kalendoriaus išdėstymą, mokėjimo terminų stebėjimą, būsenos formules, automatinio mokėjimo laukus ir praktinius pinigų srautų patarimus.
Ištaisykite Excel formules, kurios neapskaičiuoja automatiškai, atlikdami tris veiksmus: įjunkite automatinį skaičiavimą, perskaičiuokite ir sutvarkykite formulių langelius.
Sukurkite praktišką išlaidų sekimo įrankį JAV laisvai samdomiems darbuotojams su Schedule C kategorijomis, kvitų laukais, nuvažiuotų mylių sekimu ir 2026 m. IRS taisyklių pakeitimais.
Palyginkite geriausias nemokamas sąskaitų faktūrų programėles JAV paslaugų įmonėms 2026 m., įskaitant „Zoho Invoice“, „Wave“, „Square“, „PayPal“ ir „Invoice Ninja“.
Naudokite nemokamą „Excel“ nuomos nuosavybės stebėtoją pajamoms, išlaidoms, nuosavybei ir mėnesiniam pinigų srautui organizuoti. Sužinokite, ką fiksuoti, kaip tai nustatyti ir kokių klaidų vengti.
