본문 바로가기

Everything

엑셀에서 도형의 크기에 맞게 그림 불러오기

반응형


그림파일의 위치를 변경하거나 삭제해도 엑셀에 그림이 남아있습니다.


떠도는 모듈은 사진이 남지를 않아 만들었습니다.


1. 매크로 저장법


1. 엑셀 실행하신후 단축키 alt + f11




2. 삽입메뉴 > 모듈 클릭


3. 내용 입력 후 닫기 하시면 됩니다.

Sub love()

'

' love 매크로

'

' 바로 가기 키: Ctrl+q

'

Dim myPic   As Variant

 

    myPic = Application.GetOpenFilename _

                    (filefilter:="Picture Files,*.jpg;*.bmp;*.tif;*.gif")

    If myPic = False Then

        Exit Sub

    End If

                    

    With Selection.ShapeRange.Fill

        .Visible = msoTrue

        .UserPicture myPic

        .TextureTile = msoFalse

    End With

End Sub






사용법


1. 도형을 선택한후 단축키로 등록된 ctrl + q 누릅니다.

2. 그림 선택창에서 그림선택 

3. 끝~