Bir VBA makrosu kullanarak otomatik olarak Excel'den PowerPoint'e nasıl kopyalanır
1. Adım
Excel'i çalıştırın, A1'de "Alan", A2'de "Daniel", A3'te "Kitzia", A4'te "Oscar" ve A5'te "Yarexli" yazın. Çalışma kitabını "C: \" "ExcelFile.xlsx" olarak kaydetmek için "Ctrl" ve "S" tuşlarına basın. Excel'i kapat
2. Adım
PowerPoint'i çalıştırın, "Geliştirici" sekmesine tıklayın ve makro iletişim kutusunu çalıştırmak için "Makrolar" a tıklayın. "Makro Adı" altında "copyFromExcel" yazın ve "Oluştur" düğmesine tıklayın. "Araçlar" menüsüne tıklayın ve "Referanslar" iletişim kutusunu çalıştırmak için "Tercihler" e basın. Aşağı kaydırın ve "Microsoft Excel Nesne Kitaplığı" kutusunu işaretleyin ve "Tamam" ı tıklayın.
3. adım
Verileri Excel'den kopyalamak için kullanacağınız değişkenleri oluşturmak için aşağıdakileri kopyalayıp yapıştırın:
Dim sourceXL As Excel.Uygulama Dim sourceBook As Excel.Workbook Dim sourceSheet As Excel.Worksheet Dim dataReadArray (10) Dize Dim myPress Gibi Sunum Dim newSlide Gibi Slayt
4. Adım
Nesne değişkenlerinin değerlerini ayarlayın:
Set sourceXL = Excel.Application Set sourceBook = sourceXL.Workbooks.Open ("G: \ ExcelFile.xlsx") Set sourceSheet = sourceBook.Sheets (1) Set myPres = ActivePresentation Set newSlide = myPres.Slides.Add (Dizin: = myPres .Slides.Count + 1, Düzen: = ppLayoutText)
Adım 5
Excel dosyasındaki verileri okuyun ve bir Zincir vektöründe saklayın:
sourceSheet.Range ("A1"). Select dataReadArray (0) = sourceSheet.Range ("A1"). Value sourceSheet.Range ("A2"). data seçinReadArray (1) = sourceSheet.Range ("A2"). sourceSheet.Range ("A3"). Select dataReadArray (2) = sourceSheet.Range ("A3"). Değer sourceSheet.Range ("A4") .Seçimini seçinReadArray (3) = sourceSheet.Range ("A4"). sourceSheet.Range ("A5"). data seçinReadArray (4) = sourceSheet.Range ("A5").
6. Adım
Zincir vektöründeki verileri mevcut sununuzdaki yeni slayda ekleyin:
newSlide.Shapes (1) .TextFrame.TextRange = "Excel'den kopyalanan veriler" newSlide.Shapes (2) .TextFrame.TextRange = dataReadArray (0) & vbNewLine & _ dataReadArray (1) & vbNewLine & _ dataReadArray (2) & vbNewLine & _ dataReadArray (3) & vbNewLine & _ dataReadArray (4) & vbNewLine
7. adım
Çalışma kitabını kapatın:
sourceBook.Close
8. adım
PowerPoint penceresine geçin ve "Makrolar" a tıklayın. "CopyFromExcel" makrosunu çalıştırmak ve 1. adımda oluşturulan Excel dosyasından kopyalanan verilerle yeni bir slayt eklemek için "Çalıştır" ı tıklayın.
