Board logo

標題: [發問] 請教將 A1:G50 存成圖片檔(C:\ABC.JPG)的語法? [打印本頁]
作者: t8899    時間: 2017-5-4 10:07     標題: 請教將 A1:G50 存成圖片檔(C:\ABC.JPG)的語法?

請教將 A1:G50 存成圖片檔(C:\ABC.JPG)的語法?
作者: stillfish00    時間: 2017-5-4 14:38

回復 1# t8899
  1. Sub Test()
  2.     Dim rngCopy As Range
  3.     Set rngCopy = ActiveSheet.Range("A1:G50")
  4.     rngCopy.CopyPicture Format:=xlBitmap
  5.    
  6.     With ActiveSheet.Shapes.AddChart(Width:=rngCopy.Width, Height:=rngCopy.Height)
  7.         .Chart.Paste
  8.         .Chart.Export Filename:="C:\ABC.JPG", FilterName:="JPG"
  9.         .Delete
  10.     End With
  11. End Sub
  12.    
複製代碼
作者: t8899    時間: 2017-5-4 15:34

回復  t8899
stillfish00 發表於 2017-5-4 14:38

抱歉，出現錯誤 (附檔)[attach]27142[/attach]
[attach]27143[/attach]
作者: ML089    時間: 2017-5-9 07:11

回復 3# t8899

C:\ABC.JPG 改為 D:\ABC.JPG 試試看，可能是寫入權限的問題
作者: GBKEE    時間: 2017-5-9 09:12

回復 3# t8899
2003版本
  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
複製代碼
作者: t8899    時間: 2017-5-11 05:45

回復  t8899
2003版本
GBKEE 發表於 2017-5-9 09:12


這個沒問題了，謝謝指導!



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)