엑셀 2010 이상 이미지 삽입

엑셀이 2010 넘어서면서 이미지 삽입 방식이 직접 삽입이 아니라 링크 방식으로 바뀌면서

내 PC에서는 보이지만 상대 PC에서는 안 보이는 불상사가 생겼다.

이 코드는 삽입한 이미지의 링크를 제거하고 문서에 포함시키는 매크로

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    Dim openFiles As Variant
    Dim strJpg As String
    Dim p As Object
    
    With Target
        If .Count > 1 Then Exit Sub
        If .Column <> 16 Then Exit Sub
    End With
    
    Application.ScreenUpdating = False
    
    strJpg = "그림파일 (*.jpg*), * .jpg * "
    openFiles = Application.GetOpenFilename(filefilter:=strJpg, Title:="파일 선택", MultiSelect:=False)
    
    If TypeName(openFiles) = "Boolean" Then Exit Sub
    
    Set p = ActiveSheet.Pictures.Insert(openFiles)
    
    With p
        .Copy
        ActiveSheet.PasteSpecial link:=False
        With Selection.ShapeRange
            .LockAspectRatio = msoFalse
            .Height = Target.Height - 2
            .Width = Target.Width - 2
            .Left = Target.Left + 1
            .Top = Target.Top + 1
        End With
        
        .Delete
    End With
    
    Application.ScreenUpdating = True
End Sub

불용결정요구서.xlsm