화살표 버튼으로 넘겨보는 상품 카탈로그 만들기

잊을 만하면 한 번씩 받는 질문 중에 이런 것이 있습니다.

이전에 비슷한 것을 다룬 것도 같습니다만, 데이터의 효율적 관리 측면에서 중요한 사항이므로 다시 다루어보지요.

완성 예 — 화살표 버튼으로 상품 카탈로그 넘겨보기

예제 파일의 아래 화살표 버튼을 눌러보면, 화장품 브랜드별 상품 이미지와 정보가 한 장씩 전환되며 나타납니다. 브랜드 사이트 링크와 상품명·컨셉 설명까지 함께 표시됩니다.

워크시트는 "책상"과 비슷합니다. 그림 파일이나 데이터베이스는 "창고" 혹은 "캐비닛"과 비슷하지요. 용량을 많이 차지하는 자료들은 캐비닛이나 창고에 보관해 두고, 필요한 자료만 가져와서 책상 위에 펼쳐놓고 작업하면 효율이 나겠지요? 이미지 파일이 몇 개 안 된다면 모르겠지만, 수백·수천 개나 되는 그림을 워크시트에 직접 저장해 두면 어느 순간 파일이 무거워지다가 결국 다운되기 십상입니다.

왼쪽 화살표 코드 살펴보기

왼쪽 방향 화살표에 연결된 코드를 살펴보죠. 코딩에 들어가기 전에 몇 군데 이름 정의를 해 두었으니, 이름 상자(Name Box)를 통해 미리 살펴보시기 바랍니다.

Sub LeftArrow()

    With Range("MyIndex")
        .Value = .Value - 1
        ' 이전 이미지로 넘어가기 위해서 "MyIndex"라고 이름 붙인 영역의 값을
        ' 기존 값에서 1만큼 빼줍니다.

        If .Value < 1 Then
            ' 셀 값이 1보다 작으면 더 이상 불러올 이미지가 없다는 의미이므로 MsgBox를 보여주고,
            ' 1 이상이면 GetImageFromWeb이라는 외부 프로시저를 실행합니다.
            MsgBox "첫번째 이미지입니다", , "아이엑셀러 닷컴"
            .Value = 1
            Call GetImageFromWeb
        Else
            Call GetImageFromWeb
        End If
    End With

End Sub

GetImageFromWeb 프로시저의 내용입니다.

Sub GetImageFromWeb()

    Dim picMyShape As Picture
    Dim strPath As String
    On Error Resume Next

    ActiveSheet.Shapes("MyImage").Delete
    ' 현재 시트에 MyImage라는 이름의 도형이 있으면 지웁니다.
    ' 만약 도형이 없는데 지우라고 하면 에러 메시지가 나타날 것이므로
    ' 이 문장을 미리 써 준 겁니다.

    Range("ImageStart").Select
    strPath = "http://www.iExceller.com/images/test_image/" & "ap_" & Range("MyIndex") & ".jpg"
    ' 불러올 이미지의 웹 주소를 strPath 변수에 담아둡니다.
    ' URL과 파일의 이름을 & 연산자를 이용하여 결합했군요.
    ' http://www.iExceller.com/images/test_image/ 안에는 10개의 파일이 있는데
    ' ap_1부터 ap_10까지 10장의 사진이 들어있습니다.
    ' 파일의 이름을 지을 때에는 이처럼 특정한 규칙에 의해 지어놓으면 편리하겠지요?

    Set picMyShape = ActiveSheet.Pictures.Insert(strPath)
    picMyShape.Name = "MyImage"
    picMyShape.Width = Range("ImageStart").ColumnWidth * 52
    ' Insert 메서드를 이용하여 그림을 삽입하고 "MyImage"라는 이름을 붙입니다.
    ' 그림의 크기를 ImageStart 셀의 열 너비 X 52로 지정해 주었습니다.
    ' 왜 52냐 하면… 경험치입니다. Trial and Error의 결과!
    ActiveSheet.Hyperlinks.Add Anchor:=Range("BrandSite"), Address:=Range("SiteAddress")

End Sub

strPath = "C:\\test_image\\" & "ap_" & Range("MyIndex") & ".jpg"

오른쪽 방향 화살표에 연결된 코드는 왼쪽 화살표의 그것과 거의 같으므로(1을 빼는 대신 더하고, 범위를 벗어났을 때의 최댓값만 다름) 코드에 대한 해설은 생략합니다.

<완성 예>에서 소개해 드린 형태는 상품 카탈로그라고 하기에는 좀 민망한 수준입니다만, 여기서 소개해 드린 방법을 조금만 응용한다면 충분히 제대로 된 카탈로그를 만들 수 있으리라 생각합니다. 늘 그러하듯, 구슬을 어떻게 잘 꿰어 쓰느냐가 관건이지요.

끝으로 다시 한번 강조합니다. 엑셀은 책상이지 캐비닛이나 창고가 아님을 기억하세요. 엑셀의 작업 공간에는 꼭 필요한 정보들만 올려놓고, 나머지 자료들은 하드 디스크나 서버에 보관하는 것이 좋습니다. 웹 상에 저장해두면 전 세계 어디서나 접근이 가능할 뿐 아니라, 권한을 가진 사람들만 접근할 수 있게 되어 관리하기도 훨씬 용이합니다.

정리 — 상품 카탈로그 핵심 프로시저

자주 묻는 질문 (FAQ)

마치며

엑셀은 책상이지 창고가 아니라는 말, 이미지를 다룰 때는 특히 새겨들을 만합니다. 무거운 자료는 서버에 두고 필요한 것만 불러와 쓰는 습관을 들여 보세요!