返回列表 上一主題 發帖

[發問] ChartObjects寫法

acdx

帖子
132 
主題
56 
精華
0 
積分
190 
點名
0  
作業系統
Win10 
軟體版本
Office 365 
閱讀權限
20 
性別
男 
註冊時間
2012-5-17 
最後登錄
2024-4-29 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2017-6-27 22:19 | 只看該作者

[發問] ChartObjects寫法

最近需用到圖表功能
工作表("Sheet1")中已有3張圖表, 該怎麼利用VBA分別將其複製到工作表"M1", "M2", "M3"?
若是希望3張圖表已截圖方式複製又該如何做呢?希望用截圖方式是為了避免圖表中的數據連結變更會造成圖表跟著變動所以希望用截圖方式
收藏 分享

acdx

帖子
132 
主題
56 
精華
0 
積分
190 
點名
0  
作業系統
Win10 
軟體版本
Office 365 
閱讀權限
20 
性別
男 
註冊時間
2012-5-17 
最後登錄
2024-4-29 
2#
發表於 2017-6-28 14:06 | 只看該作者
回復 1# acdx

使用ActiveChart.ChartArea.Copy可以將excel 中的chart存成圖檔
但是當同一個工作表中有數張圖表(例如有3張),該如何分別指定這3張圖表複製到不同工作表中?

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
253  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-22 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
3#
發表於 2017-6-29 08:59 | 只看該作者
回復 2# acdx
  1. Sub ExportChart()
  2. Dim Ct As ChartObject
  3. With 工作表1 '圖表所在工作表
  4. For Each Ct In .ChartObjects
  5.    Ct.CopyPicture xlScreen, xlPicture '複製圖表為圖片
  6.   With Worksheets.Add '新增工作表
  7.   .Name = Ct.Name '工作表以圖表名稱為名
  8.   .Paste '貼上圖片
  9.   End With
  10. Next
  11. End With
  12. End Sub
複製代碼
學海無涯_不恥下問

TOP

acdx

帖子
132 
主題
56 
精華
0 
積分
190 
點名
0  
作業系統
Win10 
軟體版本
Office 365 
閱讀權限
20 
性別
男 
註冊時間
2012-5-17 
最後登錄
2024-4-29 
4#
發表於 2017-6-29 15:03 | 只看該作者
回復 3# Hsieh
在For Each Ct In .ChartObjects會出現錯誤  "此處需要物件"

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
5#
發表於 2017-6-29 17:27 | 只看該作者
本帖最後由 c_c_lai 於 2017-6-30 10:24 編輯

回復 4# acdx
因為你內定表單的名稱 (Name) 不符，
  1. With 工作表1    '圖表所在工作表
複製代碼
所以接下來在執行
  1. For Each Ct In .ChartObjects
複製代碼
便會出現 "此處需要物件"。

亦即，請先檢查放置圖表的原工作表單名稱。

TOP

        靜思自在 : 有智慧才能分辨善惡邪正；有謙虛才能建立美滿人生。
返回列表 上一主題