Hvordan automatisk kopiere fra Excel til PowerPoint Ved hjelp av en VBA Macro

January 13

Hvis du noen gang ønsket å fremskynde overføring av data fra en Microsoft Excel-arbeidsbok til Microsoft PowerPoint-presentasjon, deretter bruke en makro og Visual Basic for Applications er veien å gå. VBA er et programmeringsspråk ansatt i Microsoft Office-programmer for å automatisere prosesser som kopierer data fra Excel. En makro lar deg lagre et sett med instruksjoner som du kan utføre igjen og igjen med et klikk på en knapp.

Bruksanvisning

1 Start Excel, skriv "Alan" i "A1", "Daniel" i "A2", "Kitzia" i "A3", "Oscar" i "A4" og "Yarexli" in "A5". Trykk "CTRL" og "S" for å lagre arbeidsboken i "C: \" som "ExcelFile.xlsx." Lukk Excel.

2 Start PowerPoint, klikker du på "Utvikler" og klikk "makroer" for å starte Makro dialogvinduet. Skriv "copyFromExcel" under Makronavn og klikker på "Create" -knappen. Klikk på "Verktøy" -menyen og klikk "Referanser" for å starte Referanser dialogboksen. Scroll ned og merk av for "Microsoft Excel <versjonsnummer> Object Library" og klikk "OK."

3 Kopier og lim inn følgende for å skape de variablene du vil bruke for å kopiere data fra Excel:

Dim sourceXL Som Excel.Application

Dim sourceBook As Excel.Workbook

Dim sourceSheet Som Excel.Worksheet

Dim dataReadArray (10) As String

Dim myPress Som Presentasjon

Dim newSlide Som Slide

4 Sett verdier til objektvariabler:

Set sourceXL = Excel.Application

Sett Source = sourceXL.Workbooks.Open ( "G: \ ExcelFile.xlsx")

Sett sourceSheet = sourceBook.Sheets (1)

Sett myPres = ActivePresentation

Sett newSlide = myPres.Slides.Add (indeks: = myPres.Slides.Count + 1, Layout: = ppLayoutText)

5 Les dataene i Excel-filen og lagre den i en String utvalg:

sourceSheet.Range("A1").Select

dataReadArray (0) = sourceSheet.Range ( "A1"). Verdi

sourceSheet.Range ( "A2"). Velg

dataReadArray (1) = sourceSheet.Range ( "A2"). Verdi

sourceSheet.Range ( "A3"). Velg

dataReadArray (2) = sourceSheet.Range ( "A3"). Verdi

sourceSheet.Range ( "A4"). Velg

dataReadArray (3) = sourceSheet.Range ( "A4"). Verdi

sourceSheet.Range ( "A5"). Velg

dataReadArray (4) = sourceSheet.Range ( "A5"). Verdi

6 Legg dataene fra String array til et nytt lysbilde i din nåværende presentasjon:

newSlide.Shapes(1).TextFrame.TextRange = "Data copied from Excel"

newSlide.Shapes (2) .TextFrame.TextRange = dataReadArray (0) og vbNewLine & _

dataReadArray (1) og vbNewLine & _

dataReadArray (2) og vbNewLine & _

dataReadArray (3) og vbNewLine & _

dataReadArray (4) og vbNewLine

7 Lukker arbeidsboken:

sourceBook.Close

8 Bytt til PowerPoint-vinduet og klikk "makroer". Klikk "Kjør" for å kjøre "copyFromExcel" makro og legge til et nytt lysbilde med data kopiert fra Excel-filen du opprettet i trinn 1.