VBA Code to Resize and Reposition Images in Excel Worksheet

Sub ResizeImages()

Dim sh As Shape

On Error Resume Next

For Each sh In ActiveSheet.Shapes If sh.TopLeftCell.Address = '$L$9' Or sh.TopLeftCell.Address = '$L$10' Or sh.TopLeftCell.Address = '$L$11' Or sh.TopLeftCell.Address = '$L$12' Or sh.TopLeftCell.Address = '$L$13' Or sh.TopLeftCell.Address = '$L$14' Or sh.TopLeftCell.Address = '$L$15' Or sh.TopLeftCell.Address = '$L$16' Then sh.Height = 87.874015748 sh.Width = 87.874015748 sh.Left = sh.TopLeftCell.Left + (sh.TopLeftCell.Width - sh.Width) / 2 sh.Top = sh.TopLeftCell.Top + (sh.TopLeftCell.Height - sh.Height) / 2 sh.LockAspectRatio = msoFalse End If Next sh

End Sub