엑셀 지정된 셀에 꽉찬 사진 넣기 메크로

엑셀(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. 실행을 누르고 사진을 선택하는 창이 뜨면 삽입하려는 사진을 선택해 줍니다.