­ã´£³¡ªL

Sub Ex()
Dim Rng As Range, Shp As Shape
'«ü©wªº½d³ò
Set Rng = Range("D3:G9")
Rng.CopyPicture Format:=xlPicture '¤£­n¥ÎxlBitmap
ActiveSheet.Paste '¥ý¶K¥X¹Ï¤ù
Set Shp = ActiveSheet.Shapes(ActiveSheet.Shapes.Count)
Shp.LockAspectRatio = msoTrue '«O«ù¹Ï¤ù¤ñ¨Ò
Shp.Width = Shp.Width * 2 '©ñ¤j¹Ï¤ù­¿¼Æ
Shp.Copy
'·s¼W ¹Ïªí
With ActiveSheet.ChartObjects.Add(1, 1, Shp.Width, Shp.Height)
    '.ShapeRange.ScaleWidth 1, 0
    '.ShapeRange.ScaleHeight 1, 0
     .Chart.Paste '¶K¤W ¹Ï¤ù
     .Chart.Export Filename:=ThisWorkbook.Path & "\Test.jpg" '¶×¥X ¹Ï¤ù
     .Delete '§R°£¹Ïªí
End With
Shp.Delete '§R¹Ï¤ù
End Sub

==================================