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

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

Lancement PowerPoint, cliquez sur l'onglet "Developer " et cliquez sur "Macros " pour ouvrir la fenêtre de dialogue Macro . Tapez " copyFromExcel " Nom de la macro ci-dessous et cliquez sur le bouton "Créer" . Cliquez sur le menu " Outils " et cliquez sur "Références" pour ouvrir la fenêtre de dialogue Références . Faites défiler la liste et cochez la case à côté de " Microsoft Excel 3

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

sourceXL As Excel.Application

Sourcebook As Excel.Workbook

sourceSheet As Excel.Worksheet

Dim dataReadArray (10) As String

myPress As Présentation

newSlide As diapositives
4

Réglez les valeurs des variables de l'objet :

Set sourceXL = Excel.Application

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

Set sourceSheet = sourceBook.Sheets (1) Photos

Set myPres = ActivePresentation

Set newSlide = myPres.Slides.Add ( Index: = myPres.Slides.Count + 1 , Layout : = ppLayoutText )
5

lire les données dans le fichier Excel et le stocker dans un tableau String : .

sourceSheet.Range ( "A1") Sélectionnez

dataReadArray (0) = sourceSheet.Range ("A1" ) Valeur de
.

sourceSheet.Range ( "A2" ) . Sélectionnez

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

sourceSheet.Range ( "A3" ) . Sélectionnez Photos

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 ( "A5" ) . Value
< br > 6

Ajouter les données du tableau String à une nouvelle diapositive de 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) et vbNewLine & _

dataReadArray (2) et vbNewLine & _

dataReadArray (3) et vbNewLine & _

dataReadArray (4) et vbNewLine
7

fermer le classeur :

sourceBook.Close

8

passer à la fenêtre PowerPoint et cliquez sur " Macros ". Cliquez sur "Exécuter " pour lancer la macro " copyFromExcel " et ajouter une nouvelle diapositive avec les données copiées à partir du fichier Excel que vous avez créé à l'étape 1 .