엑셀 사진 넣기 매크로 사용
엑셀을 이용해서 문서작업도 하고 통계성 작업도 쉽게 할 수 있는데요. 이렇게 기능이 많은 엑셀이다 보니 기본적으로 사진, 이미지 등을 많이 삽입해서 사용하기도 합니다.
이미지 삽입은 상위 메뉴 중 삽입 - 이미지를 선택해서 하면 되는데요.
이미지 삽입 후 셀의 크기에 맞도록 크기를 조절하는 것이 일반적인 방법입니다. 몇개 안되는 이미지 일 경우 크게 문제가 되지는 않지만 이미지가 많은경우 하나씩 수작업 하는것은 쉽지 않습니다. 그렇기 때문에 이럴경우에는 매크로를 이용하는데요
매크로를 이용하면 셀의 지정된 크기대로 이미지 크기가 자동으로 변경되서 삽입시킬 수 있습니다.
메크로를 사용하기 위해 간단한 옵션 설정 후 사용해야 하는데요
상위 메뉴 중 파일을 선택합니다
파일 메뉴가 나오면 좌측 메뉴 중 옵션을 선택합니다.
Excel 옵션창이 뜨면 좌측에 나오는 여러 메뉴 중 보안 센터를 선택해주세요
그럼 우측에 보안센터에 관련된 항목들이 나열됩니다.
항목 중 보안 센터 설정 버튼을 클릭해주세요
보안 센터 팝업창입니다.
좌측 메뉴 중 매크로 설정을 선택합니다.
매크로 설정에서 "모든 매크로 포함(위험성 있는 코드가 실행될 수 있으므로 권장하지 않음)"을 선택 후 확인 버튼을 클릭합니다.
이제 매크로 사용준비가 되었습니다.
[Alt + F11] 키를 눌러 VB를 띄웁니다.
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 With ActiveSheet.Pictures.Insert(Pic).ShapeRange .LockAspectRatio = msoFalse .Height = Selection.Height - 4 .Width = Selection.Width - 4 .Left = Selection.Left + 2 .Top = Selection.Top + 2 End With End Sub
|
Microsoft Visual Basic for Applications 창에 붙여넣기 합니다.
이제 엑셀창으로 돌아와서 원하시는 셀의 크기로 늘려줍니다.
폼 양식에 맞는 셀크기로 지정하시면 되겠네요
이제 매크로 실행을 하기 위해 [Alt + F8]키를 눌러주세요
매크로 창이 뜹니다.
목록 중 insert_Pic 이름이 있을 건데요 선택 후 실행 버튼을 클릭합니다.
탐새기 창이 뜨면 삽입할 이미지가 위치한 경로로 이동 후 이미지를 선택합니다.
선택된 이미지가 셀 크기에 맞추어 삽입된것을 확인할 수 있습니다.
단 셀의 크기가 다시 변경되도 이미지는 변경되지 않습니다. 삽입 시 셀의 크기를 확인 후 이미지 사이즈가 조절되었기 때문이죠
이상 엑셀 사진 넣기 매크로 사용방법을 알아보았습니다.