[땡큐엑셀vba & 엑셀매크로] 범위를 이미지파일(png)로 저장하기

 

 

이미지 파일로 저장

 

'http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=281115621

'안녕하세요
'a1:ai42 범위를 ctrl + c (복사) 하여
'c:\abcd\ 폴더 안에 "배정표_170722.png" 파일로 저장하고 싶습니다.
'파일명의 170722의 날짜는 저장하는 당일의 날짜로 저장되면 됩니다.
'그리고 저장 후에는 msg박스 "c:\abcd\배정표_170722.png 저장완료" 라고 뜨면 됩니다.
'답변 부탁드립니다 ~~


'
' source by 땡큐엑셀vba & 엑셀매크로
' 범위를 png로 저장하기
'
Sub save2png()
    Dim strPath As String                        '파일 경로를 넣을 변수
    Dim cht As ChartObject                     '차트개체를 넣을 변수
    
    Application.ScreenUpdating = False    '화면 업데이트 (일시)중단

 
    '저장경로
    strPath = "c:\temp\"
    
    'A1:AI42선택
    Range("A1:AI42").Select
    
    '그림으로 복사해서 clipboard에 넣음
    Selection.CopyPicture
    
    
    '새로운 차트개체를 범위크기로 생성
    Set cht = ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height)
    cht.Select
        
    '차트에 붙여 넣음
    cht.Chart.Paste
    
    '파일명
    Filename = strPath & "배정표_" & Format(Now, "YYYYMMDD") & ".png"
    
    '그림으로 저장
    cht.Chart.Export Filename
    '삽입했던 차트개체를 삭제
    cht.Delete

    '개체변수 초기화
    Set cht = Nothing


    Application.ScreenUpdating = True    '화면 업데이트 재계
    
    
    MsgBox "완료되었습니다", vbInformation, "땡큐엑셀vba & 엑셀매크로"
    
End Sub

 

특정 범위를 png로 저장하기-ChartObjects.add_Chart.Export_Selection.CopyPicture-땡큐엑셀vba.xlsm

0.05MB