Recherche chaud: fenetre givre sel depsom calculer la rotation du personnel poulet dans un appartement numero identification fiscale chine croisiere costa mediterranee CALCULER DENSITE PLASTIQUE objectifs de la peinture comment traiter le paludisme
Index Loisirs Santé Technologie

Copier automatiquement à partir d'Excel à PowerPoint en utilisant une macro VBA

Publié:2013-11-23Source: général
Advertisement

Copier automatiquement à partir d'Excel à PowerPoint en utilisant une 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, utiliser une macro et Visual Basic pour Applications (VBA, pour son sigle en anglais) est la solution. VBA est un langage de programmation informatique utilisé par les applications Microsoft Office pour automatiser le processus de copie des données à partir d'Excel. Une macro vous permet d'enregistrer un ensemble d'instructions qui peuvent fonctionner encore et encore avec un clic de souris.

Niveau de difficulté:

Modéré

Instructions

1. Lancez Excel, tapez "Alan" A1 ", Daniel" A2 ", Kitzia" A3 "Oscar" en A4 et A5 "Yarexli". Appuyez sur "Ctrl" et "S" pour enregistrer le classeur dans "C: \" comme "ExcelFile.xlsx". Fermez Excel.

2 exécute PowerPoint, cliquez sur le "développeur" et cliquez sur "Macros" pour lancer la boîte de dialogue macro. Ecrire "copyFromExcel" dans le "Nom de la macro" et cliquez sur le bouton "Créer". Cliquez sur le menu «Outils» et cliquez sur «Préférences» pour exécuter la case "Références" de dialogue. Faites défiler et cochez la case "bibliothèque d'objets Microsoft Excel <numéro de version>" et cliquez sur "OK".

3 Copiez et collez le texte suivant pour créer des variables que vous allez utiliser pour copier des données à partir d'Excel: sourceXL Comme Excel.Application Dim Dim Dim sourceSheet Excel.Workbook Sourcebook Comme Excel.Worksheet Dim Comme dataReadArray (10) As String Dim Dim Présentation myPress Comme newSlide Comme le diaporama

4 définit les valeurs des variables de l'ensemble d'objets sourceXL = Excel.Application = sourceXL.Workbooks.Open de Sourcebook Septembre ("G: \ ExcelFile.xlsx") en Septembre sourceSheet = sourceBook.Sheets (1) Septembre Septembre ActivePresentation newSlide myPres = = myPres.Slides.Add (Indice: = MyPres.Slides.Count + 1, Mise en page: = ppLayoutText)

5 Lire les données dans le fichier Excel et de les stocker dans un vecteur de chaîne: sourceSheet.Range ("A1") Sélectionnez dataReadArray (0) = sourceSheet.Range ("A1") Valeur sourceSheet.Range ("A2") ... Sélectionnez dataReadArray (1) = sourceSheet.Range ("A2"). Value sourceSheet.Range ("A3"). Sélectionnez dataReadArray (2) = sourceSheet.Range ("A3"). Value sourceSheet.Range ("A4"). Sélectionnez dataReadArray (3) = sourceSheet.Range ("A4"). Value sourceSheet.Range («A5»). Sélectionnez dataReadArray (4) = sourceSheet.Range ("F5"). Value

6 ajoute les données de la gamme Vector à la nouvelle diapositive de votre présentation actuelle: newSlide.Shapes (1) .TextFrame.TextRange = "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 Passez à la fenêtre de PowerPoint et cliquez sur "Macros". Cliquez sur "Exécuter" pour exécuter la macro "copyFromExcel" et ajouter une nouvelle diapositive avec les données copiées à partir du fichier Excel créé à l'étape 1.

Lire cet article en Inglés: Comment copier automatiquement d'Excel à l'aide de PowerPoint macro VBA

[Rédacteur: Admin]
Je vous imagine comme

Articles recommandés

Cliquez Top Ranking