On sanottu, että jopa 50 prosenttia PowerPoint-esityksistä sisältää tietoja, jotka on kopioitu suoraan Excelistä. Tätä lausuntoa ei ole vaikea uskoa. Kaavioiden ja tietonäkymien analysointi ja luominen on usein paljon helpompaa Excelissä kuin PowerPointissa. Kun nuo kaaviot ja tietonäkymät on luotu, miksi et yksinkertaisesti siirtäisi niitä PowerPointiin? Tämän osan makron avulla voit luoda dynaamisesti PowerPoint-dioja, jotka sisältävät tietoja määrittämältäsi alueelta.
Voit ladata toimivan esimerkin Excel-tietojen lähettämisestä PowerPointiin .
Kuinka makro toimii
Tässä esimerkissä kopioit alueen Excel-tiedostosta ja liität sen diaan juuri luodussa PowerPoint-esityksessä.
Muista, että koska tämä koodi suoritetaan Excelistä, sinun on asetettava viittaus Microsoft PowerPoint -objektikirjastoon. Voit asettaa viitteen avaamalla Visual Basic Editorin Excelissä ja valitsemalla Työkalu→ Viittaukset. Vieritä alas, kunnes löydät merkinnän Microsoft PowerPoint xx Object Library, jossa xx on PowerPoint-versiosi. Valitse merkinnän vieressä oleva valintaruutu.
Sub CopyRangeTo Presentation ()
'Vaihe 1: Ilmoita muuttujasi
Himmeä PP PowerPoint.Application-muodossa
Himmeä PPPres PowerPoint-esityksenä
Himmennä PPSlide PowerPoint.Slide-muodossa
Himmeä SlideTitle merkkijonona
'Vaihe 2: Avaa PowerPoint ja luo uusi esitys
Aseta PP = Uusi PowerPoint.Application
Aseta PPPres = PP.Presentations.Add
PP.Visible = totta
'Vaihe 3: Lisää uusi dia diaksi 1 ja aseta siihen kohdistus
Aseta PPSlide = PPPres.Slides.Add(1, ppLayoutTitleOnly)
PPSlide.Valitse
Vaihe 4: Kopioi alue kuvana
Sheets("Dian tiedot"). Alue("A1:J28"). Kopioi kuva _
Ulkoasu:=xlScreen, Muoto:=xlKuva
'Vaihe 5: Liitä kuva ja säädä sen sijaintia
PPSlide.Shapes.Paste.Select
PP.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True
PP.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True
'Vaihe 6: Lisää otsikko diaan
SlideTitle = "Ensimmäinen PowerPoint-diani"
PPSlide.Shapes.Title.TextFrame.TextRange.Text = SlideTitle
'Vaihe 7: Muistin puhdistaminen
PP.Aktivoi
Aseta PPSlide = Ei mitään
Aseta PPPres = Ei mitään
Aseta PP = ei mitään
Lopeta ala
Vaiheessa 1 määrität neljä muuttujaa: PP on objektimuuttuja, joka paljastaa PowerPoint Application -objektin, PPPres on objektimuuttuja, joka paljastaa PowerPoint Presentation -objektin, PPSlide on objektimuuttuja, joka paljastaa PowerPoint Slide -objektin ja SlideTitle on merkkijono. muuttuja, jota käytetään tekstin välittämiseen dian otsikossa.
Vaihe 2 avaa PowerPointin tyhjällä esityksellä. Huomaa, että asetat PowerPoint-sovelluksen Visible-ominaisuuden arvoksi True varmistaaksesi, että näet toiminnon koodia suoritettaessa.
Vaiheessa 3 lisäät esitykseen uuden dian käyttämällä Lisää-menetelmää diaobjektille. Huomaa, että käytät ppLayoutTitleOnlya ja varmista, että dia luodaan otsikkotekstikehyksellä. Otat sitten ylimääräisen askeleen ja asetat tarkennuksen diaan. Toisin sanoen pyydät PowerPointia nimenomaisesti valitsemaan tämän dian ja aktivoimaan sen.
Vaiheessa 4 käytät CopyPicture-menetelmää kohdealueen kopioimiseen kuvana. Tähän kopioitava alue on Diatiedot-välilehden alue A1–J28.
Vaihe 5 liittää kuvan aktiiviseen diaan ja keskittää kuvan sekä vaaka- että pystysuunnassa.
Vaiheessa 6 tallennat otsikon tekstin merkkijonomuuttujaan ja välität sitten muuttujan PowerPointiin, jotta voit käyttää tekstiä otsikon tekstikehyksessä.
Vaiheessa 7 vapautat muuttujillesi määritetyt objektit, mikä vähentää ongelmien mahdollisuutta, jotka johtuvat muistissa mahdollisesti jäävistä rouge-objekteista.
Kuinka käyttää makroa
Voit ottaa tämän makron käyttöön kopioimalla ja liittämällä sen vakiomoduuliin:
Aktivoi Visual Basic Editor painamalla Alt+F11.
Etsi Projekti-ikkunasta projektin/työkirjan nimi.
Valitse Lisää → Moduuli.
Kirjoita tai liitä koodi.