彰化一整天的論壇

 找回密碼
 立即註冊
查看: 780|回復: 0

excel 另存圖片成檔案範例

[複製鏈接]
發表於 2014-2-20 10:25:28 | 顯示全部樓層 |閱讀模式
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Rng As Range
  4.     Set Rng = Range("A1:D10") '指定的範圍
  5.     'Set Rng = Selection      '滑鼠選定的範圍
  6.     Rng.CopyPicture
  7.     With ActiveSheet.ChartObjects.Add(1, 1, Rng.Width, Rng.Height)  '新增 圖表
  8.         .Chart.Paste                                           '貼上 圖片
  9.         .Chart.Export Filename:="d:\Test.jpg"                  '匯出 圖片
  10.         .Delete                                                '刪除 圖表
  11.     End With
  12. End Sub
複製代碼
文章來源:http://forum.twbts.com/viewthread.php?tid=11214&highlight=
回復

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 立即註冊

本版積分規則

 ㄚ母滴雞湯
 員林香純滴雞精

Archiver|手機版|小黑屋|彰化一整天的論壇(Excel,Office)  

GMT+8, 2020-2-25 10:48 , Processed in 0.128330 second(s), 19 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回復 返回頂部 返回列表