Hvordan til automatisk at kopiere fra Excel til PowerPoint Ved hjælp af en VBA Makro

Tilføj figurer og tekst til en PowerPoint dias ved hjælp af VBA . Hemera Technologies / Photos.com / Getty Images

Hvis du nogensinde ønsket at fremskynde overførslen af ​​data fra en Microsoft Excel-projektmappe til Microsoft PowerPoint-præsentation, derefter ved hjælp af en makro og Visual Basic for Applications erden vej at gå.VBA er en computer programmeringssprog ansat i Microsoft Office-programmer til at automatisere processer, såsom kopiering af data fra Excel.En makro kan du gemme et sæt af instruktioner, som du kan udføre igen og igen med et klik på en knap.

Instruktioner

  1. Launch Excel, skriv "Alan" i "A1", "Daniel" i "A2", "Kitzia"i "A3", "Oscar" i "A4" og "Yarexli" i "A5".Tryk på "CTRL" og "S" for at gemme projektmappen i "C: \" som "ExcelFile.xlsx."Luk Excel.

  2. Launch PowerPoint, skal du klikke på fanen "Udvikler" og klik "Makroer" for at starte dialogen Makro-vinduet.Skriv "copyFromExcel" nedenfor Macro navn og klik på knappen "Opret".Klik på menuen "Funktioner" og klik på "Referencer" for at starte Referencer dialo

    gvindue.Rul ned og marker feltet ud for "Microsoft Excel & lt; versionsnummer & gt; Objekt Library" og klik på "OK".

  3. Kopier og indsæt følgende at skabe de variabler, du vil bruge til at kopiere data fra Excel:

    Dim sourceXL Som Excel.Application

    Dim Sourcebook Som Excel.Workbook

    Dim sourceSheet Som Excel.Worksheet

    Dim dataReadArray (10) As String

    Dim myPress Som Præsentation

    Dim newSlide Som Slide

  4. Set værdier til variabler objektet:

    Set sourceXL = Excel.Application

    Set Sourcebook = sourceXL.Workbooks.Open ("G: \ ExcelFile.XLSX ")

    Set sourceSheet = sourceBook.Sheets (1)

    Set myPres = ActivePresentation

    Set newSlide = myPres.Slides.Add (Indeks: = myPres.Slides.Count + 1, Layout: = ppLayoutText)

  5. Læs data i Excel-filen og gemme den i en String-array:

    sourceSheet.Range ("A1") Vælg

    dataReadArray (0) = sourceSheet.Range ("A1") Værdi

    sourceSheet.Range ("..A2 "). Vælg

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

    sourceSheet.Range (" A3 "). Vælg

    dataReadArray (2) = sourceSheet.Range (" A3 ").Værdi

    sourceSheet.Range ("A4"). Vælg

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

    sourceSheet.Range ("A5"). Vælg

    dataReadArray (4) = sourceSheet. .Range ("A5") Værdi

  6. Tilføj data fra String array til et nyt dias i din nuværende præsentation:

    newSlide.Shapes (1) .TextFrame.TextRange = "Data kopieres fra Excel"

    newSlide.Former (2) .TextFrame.TextRange = dataReadArray (0) & amp;vbNewLine & amp;_

    dataReadArray (1) & amp;vbNewLine & amp;_

    dataReadArray (2) & amp;vbNewLine & amp;_

    dataReadArray (3) & amp;vbNewLine & amp;_

    dataReadArray (4) & amp;vbNewLine

  7. Luk projektmappen:

    sourceBook.Close
  8. Skift til PowerPoint-vinduet og klik på "Makroer".Klik på "Kør" for at køre "copyFromExcel" makro og tilføje et nyt dias med data kopieret fra Excel-fil, du oprettede i trin 1.

279
0
3
Visual Basics Programming