[펌] 엑셀 그림크기 자동조절 삽입 소스

수십장의 그림파일, 게다가

제각각에 거대한 크기의 이미지에 놀라며 멍때리고 있다가

정신줄 다시 잡고 지식인 검색하다 찾은 매크로설정방법

인데 진짜 유용했다.♡_♡

매크로는 안써봤는데, 신세계가 열리는 기분이었음.

진짜 이분 최고임-_-b 

눈물없인 상상할 수 없던 노가다를!!  마우스 우클릭 몇번으로 해결!

이미지를 같은 양식의 엑셀에 수없이 반복해야할 때 진짜 유용.

일단 지식인님 블로그주소:

http://blog.naver.com/rosa0189/60141785139

출처: http://blog.naver.com/rosa0189/60141785139

매크로설정방법

선택한영역에 맟추어 가로 세로 비율 유지해서 넣는 방법 입니다.

Sub InsertPicture()

Dim iRange As Range
Dim strMessage As String
Dim Sht As Worksheet
Dim sRow As Integer, sColumn As Integer
Dim CRow As Integer, CColumn As Integer
Dim douWid As Integer, douHei As Integer

Set Sht = ActiveSheet
Set iRange = Selection


    strMessage = Application.GetOpenFilename(filefilter:="picture(*.JPG;*.GIF;*.BMP;*.PNG),*.JPG;*.GIF;*.BMP;*.PNG", _
    Title:="선택된 셀에 삽입할 사진을 선택하세요")
    If strMessage = "False" Then
        MsgBox "사진이 선택되지 않았습니다.", 64, "Error"
        Exit Sub
    End If

    sRow = iRange.Row '// 현재셀의 행
    sColumn = iRange.Column   '// 현재셀의 열

    CColumn = iRange.Columns.Count    '// 사진을 넣을셀의 열갯수
    CRow = iRange.Rows.Count  '// 사진을 넣을셀의 행갯수

        douWid = Abs(Cells(sRow, sColumn + CColumn).Left - iRange.Left) - 4 ' 사진의 가로크기 구함
        douHei = Abs(Cells(sRow + CRow, sColumn).Top - iRange.Top) - 4 ' 사진의 세로크기 구함



        With Sht.Pictures.Insert(strMessage)    '// 사진을 셀에 넣음
'            .ShapeRange.LockAspectRatio = msoFalse            '그림 좌우고정비율 해제
            If douWid / .Width < douHei / .Height Then
                .Width = douWid    '// 가로 넓이보다 4작게
            Else
                .Height = douHei   '// 세로 넓이보다 4작게
            End If
            If douWid - .Width < douHei - .Height Then
                .Top = iRange.Top + ((douHei - .Height) / 2) + 2 ' 사진의 세로 위치를 셀보다 2 크게
                .Left = iRange.Left + 2 ' 사진의 가로 위치를 셀보다 2크게
            Else
                .Top = iRange.Top + 2 ' 사진의 세로 위치를 셀보다 2 크게
                .Left = iRange.Left + ((douWid - .Width) / 2) + 2 ' 사진의 가로 위치를 셀보다 2크게
            End If
        End With
End Sub

혹 적용이 어렵거나, 이해가 잘 안되시면 아래로 메일 주세요

단 본 질문 이외에 추가적인 질문은 사양합니다. 이점 양해바랍니다.

<< 클릭 e-Mail 보내기

왜 나한테 이걸? 뭐 이런생각에

짜증나고 신경질난다고 승질부려봐야 소용없다.

요새 화내지 못해 안달난 사람처럼 구는데, 자기 감정조절도 못하면서 남탓만 하는거 그만하자.

일단 달린 머리니 이렇게 잔머리 굴려서라도 쓰면 좋지뭐.

어린애처럼 맘대로 안된다고 징징대지 말자.