This VBA code is used to resize and reposition images in a worksheetThe code first defines a variable sh as a shape object It then loops through all shapes in the active worksheet using a For Each loo

Sub ResizeAndRepositionImages() On Error Resume Next Dim sh As Shape 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