Sende Excel Data til en PowerPoint-præsentation - dummies

Det er blevet sagt, at op til 50 procent af PowerPoint-præsentationer indeholder data, der er kopieret lige ud af Excel. Denne erklæring er ikke svært at tro. Det er ofte meget nemmere at analysere og oprette diagrammer og datavisninger i Excel end i PowerPoint. Når disse kort og datavisninger er blevet oprettet, hvorfor ville du ikke bare flytte dem til PowerPoint? Makroen i dette afsnit giver dig mulighed for dynamisk at oprette PowerPoint-dias, der indeholder data fra en rækkevidde, du angiver.

Du kan downloade et fungerende eksempel på at sende Excel-data til PowerPoint.

Sådan fungerer makroen

I dette eksempel kopierer du en rækkevidde fra en Excel-fil og indsætter det pågældende interval til et dias i en nyoprettet PowerPoint-præsentation.

Husk at fordi denne kode køres fra Excel, skal du angive en reference til Microsoft PowerPoint Object Library. Du kan indstille referencen ved at åbne Visual Basic Editor i Excel og vælge Værktøj → Referencer. Rul ned, indtil du finder indgangen Microsoft PowerPoint xx Objektbibliotek, hvor xx er din version af PowerPoint. Angiv en afkrydsningsfelt i afkrydsningsfeltet ud for posten.

Sub CopyRangeToPresentation () 'Trin 1: Erklære dine variabler Dim PP Som PowerPoint. Ansøgning Dim PPPres Som PowerPoint. Præsentation Dim PPSlide Som PowerPoint. Slide Dim SlideTitle As String 'Trin 2: Åbn PowerPoint og opret ny præsentation Sæt PP = New PowerPoint. Ansøgningssæt PPPres = PP. Præsentationer. Tilføj PP. Synlig = True 'Trin 3: Tilføj nyt dias som dias 1 og sæt fokus på det Indstil PPSlide = PPPres. Slides. Tilføj (1, ppLayoutTitleOnly) PPSlide. Vælg 'Trin 4: Kopier området som et billedark ("Slide Data"). Område ("A1: J28"). CopyPicture _ Udseende: = xlScreen, Format: = xlPicture 'Trin 5: Indsæt billedet og juster dets position PPSlide. Former. Sæt ind. Vælg PP. ActiveWindow. Udvælgelse. ShapeRange. Juster msoAlignCenters, True PP. ActiveWindow. Udvælgelse. ShapeRange. Juster msoAlignMiddles, True 'Trin 6: Tilføj titlen til diaset SlideTitle = "My First PowerPoint Slide" PPSlide. Former. Titel. Tekstramme. TekstOmråde. Tekst = SlideTitle 'Trin 7: Hukommelsesoprydning PP. Aktiver sæt PPSlide = Intet sæt PPPres = Intet sæt PP = Intet Slut del

I trin 1 erklærer du fire variabler: PP er en objektvariabel, der udsætter PowerPoint-applikationsobjektet, PPPres er en objektvariabel, der udsætter PowerPoint-præsentationsobjektet, PPSlide er en objektvariabel, der udsætter PowerPoint Slide-objektet, og SlideTitle er en strengvariabel, der bruges til at videregive teksten til diasetitlen.

Trin 2 åbner PowerPoint med en tom præsentation. Bemærk, at du indstiller den synlige egenskab i PowerPoint-programmet til True for at sikre, at du kan se handlingen, som koden kører.

I trin 3 tilføjer du et nyt dias til præsentationen ved hjælp af tilføjelsesmetoden til diasobjekt. Bemærk at du bruger ppLayoutTitleOnly, og sørg for, at diaset oprettes med en titeltekstramme. Derefter tager du et ekstra skridt og sætter fokus på diaset. Det betyder at du udtrykkeligt fortæller PowerPoint at vælge dette dias, hvilket gør det aktivt.

I trin 4 bruger du CopyPicture-metoden til at kopiere målområdet som et billede. Området, der kopieres her, er område A1 til J28 i fanen Slide Data.

Trin 5 indsætter billedet i det aktive dias og centrerer billedet både vandret og lodret.

I trin 6 gemmer du teksten til titlen i en strengvariabel, og send derefter denne variabel til PowerPoint for at anvende tekst til titeltekstrammen.

I trin 7 frigiver du de objekter, der er tildelt dine variabler, hvilket reducerer chancen for eventuelle problemer forårsaget af rouge-objekter, som muligvis forbliver åbne i hukommelsen.

Sådan bruger du makroen

For at implementere denne makro kan du kopiere og indsætte den i et standardmodul:

1. Aktiver Visual Basic Editor ved at trykke på Alt + F11.

2. I projektvinduet finder du dit projekt / arbejdsbognavn.

3. Vælg Indsæt → Modul.

4. Skriv eller indsæt koden.