stillfish00

¦^´_ 21# jackyliu

1. Sub RangeToPicture()
   
2.   Dim rngSrc As Range
   
3.    
   
4.   With ActiveSheet
   
5.     Set rngSrc = .UsedRange
   
6.    
   
7.     rngSrc.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
   
8.     With .ChartObjects.Add(Left:=rngSrc.Left, Top:=rngSrc.Top, Width:=rngSrc.Width, Height:=rngSrc.Height)
   
9.       .Chart.Paste
   
10.       .Chart.Export "C:\pic1.jpg"
    
11.       .Delete
    
12.     End With
    
13.   End With
    
14. End Sub

½Æ»s¥N½X