Sakoma, kad iki 50 procentų „PowerPoint“ pristatymų yra duomenų, kurie buvo nukopijuoti tiesiai iš „Excel“. Šiuo teiginiu nesunku patikėti. Dažnai daug lengviau analizuoti ir kurti diagramas bei duomenų rodinius programoje „Excel“ nei „PowerPoint“. Sukūrus šias diagramas ir duomenų rodinius, kodėl gi jų tiesiog neperkėlus į „PowerPoint“? Šioje skiltyje esanti makrokomanda leidžia dinamiškai kurti PowerPoint skaidres, kuriose yra duomenų iš jūsų nurodyto diapazono.
Galite atsisiųsti veikiantį Excel duomenų siuntimo į PowerPoint pavyzdį .
Šiame pavyzdyje nukopijuojate diapazoną iš „Excel“ failo ir įklijuojate tą diapazoną į naujai sukurto „PowerPoint“ pristatymo skaidrę.
Atminkite, kad šis kodas bus paleistas iš „Excel“, todėl turite nustatyti nuorodą į „Microsoft PowerPoint“ objektų biblioteką. Nuorodą galite nustatyti atidarę Visual Basic redaktorių programoje Excel ir pasirinkę Įrankis → Nuorodos. Slinkite žemyn, kol rasite įrašą Microsoft PowerPoint xx Object Library, kur xx yra jūsų PowerPoint versija. Pažymėkite žymės langelį šalia įrašo.
Sub CopyRangeToPresentation ()
1 veiksmas: deklaruokite savo kintamuosius
Pritemdykite PP kaip PowerPoint.Application
Pritemdyti PPPres kaip PowerPoint.Presentation
Pritemdyti PPSlide kaip PowerPoint.Slide
Pritemdykite skaidrės pavadinimą kaip eilutę
„2 veiksmas: atidarykite „PowerPoint“ ir sukurkite naują pristatymą
Nustatyti PP = New PowerPoint.Application
Nustatyti PPPres = PP.Presentations.Add
PP.Matomas = Tiesa
3 veiksmas: pridėkite naują skaidrę kaip 1 skaidrę ir nustatykite jai židinį
Nustatyti PPSlide = PPPres.Slides.Add(1, ppLayoutTitleOnly)
PPSlide.Pasirinkite
4 veiksmas: nukopijuokite diapazoną kaip paveikslėlį
Lapai ("Skaidrių duomenys"). Diapazonas ("A1:J28"). Kopijuoti paveikslėlį _
Išvaizda:=xlScreen, Formatas:=xlPaveikslėlis
5 veiksmas: įklijuokite paveikslėlį ir sureguliuokite jo padėtį
PPSlide.Shapes.Paste.Select
PP.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True
PP.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True
6 veiksmas: pridėkite skaidrės pavadinimą
SlideTitle = "Mano pirmoji PowerPoint skaidrė"
PPSlide.Shapes.Title.TextFrame.TextRange.Text = SlideTitle
7 veiksmas: atminties išvalymas
PP.Suaktyvinti
Nustatyti PPSlide = nieko
Nustatyti PPPres = nieko
Nustatyti PP = nieko
Pabaigos sub
1 veiksme deklaruojate keturis kintamuosius: PP yra objekto kintamasis, atskleidžiantis PowerPoint programos objektą, PPPres yra objekto kintamasis, kuris atskleidžia PowerPoint pristatymo objektą, PPSlide yra objekto kintamasis, atskleidžiantis PowerPoint skaidrės objektą, o SlideTitle yra eilutė. kintamasis, naudojamas skaidrės pavadinimo tekstui perduoti.
2 veiksmas atidaro „PowerPoint“ su tuščiu pristatymu. Atminkite, kad „PowerPoint“ programos ypatybę „Visible“ nustatėte į „True“, kad užtikrintumėte, jog matote veiksmą, kai vykdomas kodas.
3 veiksme prie pristatymo pridedate naują skaidrę naudodami objekto skaidrės pridėjimo metodą. Atminkite, kad naudojate ppLayoutTitleOnly, užtikrindami, kad skaidrė būtų sukurta naudojant pavadinimo teksto rėmelį. Tada žengsite papildomą žingsnį ir sutelkite dėmesį į skaidrę. Tai reiškia, kad jūs aiškiai nurodote „PowerPoint“ pasirinkti šią skaidrę, kad ji būtų aktyvi.
4 veiksme naudojate CopyPicture metodą, kad nukopijuotumėte tikslinį diapazoną kaip paveikslėlį. Čia kopijuojamas diapazonas yra nuo A1 iki J28 skirtuke Skaidrių duomenys.
5 veiksmas įklijuoja paveikslėlį į aktyvią skaidrę ir centruoja nuotrauką tiek horizontaliai, tiek vertikaliai.
6 veiksme pavadinimo tekstą išsaugote eilutės kintamajame, o tada perduodate tą kintamąjį „PowerPoint“, kad tekstas būtų pritaikytas pavadinimo teksto rėmelyje.
7 veiksme paleidžiate objektus, priskirtus jūsų kintamiesiems, taip sumažinant bet kokių problemų, sukeltų grubių objektų, kurie gali likti atviri atmintyje, tikimybę.
Norėdami įdiegti šią makrokomandą, galite nukopijuoti ir įklijuoti ją į standartinį modulį:
Suaktyvinkite Visual Basic redaktorių paspausdami Alt + F11.
Projekto lange raskite savo projekto / darbaknygės pavadinimą.
Pasirinkite Įterpti → Modulis.
Įveskite arba įklijuokite kodą.
Kaip neleisti Microsoft Word atidaryti failų tik skaitymo režimu sistemoje Windows. Microsoft Word atidaro failus tik skaitymo režimu, todėl jų redaguoti neįmanoma? Nesijaudinkite, metodai pateikiami žemiau
Kaip ištaisyti klaidas spausdinant neteisingus Microsoft Word dokumentus.Klaidos spausdinant Word dokumentus su pakeistais šriftais, netvarkingomis pastraipomis, trūkstamo teksto ar prarasto turinio yra gana dažnos. Tačiau nereikia
Jei naudodami rašiklį ar žymeklį piešėte ant savo PowerPoint skaidrės pristatymo metu, galite išsaugoti brėžinius kitam pristatymui arba ištrinti juos, kad kitą kartą rodydami pradėtumėte nuo švarių PowerPoint skaidrių. Vykdykite šias instrukcijas, kad ištrintumėte rašiklio ir žymeklio piešinius: Trinti linijas po vieną […]
Stilių bibliotekoje yra CSS failų, XSL (Extensible Stylesheet Language) failų ir vaizdų, naudojamų iš anksto nustatytų puslapių puslapiuose, puslapių išdėstymuose ir valdikliuose „SharePoint 2010“. Norėdami rasti CSS failus publikavimo svetainės stilių bibliotekoje: pasirinkite Svetainės veiksmai → Peržiūrėti Visas svetainės turinys. Pasirodo svetainės turinys. Stiliaus biblioteka yra […]
Neužkraukite savo auditorijos milžiniškais skaičiais. Programoje „Microsoft Excel“ galite pagerinti informacijos suvestinių ir ataskaitų skaitomumą formatuodami skaičius, kad jie būtų rodomi tūkstančiais arba milijonais.
Sužinokite, kaip naudoti „SharePoints“ socialinių tinklų įrankius, leidžiančius asmenims ir grupėms bendrauti, bendradarbiauti, bendrinti ir prisijungti.
Julijaus datos dažnai naudojamos gamybos aplinkoje kaip laiko žyma ir greita partijos numerio nuoroda. Šio tipo datos kodavimas leidžia mažmenininkams, vartotojams ir paslaugų agentams nustatyti, kada produktas buvo pagamintas, taigi ir produkto amžių. Julijaus datos taip pat naudojamos programavimo, kariuomenės ir astronomijos srityse. Skirtingi […]
Galite sukurti žiniatinklio programą naudodami „Access 2016“. Taigi, kas vis dėlto yra žiniatinklio programa? Na, žiniatinklis reiškia, kad jis yra internete, o programa yra tik „programos“ santrumpa. Pasirinktinė žiniatinklio programa yra internetinė duomenų bazės programa, pasiekiama iš debesies naudojant naršyklę. Kuriate ir prižiūrite žiniatinklio programą darbalaukio versijoje […]
Daugumoje „SharePoint 2010“ puslapių sparčiojo paleidimo juostoje, esančioje kairėje puslapio pusėje, pateikiamas naršymo nuorodų sąrašas. Greitosios paleidimo juostoje rodomos nuorodos į siūlomą svetainės turinį, pvz., sąrašus, bibliotekas, svetaines ir publikavimo puslapius. Greitojo paleidimo juostoje yra dvi labai svarbios nuorodos: Visas svetainės turinys: […]
Paprastoms problemoms spręsti „Excel“ sprendėjas paprastai greitai suranda optimalias tikslinės funkcijos „Solver“ kintamųjų reikšmes. Tačiau kai kuriais atvejais „Solver“ turi problemų ieškant „Solver“ kintamųjų reikšmių, optimizuojančių tikslo funkciją. Tokiais atvejais „Solver“ paprastai rodo pranešimą arba klaidos pranešimą, kuriame aprašoma arba aptariama problema, kurią […]
