선택부분만 그림파일로 저장

Sub <strong><span style="color: #0000ff;">RangeSaveAsPicture</span></strong>()
    Dim NewFileName As String
 
    If TypeName(Selection) <> "Range" Then Exit Sub
 
    <strong>NewFileName</strong> = Application.GetSaveAsFilename( _
        InitialFileName:=ActiveSheet.Name, _
        fileFilter:="Portable Networks Graphic (*.png),*.png, JPEG (*.jpg),*.jpg, Bitmap (*.bmp), *.bmp, GIF (*.gif), *.gif")
    If NewFileName = "False" Then Exit Sub
 
    '//임시차트 추가
    With ActiveSheet.<strong><span style="color: #0000ff;">ChartObjects.Add</span></strong>(Left:=Selection.Left, Width:=Selection.Width, Top:=Selection.Top, Height:=Selection.Height)
 
        '// 차트 배경을 투명하게
        .ShapeRange.Fill.Visible = msoFalse
        .ShapeRange.Line.Visible = msoFalse
 
        '// 이미지를 임시차트에 복사
        Selection.<strong><span style="color: #0000ff;">CopyPicture xlScreen, xlPicture</span></strong>
        .Activate
        ActiveChart.Paste
 
        '// 차트를 저장하고 임시차트를 삭제
        .Chart.<strong><span style="color: #ff0000;">Export </span>NewFileName</strong>
        .Delete
    End With
 
End Sub