엑셀 사진작업

[담주]

(cimon)엑셀 사진넣기 메크로 쉬어가는 페이지

2013/06/28 12:52

http://blog.cimon.co.kr/80192916619

전용뷰어 보기

엑셀 사용중 사진넣기 메크로에 관한 수식을 올리니 한번 따라해보시기 바랍니다.

하는 방법은

alt + F11 을 누르면

아래그림과같은 창이나오는데요.

그림과같이 위에 삽입 > 모듈을 누릅니다

그리고

Sub ins_Pic()

    Dim myPic   As Variant

    myPic = Application.GetOpenFilename _
                    (filefilter:="Picture Files,*.jpg;*.bmp;*.tif;*.gif")
    If myPic = False Then
        Exit Sub
    End If
     With ActiveSheet.Pictures.Insert(myPic).ShapeRange
        .LockAspectRatio = msoFalse
        .Height = Selection.Height
        .Width = Selection.Width
        .Left = Selection.Left
        .Top = Selection.Top
    End With

End Sub

위의 식을 붙여넣기 합니다.

그다음에

저창을 끄고 나가서

아까 병합한 셀을 클릭합니다.

그리고

alt + F8 을 누르면

매크로창이 열리는데요

ins pic 이거 실행하셔서

그다음엔 그림삽입하라는 지시에 맞춰 그림을 삽입하면 됩니다.

[출처] (cimon)엑셀 사진넣기 메크로|작성자 kdt_cimon