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

    Dim ¼±ÅÃÆÄÀÏ As Variant
    Dim ÆÄÀÏÇü½Ä As String
    
    On Error Resume Next
    

    
            ÆÄÀÏÇü½Ä = "±×¸² ÆÄÀÏ(*.jpg;*.png), *.jpg;*.png"
            ¼±ÅÃÆÄÀÏ = Application.GetOpenFilename(ÆÄÀÏÇü½Ä, Title:="±×¸² ¼±ÅÃ")
            
            If ¼±ÅÃÆÄÀÏ = False Then
                MsgBox "±×¸²À» ¼±ÅÃÇÏÁö ¾Ê¾Ò½À´Ï´Ù.", Title:="±×¸² »ðÀÔ"
            Else
            
                ActiveSheet.Pictures.Insert(¼±ÅÃÆÄÀÏ).Select
            
                With ActiveSheet.Shapes(Selection.Name)
                    .LockAspectRatio = False
                    .Top = Target.Top
                    .Left = Target.Left
                    .Height = Target.Height
                    .Width = Target.Width
                    .Placement = xlMoveAndSize
                End With
        
            End If

End Sub