Cara Menyalin Secara Automatik Dari Excel ke PowerPoint Menggunakan Makro VBA

Sekiranya anda ingin mempercepat pemindahan data dari buku kerja Microsoft Excel ke persembahan Microsoft PowerPoint anda, kemudian menggunakan makro dan Visual Basic untuk Aplikasi adalah cara yang tepat. VBA adalah bahasa pengaturcaraan komputer yang digunakan dalam aplikasi Microsoft Office untuk mengautomasikan proses seperti menyalin data dari Excel. Makro membolehkan anda menyimpan sekumpulan arahan yang boleh anda laksanakan berulang kali dengan satu klik butang.

Langkah 1

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

Langkah 2

Lancarkan PowerPoint, klik tab "Pembangun" dan klik "Makro" untuk melancarkan tetingkap dialog Makro. Ketik "copyFromExcel" di bawah Nama Makro dan klik butang "Buat". Klik menu "Alat" dan klik "Rujukan" untuk melancarkan tetingkap dialog Rujukan. Tatal ke bawah dan tandakan kotak di sebelah "Microsoft Excel Perpustakaan Objek "dan klik" OK. "

Langkah 3

Salin dan tampal yang berikut untuk membuat pemboleh ubah yang akan anda gunakan untuk menyalin data dari Excel:Dim sourceXL As Excel. Aplikasi Dim sourceBook As Excel. Workbook Dim sourceSheet As Excel.Worksheet Dim dataReadArray (10) As String Dim myPress As Presentation Dim newSlide Sebagai Slaid

Langkah 4

Tetapkan nilai ke pemboleh ubah objek:Tetapkan sourceXL =Excel.Application Set sourceBook =sourceXL.Workbooks.Open ("G:\ ExcelFile.xlsx") Tetapkan sourceSheet =sourceBook.Sheets (1) Tetapkan myPres =ActivePresentation Set newSlide =myPres.Slides .Tambah (Indeks:=myPres.Slides.Count + 1, Susun atur:=ppLayoutText)

Langkah 5

Baca data dalam fail Excel dan simpan dalam array String:sourceSheet.Range ("A1"). Pilih dataReadArray (0) =sourceSheet.Range ("A1"). Value sourceSheet.Range ("A2"). Pilih. dataReadArray (1) =sourceSheet.Range ("A2"). Value sourceSheet.Range ("A3"). Pilih dataReadArray (2) =sourceSheet.Range ("A3"). Value sourceSheet.Range ("A4"). Pilih. dataReadArray (3) =sourceSheet.Range ("A4"). Value sourceSheet.Range ("A5"). Pilih dataReadArray (4) =sourceSheet.Range ("A5"). Nilai

Langkah 6

Tambahkan data dari array String ke slaid baru dalam persembahan semasa anda:newSlide.Shapes (1) .TextFrame.TextRange ="Data disalin dari Excel" newSlide.Shapes (2) .TextFrame.TextRange =dataReadArray (0) &vbNewLine &_ dataReadArray (1) &vbNewLine &_ dataReadArray (2) &vbNewLine &_ dataReadArray (3) &vbNewLine &_ dataReadArray (4) &vbNewLine

Langkah 7

Tutup buku kerja:sourceBook. Tutup

Tukar ke tetingkap PowerPoint dan klik "Makro." Klik "Jalankan" untuk menjalankan makro "copyFromExcel" dan tambahkan slaid baru dengan data yang disalin dari fail Excel yang anda buat di Langkah 1.