차트를 그림파일로 만들기

독자 질문

Exceller는 Visual FoxPro는 한번도 써보지 않았습니다만(아주 오래 전에 DOS에서 실행되는 그냥 FoxPro를 한번 구경한 적은 있습니다. ^^) Excel에서 그래프를 작성 하셨다면 이 그래프를 그림파일로 저장하신 다음, 이것을 폭스프로에서 불러와서 다른 작업을 하시면 될 것입니다.

예제 데이터

버튼을 누르면 파일이름을 지정하기 위한 대화상자가 하나 나타나고 여기에다가 파일이름을 입력하고 "확인" 버튼을 누르면 "나의차트.gif"라는 그림파일이 생성될 것입니다. 이렇게 해서 생성된 그림 파일을 다른 응용프로그램에서 불러다가 사용을 하면 됩니다.

코드를 보도록 하지요.

코드 작성하기

Sub ExportChartToGIF()
    Dim cht As Chart
    Dim strFile As String
    Dim strType As String
    Dim strDupe As String
    Dim intAns As Integer

    Set cht = ActiveSheet.ChartObjects(1).Chart
    strFile = Application.GetSaveAsFilename(initialfilename:="나의차트", _
        filefilter:="GIF Files(*.gif),*.gif", _
        Title:="차트 이름을 지정하세요")
    '//strFile이라는 문자열 변수에 파일 이름을 담습니다. 이 때 대화상자를 사용자가 직접
    '//제작하는 것이 아니고(만약 이것을 만들어야 한다고 생각해 보세요!) 이미 만들어져
    '//있는 것을 그저 불러와서 사용하면 됩니다.

    '//그 역할을 담당하는 것이 바로 GetSaveAsFilename 메서드(Method)인 것이지요.
    '//initialfilename은 바꿀 파일이름을 지정하는 인수입니다. 그리고 filefilter는 필터형식, 즉
    '//어떤 형식의 파일로 저장할 것인지를 지정하는 인수입니다.

    If strFile = "False" Then GoTo ET
    If Dir(strFile) <> "" Then
        strDupe = "같은 이름의 파일이 이미 존재합니다." & vbCr
        strDupe = strDupe & "덮어쓸까요?"
        intAns = MsgBox(strDupe, vbYesNo, "중복 확인//Exceller")
        If intAns = vbNo Then Exit Sub
    End If

    cht.Export Filename:=strFile, filtername:="GIF"
    '//여기서 Export는 차트를 그림으로 내보내는 메서드입니다.

    MsgBox strFile & " 파일이 생성되었습니다.", vbInformation, "저장 완료//Exceller"

ET:
    If Err <> 0 Then MsgBox Err.Description, vbInformation, "에러 발생//Exceller"
    Err.Clear
    '//만약 작업 도중 에러가 발생되면 메시지 박스에 그 발생사유를 뿌려줍니다.

End Sub

마무리

이번 강좌에서는 GetSaveAsFilename, Export 등과 같이 새로운 메서드가 몇 개 사용되었습니다. 이들 메서드에 대한 보다 자세한 사항은 도움말을 참고하여 한번씩 살펴보시기 바랍니다. 새로운 메서드나 속성, 오브젝트 등이 나오면 항상 도움말을 찾아보는 습관을 들이시기 바랍니다.

다음 시간에는 오늘 배우신 것을 응용하여 보다 재미있는 것을 하나 만들어 보도록 하겠습니다. 대신 오늘은 짧게 여기까지 합니다.

다음 시간에…

정리 — 차트 내보내기 핵심

자주 묻는 질문 (FAQ)

마치며

도움말을 찾아보는 습관이 VBA 실력을 키우는 가장 빠른 길입니다.