[]
[我要回覆]
|
|||||
|
|||||
樓主 kevin 
 發送站內信 |
小弟寫了兩個版本，先公佈精簡版如何寫 只要在活頁簿中產生一個Charts就可以執行以下的動作，或是你可以用巨集產生一個Charts，接著再Run以下的程式。 在執行這個之前，請到工具->設定引用項目，將Microsoft power Point x.0 Object Library勾選起來 Sub Copy_charts_To_PPT() Dim myPpApp As PowerPoint.Application Dim myPpPrs As PowerPoint.Presentation Set myPpApp = CreateObject("powerpoint.application") myPpApp.Visible = msoTrue Set myPpPrs = myPpApp.Presentations.Add Worksheets(1).ChartObjects(1).Copy For i = 1 To 5 With myPpPrs .Slides.Add(Index:=i, Layout:=ppLayoutBlank).Shapes.Paste Application.Wait Now() + TimeValue("00:00:01") End With Next Filename = "123" FilePath = "C:\" & Filename & ".ppt" myPpPrs.SaveAs Filename:=FilePath myPpPrs.Close Set myPpPrs = Nothing Set myPpApp = Nothing End Sub
搜尋相關Tags的文章：
[ VBA 巨集 ] ,
本篇文章發表於2007-05-25 20:04 |
||||
60
21
258
37
