[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 : 정확히 경계에 이미지를 붙여버리면 필터링 시에 사진이 섞이거나 복사 붙여...