有一個打開的ppt和excel；我需要在excel中做一個宏，將ppt中某一頁（以幻燈片）復制到excel中A1單元格；
一直無法實作復制操作，有高手幫忙指導下么；
第一次發～
uj5u.com熱心網友回復：
錄制一個宏，然后看給你生成的代碼，照著寫就可以了。uj5u.com熱心網友回復：
ppt不能錄制宏，在excel錄制的宏好像不能識別excel之外的操作uj5u.com熱心網友回復：
Sub demo()
Dim app As Object
Set app = CreateObject("powerpoint.application")
With app.Presentations.Open("C:\Users\星隕丶楓之翼\Desktop\演示文稿1.pptm")
.Slides(2).Copy '選擇幻燈片第二頁復制
ActiveSheet.Paste
Close
End With
app.Quit
End Sub
uj5u.com熱心網友回復：
剛才那個是打開PPT檔案復制粘貼這個是按樓主要求
Sub demo()
Dim app As Object
Set app = CreateObject("powerpoint.application")
app.Presentations(1).Slides(2).Copy '選擇打開的第一個幻燈片的第二頁復制
ActiveSheet.Cells(1, 9).Select
ActiveSheet.Paste
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/7358.html
標籤：VBA
上一篇：VBA呼叫cmd命令中的問題