어디서 하나 줏어서 쓰고 있는 매크로 인데

저는 사용이 잘 되다가 다른 사람한테 이메일로 엑셀을 보내서 열었을 시 사진들이 엑박이 뜹니다...

해결 방안좀 알려주시면 감사하곘습니다..ㅠ

 

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