윈도우




포인트순위 Top100


엑셀
2012.08.07 18:14

엑셀 사진 자동 삽입 메크로

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

단축키

Prev이전 문서

Next다음 문서

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

단축키

Prev이전 문서

Next다음 문서

크게 작게 위로 아래로 댓글로 가기 인쇄
Sub insert_A_Picture_In_Folder()

    Dim rngC As Range                       '현재 선택셀 넣을 변수
    Dim strPath As String                    '경로를 넣을 변수
   
    Set rngC = Selection                      '현재셀을 개체변수에 넣음
    ChDir ThisWorkbook.Path & "\"     '폴더의 디렉토리를 변경
   
    strPath = Application.Dialogs(xlDialogInsertPicture).Show  '파일창 띄움
    If strPath = "False" Then Exit Sub  '취소선택 시 중단
   
    With Selection                                 '선택된 그림파일에서
        .ShapeRange.LockAspectRatio = msoFalse   '좌우고정비율 해제
        .Left = rngC.Left + 2                     '그림왼쪽위치를 현재셀 왼쪽 + 2 위치에
        .Top = rngC.Top + 2                    '그림위쪽 위치를 현재셀 윗쪽 + 2 위치에
        .Height = rngC.Height - 4              '그림 높이를 현재셀 -4 크기로
        .Width = rngC.Width - 4               '그림 폭을 현재셀 -4 크기로
    End With
   
    Set rngC = Nothing                           '개체변수 초기화(메모리 비우기)
End Sub

윈도우

유용한 정보 및 자료

List of Articles
번호 카테고리 제목 글쓴이 날짜 조회 수
39 유틸 CPUZ 포터블 무설치 버전입니다. file 보석 2013.09.07 16213
38 기타 원순철 감지기에 안걸리는 맵핵 file 보석 2013.09.02 16071
37 유틸 프록시 포터블 입니다. 간편하게 DNS 설정 변경하기 - DNS Jumper file 보석 2013.09.02 14092
36 유틸 파일질라 3.7.3 버전 file 보석 2013.08.29 13923
35 기타 오토캐드 설치 1: 5 2:Failed to load FNP_ACT_Installer.dll. 3:126 오류해결 보석 2013.02.25 20438
34 기타 xp,win7 raid구축하기 레이드0만들기 file 보석 2012.10.23 12982
33 게임 심즈3 치트키 보석 2012.10.14 17385
32 드라이버 ipTIME G054U2 / G054UA 드라이버 및 유틸리티 입니다. file 보석 2012.10.07 19451
31 엑셀 엑셀 시트(sheet) 이동/복사 이름충돌 해결방법[EXCEL] file 보석 2012.09.18 17301
30 드라이버 ipTIME 11n USB 무선랜카드 (V 3.2.1.0) 입니다. file 보석 2012.09.17 13574
29 크랙 윈도우 고스트 및 카리스마조 4 file 보석 2012.09.14 17524
28 유틸 포토샵 단축키 모음 4 file 보석 2012.09.12 19462
» 엑셀 엑셀 사진 자동 삽입 메크로 보석 2012.08.07 17906
26 유틸 USB 자동 동기화 프로그램 보석 2012.07.26 14858
25 엑셀 엑셀 짝수 셀 또는 홀수 셀만 더하기 보석 2012.06.26 14450
24 캐드 CAD 좌표 값이 자동으로 변하는 좌표 표시 선 만들기 보석 2012.03.27 14336
23 엑셀 엑셀 가로세로에 있는 글들을 세로열 한줄 정렬 file 보석 2012.03.06 15302
22 게임 카오스원 18 입니다. file 보석 2012.01.20 13590
21 유틸 LG XTICK USB 초기화 프로그램 file 보석 2012.01.18 15185
20 게임 크라이시스2 트레이너 crysis2 file 보석 2012.01.13 13677
Board Pagination Prev 1 ... 2 3 4 ... 5 Next
/ 5