Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.Dialogs(xlDialogInsertPicture).Show
With Selection
.ShapeRange.LockAspectRatio = msoFalse
.Width = Target.Width
.Height = Target.Height
.Placement = 1
.PrintObject = True
End With
End Sub