VBA巨集_如何將Excel Charts 貼到Power Point上_精簡版

台灣最大程式設計社群網站

∣免費加入會員∣登入 ∣回首頁∣ 您好

線上人數
1243

會員總數：245985
討論主題：189565

登入

登出

歡迎您免費加入會員

討論區選單

開發工具

行動裝置開發

資料庫

多媒體 / 網管

綜合

文章區

討論區列表 >> 專欄文章 >> VBA巨集_如何將Excel Charts 貼到Power Point上_精簡版

[]

[我要回覆]

VBA巨集_如何將Excel Charts 貼到Power Point上_精簡版
價值 : 0 QP 點閱數:2991 回應數:0

樓主

kevin

60	21
258	37

發送站內信

相信大家都想要自動化的文書作業，只要使用巨集去撈資料庫的資料來畫Charts，用巨集畫Charts相信大家都會，但如何把畫出來的Charts貼到Power Point上呢
小弟寫了兩個版本，先公佈精簡版如何寫
只要在活頁簿中產生一個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

目前尚無任何回覆

回覆

如要回應,請先登入.