Comment copier automatiquement à partir d`excel à l`aide d`un powerpoint macro vba

Si vous avez toujours voulu accélérer le transfert de données à partir d`un classeur Microsoft Excel à votre présentation Microsoft PowerPoint, puis en utilisant une macro et Visual Basic pour Applications est la voie à suivre. VBA est un langage de programmation informatique utilisé dans les applications Microsoft Office pour automatiser des processus tels que la copie des données à partir d`Excel. Une macro vous permet d`enregistrer un ensemble d`instructions que vous pouvez exécuter encore et encore avec un clic d`un bouton.

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

Lancez PowerPoint, cliquez sur le "Développeur" onglet et cliquez "Les macros" pour lancer la fenêtre de dialogue Macro. Type "copyFromExcel" Nom de la macro ci-dessous et cliquez sur le "Créer" bouton. Clique le "Outils" menu et cliquez sur "Les références" pour lancer la fenêtre de dialogue Références. Faites défiler et cochez la case "Microsoft Excel Bibliothèque d`objets" et cliquez sur "D`ACCORD."

Copiez et collez le texte suivant pour créer les variables que vous utiliserez pour copier les données d`Excel: Dim sourceXL Comme Excel.Application Dim Sourcebook Comme Excel.Workbook Dim sourceSheet Comme Excel.Worksheet Dim dataReadArray (10) As String Dim Dim myPress Comme Présentation newSlide comme diaporama

Définissez les valeurs aux variables objet: 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 (Indice = myPres.Slides.Count + 1, Mise en page: = ppLayoutText)

Lire les données dans le fichier Excel et le stocker dans un tableau de chaînes: 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").Valeur

Ajoutez les données du tableau de chaînes à 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

Fermez le classeur: sourceBook.Close

Passer à la fenêtre PowerPoint et cliquez sur "Macros." Cliquez "Courir" pour exécuter le "copyFromExcel" macro et ajouter une nouvelle diapositive avec les données copiées à partir du fichier Excel créé à l`étape 1.

Les références

• lien MSDN: Mise en route avec VBA dans PowerPoint 2010
• lien MSDN: Open Workbooks

A propos de l`auteur

Jaime Avelar est un écrivain professionnel dont la programmation des articles apparaissent sur divers sites Web. Il a été un programmeur de logiciels depuis 2000. Avelar est titulaire d`un Master of Science en systèmes d`information de l`Université du Texas à Arlington.