返回列表 上一主題 發帖

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

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

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

回復 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.    
複製代碼
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

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

抱歉,出現錯誤 (附檔) Book2.rar (9.21 KB)
Snap2.jpg
2017-5-4 15:34

TOP

回復 3# t8899

C:\ABC.JPG 改為 D:\ABC.JPG 試試看,可能是寫入權限的問題
{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

回復 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
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

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


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

TOP

        靜思自在 : 人要自愛,才能愛普天下的人。
返回列表 上一主題