엑셀 이슈 관리 이미지 삽입

AngryQA | 2015-04-02 목요일 오전 11:10 | IT/VBA | 원본

가끔 BTS가 없는 환경에서 엑셀로 이슈를 관리할 경우

이미지 첨부하기가 힘들어서 만들어본 매크로입니다.

셀에 맞춰서 이미지 삽입 후 "위치와 크기 변함" 설정까지 해주는 친절한 녀석입니다 :D

Sub ins_issue()

Dim issueImage As Variant

issueImage = Application.GetOpenFilename _

 (filefilter:="Picture Files,*.jpg;*.bmp;*.tif;*.gif")

If issueImage = False Then

 Exit  Sub

End If

With ActiveSheet.Pictures.Insert(issueImage)

 .ShapeRange.LockAspectRatio  =  msoFalse

 .Height  =  Selection.Height

 .Width  =  Selection.Width

 .Left  =  Selection.Left

 .Top  =  Selection.Top

 .Placement  =  xlMoveAndSize

End With

End Sub

감사합니다.

Comments

단축키를 설정해 두어도 편하실거에요!

주석 추가

Sub ins_issue() '함수명 Dim issueImage As Variant '이미지를 담을 변수 선언

'탐색기를 열어 이미지를 여는 로직 issueImage = Application.GetOpenFilename _ (filefilter:="Picture Files,.jpg;.bmp;.tif;.gif") If issueImage = False Then Exit Sub End If

' 속성 한꺼번에 변경하는 로직(with 구문 활용) With ActiveSheet.Pictures.Insert(issueImage) '현재시트에 그림 삽입 .ShapeRange.LockAspectRatio = msoFalse '이미지 비율유지 여부 .Height = Selection.Height '이미지의 높이값을 현재 선택한 셀(Selection)과 동일한 값으로 설정 .Width = Selection.Width .Left = Selection.Left .Top = Selection.Top .Placement = xlMoveAndSize '이미지 속성중 셀크기변경시 같이 변경되도록 설정 End With

End Sub

감사합니다.

빈스윤 Beenbyoon | 2015-04-02 목요일 오후 3:4

--

주석 친절하구 굿!

일원동 너구리 | 2015-04-02 목요일 오후 3:5

--