윈도우




포인트순위 Top100


엑셀
2012.08.07 18:14

엑셀 사진 자동 삽입 메크로

(*.94.101.59) 조회 수 17225 추천 수 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
번호 카테고리 제목 글쓴이 날짜 조회 수
35 기타 오토캐드 설치 1: 5 2:Failed to load FNP_ACT_Installer.dll. 3:126 오류해결 보석 2013.02.25 19648
34 기타 xp,win7 raid구축하기 레이드0만들기 file 보석 2012.10.23 12644
33 게임 심즈3 치트키 보석 2012.10.14 16761
32 드라이버 ipTIME G054U2 / G054UA 드라이버 및 유틸리티 입니다. file 보석 2012.10.07 19049
31 엑셀 엑셀 시트(sheet) 이동/복사 이름충돌 해결방법[EXCEL] file 보석 2012.09.18 16586
30 드라이버 ipTIME 11n USB 무선랜카드 (V 3.2.1.0) 입니다. file 보석 2012.09.17 13207
29 크랙 윈도우 고스트 및 카리스마조 4 file 보석 2012.09.14 17139
28 유틸 포토샵 단축키 모음 4 file 보석 2012.09.12 19019
» 엑셀 엑셀 사진 자동 삽입 메크로 보석 2012.08.07 17225
26 유틸 USB 자동 동기화 프로그램 보석 2012.07.26 14513
25 엑셀 엑셀 짝수 셀 또는 홀수 셀만 더하기 보석 2012.06.26 13985
24 캐드 CAD 좌표 값이 자동으로 변하는 좌표 표시 선 만들기 보석 2012.03.27 13929
23 엑셀 엑셀 가로세로에 있는 글들을 세로열 한줄 정렬 file 보석 2012.03.06 14713
22 게임 카오스원 18 입니다. file 보석 2012.01.20 13267
21 유틸 LG XTICK USB 초기화 프로그램 file 보석 2012.01.18 14846
20 게임 크라이시스2 트레이너 crysis2 file 보석 2012.01.13 13334
19 게임 워3/카오스원 입니다~ file 보석 2011.12.10 11875
18 게임 원순철 스타 핵 감지기 최신 file 보석 2011.11.23 13960
17 크랙 윈도우7 서비스팩1 (Win7 SP1) 인증 file 보석 2011.10.27 21535
16 유틸 배드섹터 검사 및 치료 유틸 보석 2011.10.23 15106
Board Pagination Prev 1 ... 2 3 4 ... 5 Next
/ 5