GBKEE

¦^´_ 1# apolloooo
¨S¦³»¡©úA1:D10 ªº¤º®e,¤£ª¾¦p¦ó¦^µª.

GBKEE

¦^´_ 3# apolloooo

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Rng As Range
   
4.     Set Rng = Range("A1:D10") '«ü©wªº½d³ò
   
5.     'Set Rng = Selection      '·Æ¹«¿ï©wªº½d³ò
   
6.     Rng.CopyPicture
   
7.     With ActiveSheet.ChartObjects.Add(1, 1, Rng.Width, Rng.Height)  '·s¼W ¹Ïªí
   
8.         .Chart.Paste                                           '¶K¤W ¹Ï¤ù
   
9.         .Chart.Export Filename:="d:\Test.jpg"                  '¶×¥X ¹Ï¤ù
   
10.         .Delete                                                '§R°£ ¹Ïªí
    
11.     End With
    
12. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 5# zxcxz
§ä¨ìOutlookªºVBA¦A¦^ÂЧA