Hoe om automatisch te kopiëren Van Excel naar PowerPoint met behulp van een VBA Macro

Vormen en tekst toevoegen aan een PowerPoint-dia met behulp van VBA . Hemera Technologieën / Photos.com / Getty Images

Als je ooit wilde om de overdracht van gegevens uit een Microsoft Excel-werkmap om uw Microsoft PowerPoint-presentatie versnellen, vervolgens met behulp van een macro en Visual Basic for Applications isde weg te gaan.VBA is een programmeertaal die werkzaam zijn in Microsoft Office-toepassingen om processen zoals het kopiëren van gegevens van Excel te automatiseren.Een macro kunt u een reeks instructies die u over en weer kan uitvoeren met een klik op de knop op te slaan.

instructies

  1. Start Excel, typ "Alan" in "A1", "Daniel" in "A2", "Kitzia"in "A3", "Oscar" in "A4" en "Yarexli" in "A5".Druk "CTRL" en "S" om de werkmap op te slaan in de "C: \" als "ExcelFile.xlsx."Sluiten Excel.

  2. Launch PowerPoint, klik op het tabblad "Ontwikkelaar" en klik op "Macro's" om het dialoogvenster Macro-venster te openen.Typ "copyFromExcel" hieronder Macro Naam en klik op de knop "Create".Klik op het menu "Extra" en klik op "Verwijz

    ingen" om het dialoogvenster Referenties te lanceren.Scroll naar beneden en vink het vakje naast "Microsoft Excel & lt; versienummer & gt; Object Library" en klik op "OK."

  3. Kopieer en plak de volgende aan de variabelen die u zal gebruiken om de gegevens uit Excel kopiëren maken:

    Dim sourceXL Zoals Excel.Application

    Dim sourcebook Zoals Excel.Workbook

    Dim sourceSheet Zoals Excel.Worksheet

    Dim dataReadArray (10) als Koord

    Dim myPress Zoals Presentatie

    Dim newSlide Zoals Slide

  4. Stel waarden in om het object variabelen:

    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 (Index: = myPres.Slides.Count + 1, Indeling: = ppLayoutText)

  5. Lees de gegevens in het Excel-bestand en opslaan in een String array:

    sourceSheet.Range ("A1") Selecteer

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

    sourceSheet.Range ("..A2 '). Selecteer

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

    sourceSheet.Range ("A3"). Selecteer

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

    sourceSheet.Range ("A4"). Selecteer

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

    sourceSheet.Range ("A5"). Selecteer

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

  6. Voeg de gegevens uit de String array naar een nieuwe dia in uw huidige presentatie:

    newSlide.Shapes (1) .TextFrame.TextRange = "Gegevens gekopieerd van Excel"

    newSlide.vormen (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. Sluit de werkmap:

    sourceBook.Close
  8. Overschakelen naar het PowerPoint-venster en klik op "Macro's."Klik op "Run" om te draaien de "copyFromExcel" macro en voeg een nieuwe dia met de gegevens gekopieerd van het Excel-bestand dat u hebt gemaakt in stap 1.

833
0
3
Visual Basics Programming