彰化一整天的論壇

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

請教將 A1:G50 存成圖片檔(C:\ABC.JPG)的語法?

[複製鏈接]
發表於 2017-5-11 08:27:47 | 顯示全部樓層 |閱讀模式
請教將 A1:G50 存成圖片檔(C:\ABC.JPG)的語法?
  1. Private Sub CommandButton1_Click()
  2.     Dim rngCopy As Range
  3.     Set rngCopy = ActiveSheet.Range("A1:G50")
  4.     rngCopy.CopyPicture Format:=xlBitmap
  5.    With ActiveSheet.ChartObjects.Add(, , rngCopy.Width, rngCopy.Height).Chart
  6.         .Paste
  7.         .Export Filename:="C:\ABC.JPG", FilterName:="JPG"
  8.         .Parent.Delete
  9.     End With
  10. End Sub
複製代碼


文章來源: http://forum.twbts.com/viewthread.php?tid=19651
回復

使用道具 舉報

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

本版積分規則

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

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

GMT+8, 2018-4-26 05:43 , Processed in 0.025203 second(s), 12 queries , Apc On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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