No error but no output

Hi, Mukesh,

maybe give this macro a run:

Sub ResizePictures()
Dim pic As Shape
Dim ws As Worksheet
Dim sngT As Single

Set ws = ActiveSheet
ws.Range("g:g").ColumnWidth = 15.43
sngT = 10

For Each pic In ws.Shapes
  If pic.Type = msoPicture Then
    With pic
      If Abs(.Left - Range("g1").Left) < sngT Then
        If InStr(1, .Name, "Butt") = 0 Then
          .LockAspectRatio = msoFalse
          .Width = Application.CentimetersToPoints(1.85)
          .Height = Application.CentimetersToPoints(2.38)
          .Left = .TopLeftCell.Left
          .Top = .TopLeftCell.Top
          Rows(.TopLeftCell.Row).RowHeight = .Height
        End If
      End If
    End With
  End If
Next pic
        
End Sub

And maybe resize the pictures and give the rows a different RowHeight before running the code.

Ciao,
Holger