軒云熊

回復 1# msmplay


以下這段改一下 試試看
Range("B2:H8").Select
Selection.Copy

自己改一下吧  這是之前在這裡找到的  某位前輩寫的 忘了在哪一頁了 已經很久了

1. Public Sub 把儲存格內容存成檔案()
   
2. 
   
3.     Range("A1:A12").CopyPicture 1, 2
   
4.     Range("A1").Select
   
5.     ActiveSheet.Paste
   
6.     '顯示圖片或按鈕名稱
   
7.     For Each Shp In ActiveSheet.Shapes
   
8.     Debug.Print Shp.Name
   
9.         If Left(Shp.Name, 7) = "Picture" Then
   
10.             Shp.Copy
    
11.             With ActiveSheet
    
12.                 Set Cht = .ChartObjects.Add(0, 0, Shp.Width + 5, Shp.Height + 5)
    
13.                 '將Shape的圖片貼上圖表物件中
    
14.                 With Cht
    
15.                     .Border.LineStyle = 0
    
16.                     .Chart.Paste
    
17.                     '在使用Export方法, 圖表匯出成JPG圖檔
    
18.                     .Chart.Export "C:\Users\a5525\Desktop\EXCEL的xlsm檔案\888.jpg"             ', filtername:="JPG"
    
19.                     '刪除圖表
    
20.                     .Delete
    
21.                 End With
    
22.             End With
    
23.         End If
    
24.     Next Shp
    
25. 
    
26. End Sub

複製代碼