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

t8899

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

stillfish00

回復 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

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

抱歉，出現錯誤 (附檔) Book2.rar (9.21 KB)

下載次數: 7

2017-5-4 15:33

下載 (25.98 KB)

2017-5-4 15:34

ML089

回復 3# t8899

C:\ABC.JPG 改為 D:\ABC.JPG 試試看，可能是寫入權限的問題

GBKEE

回復 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

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

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