Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    Dim 선택파일 As Variant
    Dim 파일형식 As String
    Dim 사진 As Object
    
    On Error Resume Next
    
        If Target.MergeCells Then
    
            파일형식 = "그림 파일(*.jpg;*.png), *.jpg;*.png"
            선택파일 = Application.GetOpenFilename(파일형식, Title:="그림 선택")
            
            If 선택파일 = False Then
                MsgBox "그림을 선택하지 않았습니다.", Title:="엑셀 바이블"
            Else
            
                Set 사진 = ActiveSheet.Pictures.Insert(선택파일)
            
                사진.Copy
                ActiveSheet.PasteSpecial Link:=False
                사진.Delete
                        
                With Selection.ShapeRange
                    .LockAspectRatio = msoFalse
                    .Top = Target.Top + 5
                    .Left = Target.Left + 5
                    .Height = Target.Height - 10
                    .Width = Target.Width - 10
                End With
                
            End If

        End If

End Sub
