返回列表 上一主題 發帖

[發問] 如何把群組圖表轉成圖片

wind6424

帖子
60 
主題
20 
精華
0 
積分
87 
點名
0  
作業系統
WinXP 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2011-8-4 
最後登錄
2020-5-25 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2020-5-23 13:08 | 只看該作者

[發問] 如何把群組圖表轉成圖片

請教如何用VBA 把群組圖表轉成圖片貼到其他工作表特定位置,
我想把不同工作表內的圖表全部轉成圖放到一個工作表內一次擷取發信用,

下面是自行嘗試寫的程式,可以把圖表轉成圖片貼到其他工作表特定位置,
但是想嘗試把組成群組的圖片做同樣動作,
在程式抓取圖片部份好像要改成ChartGroup ,但嘗試修改一直失敗,
不知是否有大大可以教學一下,
謝謝

Sub Macro1()
' 圖表轉成圖檔

     Dim mychart As Chart
     Set mychart = Sheets("Sheet3").SelectActiveSheet.ChartObjects(2).Chart
     mychart.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
     ActiveSheet.Paste Destination:=Sheets("Sheet1").Range("B50")
   
End Sub
收藏 分享

wind6424

帖子
60 
主題
20 
精華
0 
積分
87 
點名
0  
作業系統
WinXP 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2011-8-4 
最後登錄
2020-5-25 
2#
發表於 2020-5-24 00:40 | 只看該作者
更正一下圖表轉成圖檔程式,精簡程式時 Set mychart=...部份複製錯了
Sub Macro1()
' 圖表轉成圖檔

     Dim mychart As Chart
     Set mychart = Sheets("Sheet3").ChartObjects(2).Chart
     mychart.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
     ActiveSheet.Paste Destination:=Sheets("Sheet1").Range("B50")
   
End Sub

TOP

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
返回列表 上一主題