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 .
