로그인

검색

엑셀
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. 엑셀 두개의 조건이 같은 값을 찾아오기

    Date2015.03.02 Category엑셀 By보석 Views964
    Read More
  2. 엑셀 수식이 되지 않을때 (엑셀수식이안됨)

    Date2014.10.22 Category엑셀 By보석 Views3593
    Read More
  3. [엑셀] 엑셀 자료 행,열바꾸기

    Date2014.05.15 Category엑셀 By산산해 Views8237
    Read More
  4. 엑셀 앞글자만 따오기

    Date2014.04.30 Category엑셀 By보석 Views9112
    Read More
  5. 엑셀 앞글자 지우기

    Date2014.04.30 Category엑셀 By보석 Views8656
    Read More
  6. 엑셀 한셀 앞글자 4번째 까지 지우기

    Date2014.04.30 Category엑셀 By보석 Views8866
    Read More
  7. 엑셀 원하는 글자만 남기기, 이름보안 ex)김**

    Date2013.11.15 Category엑셀 By산산해 Views23775
    Read More
  8. 엑셀 바꾸기 기능 활용 (원하는 글자 만 지우기, 덧붙이기)

    Date2013.11.15 Category엑셀 By산산해 Views22145
    Read More
  9. 엑셀 행과열 동시에 틀고정하기

    Date2013.11.15 Category엑셀 By산산해 Views20955
    Read More
  10. 엑셀 초록색 세모

    Date2013.10.15 Category엑셀 By산산해 Views22787
    Read More
  11. 엑셀 2개 이상 셀의 데이터를 하나의 셀에 병합하기

    Date2013.10.15 Category엑셀 By산산해 Views23390
    Read More
  12. 엑셀 최근문서 저장위치 찾기 (Avafind다운)

    Date2013.09.26 Category엑셀 By산산해 Views24340
    Read More
  13. 엑셀 뷰어 다운로드 Excel Viewer

    Date2013.09.25 Category엑셀 By산산해 Views17511
    Read More
  14. 엑셀 시트(sheet) 이동/복사 이름충돌 해결방법[EXCEL]

    Date2012.09.18 Category엑셀 By보석 Views17484
    Read More
  15. 엑셀 사진 자동 삽입 메크로

    Date2012.08.07 Category엑셀 By보석 Views18212
    Read More
  16. 엑셀 짝수 셀 또는 홀수 셀만 더하기

    Date2012.06.26 Category엑셀 By보석 Views14670
    Read More
  17. 엑셀 가로세로에 있는 글들을 세로열 한줄 정렬

    Date2012.03.06 Category엑셀 By보석 Views15746
    Read More
  18. 엑셀2007에서 행이나 열삽입시 '개체를 시트 밖으로 이동할 수 없습니다'

    Date2011.09.05 Category엑셀 By보석 Views17109
    Read More
Board Pagination Prev 1 Next
/ 1