엑셀- 셀에 맞취 사진 넣기 매크로

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

 

엑셀에_사진넣기.txt

 

사용방법 : 셀지정 Alt + F8 실행

엑셀에_사진넣기.txt

0.0MB