Miten automaattisesti kopioida Excel PowerPoint käyttäminenVBA Macro

Lisää muotoja ja tekstiäPowerPoint VBA . Hemera Technologies / Photos.com / Getty Images

Jos olet koskaan halunnut nopeuttaa tiedonsiirron Microsoft Excel työkirjan Microsoft PowerPoint-esitys, sitten käyttämällä makro ja Visual Basic for Applications ontie.VBA on tietokone ohjelmointikieli käytetään Microsoft Office -sovellukset automatisoida prosesseja, kuten kopioin tietoja Excel.Makron avulla voit tallentaa joukko ohjeita, jotka voit suorittaa yhä uudelleen napin painalluksella.

Ohjeet

  1. Käynnistä Excel, kirjoita "Alan" in "A1", "Daniel" in "A2", "Kitzia"in "A3", "Oscar" in "A4" ja "Yarexli" in "A5."Paina "CTRL" ja "S" tallentaaksesi työkirjan "C: \" kuin "ExcelFile.xlsx."Sulje Excel.

  2. Launch PowerPoint, klikkaa "Kehittäjä" -välilehti ja klikkaa "Makrot" käynnistääksesi Makro ikkunan.Kirjoita "copyFromExcel" alla Makro nimi ja klikkaa "Luo" -painiketta.Klikkaa "Työkalut" -valikko ja klikkaa "Viittaukset" käynnistääksesi Viitteet ikkunan.Selaa alaspäin ja tarkista ruutu "Microsoft Excel & lt; versionume

    ro & gt; -objektikirjasto" ja klikkaa "OK."

  3. Kopioi ja liitä seuraava luoda muuttujia käytät kopioida tietoja Excel:

    Dim sourceXL Kuten Excel.Application

    Dim Sourcebook Kuten Excel.Workbook

    Dim sourceSheet Kuten Excel.Worksheet

    Dim dataReadArray (10) As String

    Dim myPress Kuten Presentation

    Dim newSlide Kuten Slide

  4. Aseta arvot vastustaa muuttujien:

    Aseta sourceXL = Excel.Application

    Aseta Sourcebook = sourceXL.Workbooks.Open ("G: \ ExcelFile.xlsx ")

    Aseta sourceSheet = sourceBook.Sheets (1)

    Aseta myPres = ActivePresentation

    sarja newSlide = myPres.Slides.Add (Indeksi: = myPres.Slides.Count + 1, Layout: = ppLayoutText)

  5. Lue tiedot Excel-tiedostoon ja tallentaa sen String array:

    sourceSheet.Range ("A1"). Valitse

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

    sourceSheet.Range ("A2 "). Valitse

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

    sourceSheet.Range (" A3 "). Valitse

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

    sourceSheet.Range ("A4-"). Valitse

    dataReadArray (3) = sourceSheet.Range ("A4-"). Arvo

    sourceSheet.Range ("A5"). Valitse

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

  6. Lisää tietoja String array uuden dian nykyisessä esitys:

    newSlide.Shapes (1) .TextFrame.TextRange = "kopioituja tietoja Excel"

    newSlide.muodot (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. Sulje työkirja:

    sourceBook.Close
  8. Vaihda PowerPoint ikkuna ja klikkaa "Makrot."Klikkaa "Suorita" ajaa "copyFromExcel" makro ja lisätä uuden dian kanssa kopioituja tietoja Excel-tiedoston loit vaiheessa 1

993
0
3
Visual Basic Ohjelmointi