엑셀 사진넣기 매크로 입니다

엑셀 사진넣기 매크로 입니다

엑셀은 제가 생각하기에 정말 최고의 프로그램이라 생각됩니다. 엑셀에는 수많은 기능과 VB 로 프로그램도 작성할 수 있고 워드같은 폼문서도 작업할 수 있습니다.

이번 엑셀 강좌는 엑셀에 사진 넣기 방법을 해볼건데요 엑셀에 사진 넣는 방법은 정말 쉽습니다.

삽입 - 그림을 선택해서 그림 삽입을 하면 되지요 그리고 셀의 크기에 맞도록 이미지 크기를 적절하게 조정합니다.

하지만 이미지가 많으면 그 많은 이미지들을 모두 사이즈 조절하기는 쉽지 않습니다.

이럴 때 엑셀 매크로를 이용하면 쉽게 사진이나 이미지를 셀크기에 맞도록 삽입할 수 있는데요

자 이제 엑셀 사진넣기 매크로 방법을 알아보겠습니다.

엑셀 사진넣기 매크로

엑셀 기본은 매크로 기능이 비활성화 되어 있습니다. 확인도 할 겸

상위 메뉴 중 파일을 선택합니다.

엑셀에 사진넣기

좌측 메뉴 중 옵션을 선택합니다.

옵션 선택

엑셀 옵션창이 뜨면 좌측 메뉴 중 보안 센터를 선택합니다.

보안센터 설정

보안 센터 창이 뜨면 좌측에 매크로 설정을 선택 후 우측항목에

모든 매크로 포함을 선택 후 확인 버튼을 클릭합니다.

매크로 설정

이제 매크로를 오류 없이 사용할 수 있습니다.

이제 매크로 작업을 하기 위해 Alt + F11 키를 눌러줍니다.

Alt + F11

Microsoft Visual Basic for Applications 가 열립니다.

상위 메뉴 중 삽입 - 모듈을 선택합니다.

Microsoft Visual Basic for Applications

새로운 통합문서 창이 생성됩니다.

매크로 프로로그램 편집

아래 항목을 복사해 해주세요

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