Cum să copiați automat din Excel în PowerPoint utilizând un VBA Macro

Dacă ați dorit vreodată să accelerați transferul de date dintr-un registru de lucru Microsoft Excel la prezentarea Microsoft PowerPoint, folosiți o macro și Visual Basic for Applications este mod de a merge. VBA este un limbaj de programare pentru calculator folosit în aplicațiile Microsoft Office pentru automatizarea proceselor cum ar fi copierea datelor din Excel. Un macro vă permite să salvați un set de instrucțiuni pe care le puteți executa din nou și din nou cu un clic pe un buton.

Pasul 1
Lansarea Excel, tastați "Alan" în "A1, "" Daniel "în" A2 "," Kitzia "în" A3 "," Oscar "în" A4 "și" Yarexli "în" A5 ". Apăsați "CTRL" și "S" pentru a salva registrul de lucru în "C: \\" ca "ExcelFile.xlsx". Închideți Excel.

Pasul 2
Lansați PowerPoint, faceți clic pe fila "Developer" și faceți clic pe "Macro" pentru a lansa fereastra de dialog Macro. Introduceți "copyFromExcel" de mai jos Nume macro și faceți clic pe butonul "Creați". Faceți clic pe meniul "Instrumente" și faceți clic pe "Referințe" pentru a lansa fereastra de dialog Referințe. Derulați în jos și bifați caseta de lângă "Microsoft Excel Object Library" și faceți clic pe "OK".

Pasul 3
Copiați și lipiți următoarele pentru a crea variabilele pe care le veți folosi pentru a copia datele din Excel: Dim sourceXL ca Excel.Application Dim sourceBook ca Excel.Workbook Dim sourceSheet ca Excel.Worksheet Dim dataReadArray (10) ca șir Dim myPress ca prezentare Dim newSlide As Slide

Pasul 4
Setarea valorilor la variabilele de obiect : Setați sourceXL = Excel.Application Setați sourceBook = sourceXL.Workbooks.Open ("G: \\ ExcelFile.xlsx") Setați sourceSheet = sourceBook.Sheets (1) Set myPres = ActivePresentation Set newSlide = myPres.Slides.Add (Index: myPres.Slides.Count + 1, Layout: = ppLayoutText) Pasul 5
Citiți datele din fișierul Excel și păstrați-le într-o matrice String: sourceSheet.Range ("A1") Select dataReadArray ("A2") Selectați dataReadArray (1) = sursăSheet.Range ("A2") SourceSheet.Range ("A3" (2) = su rceSheet.Range ("A3") Valoare sursăSheet.Range ("A4") Selectați dataReadArray (3) = sourceSheet.Range ("A4" SourceSheet.Range ("A5"). Valoare

Pasul 6
Adăugați datele din matricea String într-un nou diapozitiv din prezentarea dvs. curentă: newSlide.Shapes (1) .TextFrame.TextRange = "Date copiat din Excel "newSlide.Shapes (2) .TextFrame.TextRange = dataReadArray (0) & vbNewLine & _ dataReadArray (1) & vbNewLine & _ dataReadArray (2) & vbNewLine & _ dataReadArray ) & vbNewLine

Pasul 7
Închideți registrul de lucru: sourceBook.Close
Treceți în fereastra PowerPoint și faceți clic pe "Macrocomenzi". Faceți clic pe "Executare" pentru a rula macrocomanda "copyFromExcel" și a adăuga un nou slide cu datele copiate din fișierul Excel pe care l-ați creat la pasul 1.

URL:https://ro.whycomputer.com/software-ul/100501198.html