로그인

검색

엑셀
2012.08.07 18:14

엑셀 사진 자동 삽입 메크로

조회 수 18212 추천 수 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
번호 분류 제목 글쓴이 날짜 조회 수
80 유틸 LG XTICK USB 초기화 프로그램 file 보석 2012.01.18 15349
79 게임 카오스원 18 입니다. file 보석 2012.01.20 13764
78 엑셀 엑셀 가로세로에 있는 글들을 세로열 한줄 정렬 file 보석 2012.03.06 15746
77 캐드 CAD 좌표 값이 자동으로 변하는 좌표 표시 선 만들기 보석 2012.03.27 14782
76 엑셀 엑셀 짝수 셀 또는 홀수 셀만 더하기 보석 2012.06.26 14670
75 유틸 USB 자동 동기화 프로그램 보석 2012.07.26 15160
» 엑셀 엑셀 사진 자동 삽입 메크로 보석 2012.08.07 18212
73 유틸 포토샵 단축키 모음 4 file 보석 2012.09.12 19651
72 크랙 윈도우 고스트 및 카리스마조 4 file 보석 2012.09.14 17720
71 드라이버 ipTIME 11n USB 무선랜카드 (V 3.2.1.0) 입니다. file 보석 2012.09.17 13781
70 엑셀 엑셀 시트(sheet) 이동/복사 이름충돌 해결방법[EXCEL] file 보석 2012.09.18 17484
69 드라이버 ipTIME G054U2 / G054UA 드라이버 및 유틸리티 입니다. file 보석 2012.10.07 19595
68 게임 심즈3 치트키 보석 2012.10.14 17836
67 기타 xp,win7 raid구축하기 레이드0만들기 file 보석 2012.10.23 13288
66 기타 오토캐드 설치 1: 5 2:Failed to load FNP_ACT_Installer.dll. 3:126 오류해결 보석 2013.02.25 20738
65 유틸 파일질라 3.7.3 버전 file 보석 2013.08.29 14148
64 유틸 프록시 포터블 입니다. 간편하게 DNS 설정 변경하기 - DNS Jumper file 보석 2013.09.02 14278
63 기타 원순철 감지기에 안걸리는 맵핵 file 보석 2013.09.02 16331
62 유틸 CPUZ 포터블 무설치 버전입니다. file 보석 2013.09.07 16453
61 유틸 SDFormmatter 설치 및 sd카드 포맷 방법(micro SD 카드 포맷을 완료 할 수 없습니다.) file 보석 2013.09.07 28300
Board Pagination Prev 1 2 3 4 ... 5 Next
/ 5