A Best solution for you
Sub PHOTO_RESIZING()
Dim obj As Object
Dim rngInsert As Range
Dim dblZoom As Double
If TypeName(Selection) = "Range" Then Exit Sub
Set obj = Selection
Set rngInsert = obj.TopLeftCell
Set rngInsert = rngInsert.MergeArea
Application.ScreenUpdating = False
rngInsert.Select
dblZoom = ActiveWindow.Zoom
ActiveWindow.Zoom = 100
With obj
.ShapeRange.LockAspectRatio = msoFalse
.Top = rngInsert.Top
.Left = rngInsert.Left
.Height = rngInsert.Height
.Width = rngInsert.Width
End With
ActiveWindow.Zoom = dblZoom
Application.ScreenUpdating = True
End Sub