윈도우




포인트순위 Top100


윈도우

유용한 정보 및 자료

  • 엑셀 사진 자동 삽입 메크로 [엑셀]
  • 보석 (IP: *.94.101.59)
    조회 수: 12073, 추천 수: 0/0, 2012.08.07 18:14:23
  • 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

엮인글 0 http://linfree.com/computer_windows/13777/445/trackback

댓글 0 ...

위지윅 사용
번호
제목
닉네임
6 엑셀 산산해 0 13079 2013.09.25
5 엑셀 보석 0 10700 2012.09.18
엑셀 보석 0 12073 2012.08.07
3 엑셀 보석 0 10519 2012.06.26
2 엑셀 보석 0 11173 2012.03.06
1 엑셀 보석 0 12167 2011.09.05
태그