Sagt hefur verið að allt að 50 prósent af PowerPoint kynningum innihaldi gögn sem hafa verið afrituð beint úr Excel. Þessari fullyrðingu er ekki erfitt að trúa. Það er oft miklu auðveldara að greina og búa til töflur og gagnasýn í Excel en í PowerPoint. Eftir að þessi töflur og gagnaskoðanir hafa verið búnar til, hvers vegna myndirðu ekki einfaldlega færa þau yfir í PowerPoint? Fjölvi í þessum hluta gerir þér kleift að búa til PowerPoint skyggnur á kraftmikinn hátt sem innihalda gögn frá svið sem þú tilgreinir.
Þú getur halað niður virku dæmi um að senda Excel gögn í PowerPoint .
Hvernig macro virkar
Í þessu dæmi afritarðu svið úr Excel-skrá og límir það svið á skyggnu í nýbúinni PowerPoint kynningu.
Hafðu í huga að vegna þess að þessi kóði verður keyrður úr Excel þarftu að setja tilvísun í Microsoft PowerPoint Object Library. Þú getur stillt tilvísunina með því að opna Visual Basic Editor í Excel og velja Tól → Tilvísanir. Skrunaðu niður þar til þú finnur færsluna Microsoft PowerPoint xx Object Library, þar sem xx er þín útgáfa af PowerPoint. Settu hak í gátreitinn við hliðina á færslunni.
Undir CopyRangeToPresentation ()
'Skref 1: Lýstu breytunum þínum
Dimma PP Sem PowerPoint.Application
Dim PPPres As PowerPoint.Presentation
Dimma PPSlide Sem PowerPoint.Slide
Dimma SlideTitle Sem strengur
Skref 2: Opnaðu PowerPoint og búðu til nýja kynningu
Stilltu PP = New PowerPoint.Application
Stilltu PPPres = PP.Presentations.Add
PP.Sýnlegt = satt
'Skref 3: Bættu við nýrri glæru sem glæru 1 og stilltu fókus á hana
Stilltu PPSlide = PPPres.Slides.Add(1, ppLayoutTitleOnly)
PPSlide.Select
'Skref 4: Afritaðu svið sem mynd
Sheets("Slide Data").Range("A1:J28").CopyPicture _
Útlit:=xlSkjár, Snið:=xlMynd
Skref 5: Límdu myndina og stilltu staðsetningu hennar
PPSlide.Shapes.Paste.Select
PP.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True
PP.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True
'Skref 6: Bættu titlinum við glæruna
SlideTitle = "Fyrsta PowerPoint glæran mín"
PPSlide.Shapes.Title.TextFrame.TextRange.Text = SlideTitle
'Skref 7: Minnishreinsun
PP. Virkja
Stilltu PPSlide = Ekkert
Stilltu PPPres = Ekkert
Stilltu PP = Ekkert
Lok undirlið
Í skrefi 1 lýsir þú yfir fjórar breytur: PP er hlutbreyta sem afhjúpar PowerPoint forritshlutinn, PPPres er hlutbreyta sem afhjúpar PowerPoint kynningarhlutinn, PPSlide er hlutbreyta sem afhjúpar PowerPoint Slide hlutinn og SlideTitle er strengur breyta sem notuð er til að senda texta fyrir titil glærunnar.
Skref 2 opnar PowerPoint með tómri kynningu. Athugaðu að þú stillir Visible eiginleika PowerPoint forritsins á True til að tryggja að þú getir séð aðgerðina þegar kóðinn keyrir.
Í skrefi 3 bætir þú nýrri skyggnu við kynninguna með því að nota Bæta við aðferð við skyggnuhlut. Athugaðu að þú ert að nota ppLayoutTitleOnly og tryggir að glæran sé búin til með titlaramma. Þú tekur síðan aukaskref og stillir fókusinn á rennibrautina. Það er að segja, þú segir PowerPoint beinlínis að velja þessa glæru, sem gerir hana virka.
Í skrefi 4 notarðu CopyPicture aðferðina til að afrita marksviðið sem mynd. Sviðið sem afritað er hér er svið A1 til J28 í Slide Data flipanum.
Skref 5 límir myndina inn í virku glæruna og miðstöðvar myndina bæði lárétt og lóðrétt.
Í skrefi 6 geymir þú textann fyrir titilinn í strengjabreytu og sendir þá breytu til PowerPoint til að setja texta á titiltextaramma.
Í skrefi 7 sleppir þú hlutunum sem úthlutað er breytunum þínum, sem dregur úr líkum á vandamálum af völdum rauðra hluta sem gætu verið opnir í minni.
Hvernig á að nota macro
Til að útfæra þetta fjölvi geturðu afritað og límt það inn í venjulega einingu:
Virkjaðu Visual Basic Editor með því að ýta á Alt+F11.
Finndu nafn verkefnis/vinnubókar í verkefnaglugganum.
Veldu Insert→ Module.
Sláðu inn eða límdu kóðann.