Comment copier automatiquement d'Excel à l'aide d'un PowerPoint macro VBA

Instructions

1. Lancez Excel, tapez "Alan" à "A1," "Daniel" à "A2," "Kitzia" à "A3," "Oscar" à "A4" et "Yarexli" à "A5." Presse "CTRL" et "S" pour enregistrer le classeur dans "C:" comme "ExcelFile.xlsx." Fermez Excel.

2. Lancez PowerPoint, cliquez sur le "Promoteur" onglet et faites un clic "Macros" pour lancer la fenêtre de dialogue Macro. Type "copyFromExcel" Nom de la macro ci-dessous et cliquez sur le "Créer" bouton. Cliquez sur le "Outils" menu et clic "Références" pour lancer la fenêtre de dialogue Références. Faites défiler et cochez la case à côté "Microsoft Excel Bibliothèque d'objets" et cliquez sur "D'ACCORD."

3. Copiez et collez le texte suivant pour créer les variables que vous allez utiliser pour copier les données à partir d'Excel:

   Dim sourceXL Comme Excel.Application

   Dim Sourcebook Comme Excel.Workbook
   Dim sourceSheet Comme Excel.Worksheet
   Dim dataReadArray (10) As String
   MyPress Dim Comme Présentation
   Dim newSlide Comme diaporama

4. Définir des valeurs aux variables objet:

   Réglez sourceXL = Excel.Application
   
   
   Réglez Sourcebook = sourceXL.Workbooks.Open ("G: ExcelFile.xlsx")
   Réglez sourceSheet = sourceBook.Sheets (1)
   Réglez myPres = ActivePresentation
   Réglez newSlide = myPres.Slides.Add (Indice: = myPres.Slides.Count + 1, Mise en page: = ppLayoutText)

5. Lire les données dans le fichier Excel et le stocker dans un tableau de String:

   sourceSheet.Range ("A1") .Select
   dataReadArray (0) = sourceSheet.Range ("A1") .Value
   sourceSheet.Range ("A2") .Select
   dataReadArray (1) = sourceSheet.Range ("A2") .Value
   sourceSheet.Range ("A3") .Select
   dataReadArray (2) = sourceSheet.Range ("A3") .Value
   sourceSheet.Range ("A4") .Select
   dataReadArray (3) = sourceSheet.Range ("A4") .Value
   
   
   
   sourceSheet.Range ("A5") .Select
   dataReadArray (4) = sourceSheet.Range ("A5") .Value

6. Ajouter les données du tableau de String à une nouvelle diapositive dans votre présentation actuelle:

   newSlide.Shapes (1) = .TextFrame.TextRange "Les données copiées à partir d'Excel"
   newSlide.Shapes (2) .TextFrame.TextRange = dataReadArray (0) & vbNewLine & _
   dataReadArray (1) & vbNewLine & _
   dataReadArray (2) & vbNewLine & _
   dataReadArray (3) & vbNewLine & _
   dataReadArray (4) & vbNewLine

7. Fermez le classeur:

   sourceBook.Close

8. Basculer vers la fenêtre de PowerPoint et cliquez sur "Macros." Cliquez "Course" pour exécuter le "copyFromExcel" macro et ajoutez une nouvelle diapositive avec les données copiées à partir du fichier Excel créé à l'étape 1.