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

Sub RangeSaveAsPicture()
    Dim NewFileName As String
    
    If TypeName(Selection) <> "Range" Then Exit Sub
    
    NewFileName = 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.ChartObjects.Add(Left:=Selection.Left, Width:=Selection.Width, Top:=Selection.Top, Height:=Selection.Height)

        '// 차트 배경을 투명하게
        .ShapeRange.Fill.Visible = msoFalse
        .ShapeRange.Line.Visible = msoFalse
            
        '// 이미지를 임시차트에 복사
        Selection.CopyPicture xlScreen, xlPicture
        .Activate
        ActiveChart.Paste
        
        '// 차트를 저장하고 임시차트를 삭제
        .Chart.Export NewFileName
        .Delete
    End With

End Sub