엑셀(Excel) 셀에 사진을 불러 올때 자동으로 꽉차게 불러오는 메크로 사용방법입니다.

지정한 셀에 모양에 맞게 비율을 무시하고 꽉찬 상태로 사진을 불러 오게 됩니다.
미리 셀에 크기를 적당히 조절해 두고 작업을 해야 합니다.

1. 엑셀을 실행하고 알트(alt) + F11 을 눌러서 비쥬얼 베이직 창을 열어 줍니다.
2. 삽입 -> 모듈 을 클릭합니다.


3. 아래 내용을 입력하고 창을 닫아 줍니다.
Sub insert_Pic()
    Dim Pic   As Variant
    Pic = Application.GetOpenFilename _
                    (filefilter:="Picture Files,*.jpg;*.bmp;*.tif;*.gif;*.png")
    If Pic = False Then
        Exit Sub
    End If
     With ActiveSheet.Pictures.Insert(Pic).ShapeRange
        .LockAspectRatio = msoFalse
        .Height = Selection.Height
        .Width = Selection.Width
        .Left = Selection.Left
        .Top = Selection.Top
    End With
End Sub


4. 사진을 넣을 셀을 선택하고 알트(alt) + F8 을 누른다.


5. 실행을 누르고 사진을 선택하는 창이 뜨면 삽입하려는 사진을 선택해 줍니다.

Posted by 천지무료

댓글을 달아 주세요

  1. mr 정 2012/05/01 14:21  댓글주소  수정/삭제  댓글쓰기

    좋은 정보 감사합니다~ 담아갈께요

    • 천지무료 2012/05/01 14:34  댓글주소  수정/삭제

      죄송하지만 제 블로그에 모든 내용은 퍼가는걸 허용하지 않습니다.
      개인적인 목적을 위해 비공개로 사용하시는건 상관이 없습니다.

  2. 2012/05/02 19:47  댓글주소  수정/삭제  댓글쓰기

    비밀댓글입니다

  3. 박춘근 2012/10/08 22:35  댓글주소  수정/삭제  댓글쓰기

    감사합니다~!
    다른 블로그에도 같은 글이 많은데, 님블로그에 있는게 상세하게, 알기쉽게 해주셨네요~!
    복받으세요~!

  4. 김미정 2012/12/14 10:45  댓글주소  수정/삭제  댓글쓰기

    정말 감사합니다

    남편일을 돕고 있는데 너무 유용하게 잘 쓰겠습니다

  5. 김지수 2013/02/06 17:40  댓글주소  수정/삭제  댓글쓰기

    정말 감사합니다^^
    큰 도움이 되었습니다~^^

  6. 지원 2013/03/20 11:37  댓글주소  수정/삭제  댓글쓰기

    메크로 보안은 어떻게 해야하나요?!

    • 천지무료 2013/03/20 23:48  댓글주소  수정/삭제

      저는 특별히 메크로 보안에 대한 메시지는 나오는게 없는데 혹시 나온다면 "엑셀 메크로 보안" 으로 검색하셔서 설정하시면 됩니다.

  7. 정인 2013/03/21 17:52  댓글주소  수정/삭제  댓글쓰기

    좋은 정보 감사합니다~



티스토리 툴바