엑셀 매크로 셀 크기에 맞게 그림 이미지 불러 오기

엑셀 매크로 셀 크기에 맞게 그림 이미지 불러오기

엑셀 작업 시 폼을 그리고 폼에 따라 이미지를 삽입해서 작업을 하기도 합니다.
이 폼에 따라 불러온 이미지는 보통 셀 크기에 맞게 이미지를 직접 조절하거나 옵션 설정을 해서
셀 크기에 맞게 조절하게 됩니다.

하지만 처음부터 이미지를 불러올 때 셀 크기에 맞게 불러오게 설정해놓으면 편리하겠지요

셀 크기에 맞지 않고 원본 형태로 불러오려면 기존 방식으로 불러오면 되고
셀 크기에 맞게 불러오려면 매크로 프로그램으로 불러오면 됩니다.

그럼 방법을 알아보겠습니다.

아래 간단한 엑셀 샘플을 준비했습니다.
셀 크기가 다른데요 동일한 이미지를 매크로를 이용해 삽입해서 셀 크기에 맞추어 들어가게 할 겁니다.

일반적으로 이미지 삽입은 상단 메뉴 중 [삽입]-[이미지]를 클릭하면 창이 뜨고
이미지를 선택하면 엑셀 옵션 설정에 따라 이미지 크기가 삽입됩니다.
기본은 원본 크기 비율에 맞게 나오게 됩니다.

이미지를 불러올 때부터 셀 크기에 맞게 불러오는 매크로 프로그램을 이용하면
설정 필요 없기 간단하게 삽입되는데요.

"ALT + F11"키를 눌러줍니다.

Microsoft Visual Basic for Applications 프로그램이 실행되면
"현재 통합 문서"에서 마우스 오른쪽 버튼 클릭 후 [삽입]-[모듈]을 선택합니다.

새로운 모둘 창이 열리면 아래 내용을 복사해서 넣어주세요

Option Explicit Sub GetImage() Dim ImageSel As Variant Dim Img As Object Dim i As Integer ImageSel = Application.GetOpenFilename(filefilter:="Picture Files,*.jpg;*.bmp;*.tif;*.gif;*.png") i = 10 If ImageSel = False Then Exit Sub Set Img = ActiveSheet.Shapes.AddPicture(Filename:=ImageSel, linktofile:=False, Savewithdocument:=True, Left:=Selection.Left + i / 2, Top:=Selection.Top + i / 2, Width:=Selection.Width - i, Height:=Selection.Height - i) End Sub