Cara Menyalin Secara Otomatis Dari Excel ke PowerPoint Menggunakan VBA Macro

Jika Anda ingin mempercepat transfer data dari buku kerja Microsoft Excel ke presentasi Microsoft PowerPoint Anda, maka menggunakan makro dan Visual Basic for Applications adalah ", 1]

,VBA adalah bahasa pemrograman komputer yang digunakan dalam aplikasi Microsoft Office untuk mengotomatisasi proses seperti menyalin data dari Excel. Makro memungkinkan Anda menyimpan serangkaian instruksi yang dapat Anda lakukan berulang kali dengan mengklik tombol.

Langkah 1
Luncurkan Excel, ketik "Alan" di "A1, "" Daniel "dalam" A2, "" Kitzia "dalam" A3, "" Oscar "dalam" A4 "dan" Yarexli "dalam" A5. " Tekan "CTRL" dan "S" untuk menyimpan buku kerja di "C: \\" sebagai "ExcelFile.xlsx." Tutup Excel.

Langkah 2
Luncurkan PowerPoint, klik tab "Pengembang" dan klik "Makro" untuk meluncurkan jendela dialog Makro. Ketik "copyFromExcel" di bawah Nama Makro dan klik tombol "Buat". Klik menu "Tools" dan klik "Referensi" untuk membuka jendela dialog Referensi. Gulir ke bawah dan centang kotak di samping "Perpustakaan Objek Microsoft Excel" dan klik "OK."

Langkah 3
Salin dan tempel yang berikut untuk membuat variabel yang akan Anda gunakan untuk menyalin data dari Excel: Dim sourceXL As Excel. Aplikasi Dim sourcebook Sebagai Excel.Workbook Dim sourceSheet As Excel.Worksheet Dim dataReadArray (10) Sebagai String Dim myPress As Presentation Dim newSlide As Slide

Langkah 4
Tetapkan nilai ke variabel objek : Set sourceXL \u003d Excel.Application Set sourceBook \u003d sourceXL.Workbooks.Open ("G: \\ ExcelFile.xlsx") Setel sourceSheet \u003d sourceBook. Lembar (1) Set myPres \u003d ActivePresentation Set newSlide \u003d myPres.Slides.Add (Indeks: \u003d myPres.Slides.Count + 1, Layout: \u003d ppLayoutText)

Langkah 5
Baca data dalam file Excel dan simpan dalam array String: sourceSheet.Range ("A1"). Pilih dataReadArray (0) \u003d sourceSheet.Range ("A1"). Nilai sourceSheet.Range ("A2"). Pilih dataReadArray (1) \u003d sourceSheet.Range ("A2"). Nilai sourceSheet.Range ("A3"). Pilih dataReadArray ", 3, [[rceSheet.Range ("A3"). Nilai sourceSheet.Range ("A4"). Pilih dataReadArray (3) \u003d sourceSheet.Range ("A4"). Nilai sourceSheet.Range ("A5"). Pilih dataReadArray (4) \u003d sourceSheet.Range ("A5"). Nilai

Langkah 6
Tambahkan data dari array String ke slide baru dalam presentasi Anda saat ini: newSlide.Shapes (1) .TextFrame.TextRange \u003d "Data disalin dari Excel "newSlide.Shapes (2) .TextFrame.TextRange \u003d dataReadArray (0) & vbNewLine & _ dataReadArray (1) & vbNewLine & _ dataReadArray (2) & vbNewLine & _ dataReadArray (3) & vBaca ) & vbNewLine

Langkah 7
Tutup buku kerja: sourceBook.Close
Beralih ke jendela PowerPoint dan klik "Makro." Klik "Jalankan" untuk menjalankan makro "copyFromExcel" dan tambahkan slide baru dengan data yang disalin dari file Excel yang Anda buat di Langkah 1.

URL:https://komputer.whycomputer.com/Perangkat-lunak/101301198.html