[VBA] Image Adder 코드
sFileName 부분만 수정해서 쓰면 됨 Function ImageAdder(sFileName As String) '사진을 엑셀 자체에 포함시키는 모듈 - 출처 : https://answers.microsoft.com/ ko-kr/msoffice/forum/msoffice_ excel-mso_other-mso_2010/엑셀- 2010에서/f9410f2c-f50e-47e7- b3f5-866e872600c3 Application.ScreenUpdating = False Dim objPic As Object Set objPic = ActiveSheet.Pictures.Insert( sFileName).ShapeRange With objPic .LockAspectRatio = msoFalse .Height = Selection.Height - 10 .Width = Selection.Width - 10 .Left = Selection.Left .Top = Selection.Top End With ' Minor Update notes : 정확히 경계에 이미지를 붙여버리면 필터링 시에 사진이 섞이거나 복사 붙여넣기시 오류가 생기니까 그걸 좀 해결했음~ ' V3.011(181227) objPic.Select Selection.Copy ActiveSheet.Pictures.Paste. Select Selection.ShapeRange. IncrementLeft 5 Selection.ShapeRange. IncrementTop 5 objPic.Delete Application.ScreenUpdating = True End Function