엑셀
2012.08.07 18:14

엑셀 사진 자동 삽입 메크로

조회 수 17925 추천 수 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
번호 카테고리 제목 글쓴이 날짜 조회 수
40 유틸 SDFormmatter 설치 및 sd카드 포맷 방법(micro SD 카드 포맷을 완료 할 수 없습니다.) file 보석 2013.09.07 27961
39 유틸 CPUZ 포터블 무설치 버전입니다. file 보석 2013.09.07 16253
38 기타 원순철 감지기에 안걸리는 맵핵 file 보석 2013.09.02 16108
37 유틸 프록시 포터블 입니다. 간편하게 DNS 설정 변경하기 - DNS Jumper file 보석 2013.09.02 14101
36 유틸 파일질라 3.7.3 버전 file 보석 2013.08.29 13940
35 기타 오토캐드 설치 1: 5 2:Failed to load FNP_ACT_Installer.dll. 3:126 오류해결 보석 2013.02.25 20499
34 기타 xp,win7 raid구축하기 레이드0만들기 file 보석 2012.10.23 12988
33 게임 심즈3 치트키 보석 2012.10.14 17473
32 드라이버 ipTIME G054U2 / G054UA 드라이버 및 유틸리티 입니다. file 보석 2012.10.07 19458
31 엑셀 엑셀 시트(sheet) 이동/복사 이름충돌 해결방법[EXCEL] file 보석 2012.09.18 17312
30 드라이버 ipTIME 11n USB 무선랜카드 (V 3.2.1.0) 입니다. file 보석 2012.09.17 13602
29 크랙 윈도우 고스트 및 카리스마조 4 file 보석 2012.09.14 17546
28 유틸 포토샵 단축키 모음 4 file 보석 2012.09.12 19470
» 엑셀 엑셀 사진 자동 삽입 메크로 보석 2012.08.07 17925
26 유틸 USB 자동 동기화 프로그램 보석 2012.07.26 14867
25 엑셀 엑셀 짝수 셀 또는 홀수 셀만 더하기 보석 2012.06.26 14461
24 캐드 CAD 좌표 값이 자동으로 변하는 좌표 표시 선 만들기 보석 2012.03.27 14392
23 엑셀 엑셀 가로세로에 있는 글들을 세로열 한줄 정렬 file 보석 2012.03.06 15339
22 게임 카오스원 18 입니다. file 보석 2012.01.20 13594
21 유틸 LG XTICK USB 초기화 프로그램 file 보석 2012.01.18 15194
Board Pagination Prev 1 ... 2 3 4 ... 5 Next
/ 5