Skip to content
컴퓨터잡담
2011.11.25 13:03

Excel VBA) 파일 이름에 따라 이미지 출력

조회 수 13327 추천 수 0 댓글 0
?

단축키

Prev이전 문서

Next다음 문서

크게 작게 위로 아래로 댓글로 가기 인쇄
?

단축키

Prev이전 문서

Next다음 문서

크게 작게 위로 아래로 댓글로 가기 인쇄

파일 이름에 따라 이미지 출력

해당 시트에 코드 삽입.



Option Explicit


Private Sub Worksheet_Change(ByVal Target As Range)

Dim StrFile As String

Dim StrFile1 As String

Dim StrFile2 As String

Dim StrFile3 As String


Application.ScreenUpdating = False


On Error GoTo MM


'Column = 1은 열위치를 말함. ( 1=A열, 2=B열 ...)

If Target.Column = 1 And Target.Row > 1 And Target.Value <> "" Then


    '파일경로+이미지 위치 지정(Target.Value는 셀의 내용)

    'StrFile = ThisWorkbook.Path & "\img\" & Target.Value & ".jpg"

    StrFile1 = ThisWorkbook.Path & "\img\" & Target.Value & "1.jpg"

    StrFile2 = ThisWorkbook.Path & "\img\" & Target.Value & "2.jpg"

    StrFile3 = ThisWorkbook.Path & "\img\" & Target.Value & "3.jpg"

    

    '현재 활성화된 시트에 선택된 이미지를 삽입

    ActiveSheet.Pictures.Insert(StrFile1).Select


    '이미지 위치지정

    With Selection

        .Top = Target.Offset(0, 3).Top

        .Left = Target.Offset(0, 3).Left

        .Width = Target.Offset(0, 3).Width

        .Height = Target.Offset(0, 3).Height

    End With

    

    ActiveSheet.Pictures.Insert(StrFile2).Select


    '이미지 위치지정

    With Selection

        .Top = Target.Offset(0, 4).Top

        .Left = Target.Offset(0, 4).Left

        .Width = Target.Offset(0, 4).Width

        .Height = Target.Offset(0, 4).Height

    End With

    

    ActiveSheet.Pictures.Insert(StrFile3).Select


    '이미지 위치지정

    With Selection

        .Top = Target.Offset(0, 5).Top

        .Left = Target.Offset(0, 5).Left

        .Width = Target.Offset(0, 5).Width

        .Height = Target.Offset(0, 5).Height

    End With

        

End If


Target.Offset(0, 1).Select

Exit Sub


MM:

MsgBox "입력하신 RN단자에 해당하는 그림이 없습니다.", , "경북동부행복센터-김병화"

Target.Select

End Sub


로그인 후 댓글쓰기가 가능합니다.

?

List of Articles
번호 분류 제목 날짜 조회 수
26 AutoHotKey ahk) autohotkey 엑셀(Excel)에서 행값 증가시키기 2013.10.30 26822
25 Excel Excel) 엑셀에서 셀 입력시 자동 추가글 넣기 file 2013.06.09 18058
24 Excel 현재 Excel 파일 이름을 셀에 삽입 2 2012.09.17 16074
23 Excel [excel] GET.CELL사용법 8 2012.07.16 19775
22 Excel PDF, EXCEL 파일 변환 1 2012.06.30 13567
21 Excel MS Office 2007 Excel 최근 문서 목록 삭제하기 1 2012.02.13 18176
20 Excel Excel Vba) 현재 셀에서 한줄내림 (activecell.offset(1,0).Select) 3 2012.01.05 24730
19 Excel Excel Vba) 셀의 행, 열(column, row) 주소 알아내기 또는 삽입하기 더불어 제어하기 2012.01.05 28609
18 Excel Excel) 엑셀 콤보박스 대화상자 목록지정하기 2011.12.21 25427
» 컴퓨터잡담 Excel VBA) 파일 이름에 따라 이미지 출력 4 2011.11.25 13327
16 컴퓨터잡담 Excel VBA) 선택값에 따라 결과값 전달하기 CASE문 1 4 2011.10.25 12182
15 컴퓨터잡담 Excel VBA (1): 셀 선택 및 변수 및 비활성시트 컨트롤하기 3 2011.10.24 19897
14 컴퓨터잡담 Excel VBA) DAO를 이용하여 엑셀문서 열지않고 데이타 가져오기 3 8 2011.10.23 15005
13 컴퓨터잡담 Excel VBA) Delete Column Excel VBA - 칼럼 지우기 2011.10.23 13682
12 컴퓨터잡담 Excel VBA)OpenDatabase 방법 [Excel 2003의 VBA 언어 참조] 3 2011.10.23 11253
11 컴퓨터잡담 eXCEL VBA)엑셀파일 열지않고 내용 불러오기 3 2011.10.23 21888
10 컴퓨터잡담 Excel VBA) 자주쓰는 함수모음 3 2011.10.17 17351
9 컴퓨터잡담 Excel VBA) 엑셀 데이터 범위 찾아내기 1 2011.10.14 12617
8 컴퓨터잡담 Excel VBA) 원하는 범위 지정한 뒤 복사하여 붙여넣기 2 2011.10.14 15468
7 컴퓨터잡담 Excel VBA) 자료모으기 2011.09.28 9408
Board Pagination Prev 1 2 Next
/ 2

http://urin79.com

우린친구블로그

sketchbook5, 스케치북5

sketchbook5, 스케치북5

나눔글꼴 설치 안내


이 PC에는 나눔글꼴이 설치되어 있지 않습니다.

이 사이트를 나눔글꼴로 보기 위해서는
나눔글꼴을 설치해야 합니다.

설치 취소