로그인

검색

엑셀
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



윈도우

유용한 정보 및 자료

  1. SDFormmatter 설치 및 sd카드 포맷 방법(micro SD 카드 포맷을 완료 할 수 없습니다.)

    Date2013.09.07 Category유틸 By보석 Views28300
    Read More
  2. CPUZ 포터블 무설치 버전입니다.

    Date2013.09.07 Category유틸 By보석 Views16454
    Read More
  3. 원순철 감지기에 안걸리는 맵핵

    Date2013.09.02 Category기타 By보석 Views16331
    Read More
  4. 프록시 포터블 입니다. 간편하게 DNS 설정 변경하기 - DNS Jumper

    Date2013.09.02 Category유틸 By보석 Views14278
    Read More
  5. 파일질라 3.7.3 버전

    Date2013.08.29 Category유틸 By보석 Views14148
    Read More
  6. 오토캐드 설치 1: 5 2:Failed to load FNP_ACT_Installer.dll. 3:126 오류해결

    Date2013.02.25 Category기타 By보석 Views20738
    Read More
  7. xp,win7 raid구축하기 레이드0만들기

    Date2012.10.23 Category기타 By보석 Views13289
    Read More
  8. 심즈3 치트키

    Date2012.10.14 Category게임 By보석 Views17836
    Read More
  9. ipTIME G054U2 / G054UA 드라이버 및 유틸리티 입니다.

    Date2012.10.07 Category드라이버 By보석 Views19595
    Read More
  10. 엑셀 시트(sheet) 이동/복사 이름충돌 해결방법[EXCEL]

    Date2012.09.18 Category엑셀 By보석 Views17484
    Read More
  11. ipTIME 11n USB 무선랜카드 (V 3.2.1.0) 입니다.

    Date2012.09.17 Category드라이버 By보석 Views13781
    Read More
  12. 윈도우 고스트 및 카리스마조

    Date2012.09.14 Category크랙 By보석 Views17721
    Read More
  13. 포토샵 단축키 모음

    Date2012.09.12 Category유틸 By보석 Views19652
    Read More
  14. 엑셀 사진 자동 삽입 메크로

    Date2012.08.07 Category엑셀 By보석 Views18212
    Read More
  15. USB 자동 동기화 프로그램

    Date2012.07.26 Category유틸 By보석 Views15167
    Read More
  16. 엑셀 짝수 셀 또는 홀수 셀만 더하기

    Date2012.06.26 Category엑셀 By보석 Views14670
    Read More
  17. CAD 좌표 값이 자동으로 변하는 좌표 표시 선 만들기

    Date2012.03.27 Category캐드 By보석 Views14782
    Read More
  18. 엑셀 가로세로에 있는 글들을 세로열 한줄 정렬

    Date2012.03.06 Category엑셀 By보석 Views15746
    Read More
  19. 카오스원 18 입니다.

    Date2012.01.20 Category게임 By보석 Views13764
    Read More
  20. LG XTICK USB 초기화 프로그램

    Date2012.01.18 Category유틸 By보석 Views15349
    Read More
Board Pagination Prev 1 ... 2 3 4 ... 5 Next
/ 5