-
이미지를 엑셀 파일 자체에 삽입VB(A) 2015. 11. 18. 20:48
엑셀 자체에 이미지를 삽입해주는 코드
Option ExplicitSub InsertImage()Dim rngFile As Range 'A열 순환Dim SingleRange As RangeDim p As Object '이미지 개체Dim strFile As String '이미지 파일명Dim imgLeft As Single '이미지 왼쪽 위치Dim imgTop As Single '이미지 위쪽 위치Dim imgWidth As Single '이미지 폭Dim imgHeight As Single '이미지 높이Application.ScreenUpdating = FalseSet rngFile = Range("A2", Cells(Rows.Count, 1).End(3))'A열을 순환하며 이미지 삽입For Each SingleRange In rngFileOn Error Resume NextWith SingleRange'파일명 선언strFile = ThisWorkbook.Path & "\" & .Value & ".jpg"With .Offset(, 3)imgLeft = .Left + 1 '이미지 왼쪽 위치imgTop = .Top + 1 '이미지 위쪽 위치imgWidth = .Width - 2 '이미지 폭imgHeight = .Height - 2 '이미지 높이'이미지를 파일에 직접 삽입Set p = ActiveSheet.Shapes.AddPicture(Filename:=strFile, linktofile:=False, _savewithdocument:=True, Left:=imgLeft, Top:=imgTop, Width:=imgWidth, _Height:=imgHeight)'이미지가 없을 경우 No Image 출력If Err.Number <> 0 Then .Value = "No Image"End WithEnd WithOn Error GoTo 0NextApplication.ScreenUpdating = TrueEnd Subcs 'VB(A)' 카테고리의 다른 글
파일을 열지 않고 파일명 변경하는 매크로 (0) 2015.12.03 정규식 - 규칙의 일부가 있다가 없다가 할 때 원하는 부분 추출 (0) 2015.11.25 [정규식] 세자리마다 콤마 삽입 (0) 2015.11.18 정규식 - 숫자 주요 단위를 한글로 (4) 2015.11.14 정규식 - 조건에 맞게 분류하기 (0) 2015.11.13 댓글