台灣最大程式設計社群網站
線上人數
1091
 
會員總數:245214
討論主題:189087
歡迎您免費加入會員
討論區列表 >> 專欄文章 >> VBA巨集_如何將Excel Charts 貼到Power Point上_精簡版
[]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
VBA巨集_如何將Excel Charts 貼到Power Point上_精簡版
價值 : 0 QP  點閱數:2568 回應數: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
別忘捐VP感謝幫助你的人 新手會員瞧一瞧
目前尚無任何回覆
   

回覆
如要回應,請先登入.