Converting Picture format

I have this code, but i would like to format them as "tight"

anyone have any ideas how to do this?

I've tried .convertToShape then .WrapFormat.Type = wdTight but it says that it doesn't recognise .wrapformat, or it says converttoshape failed

Sub ResizeImages()

Dim iShape As Shape
Dim inlineShape As inlineShape

For Each iShape In ActiveDocument.Shapes
    With iShape
        If .Height <= .Width Then  'landscape
        .LockAspectRatio = False
        .Height = CentimetersToPoints(5.5)
        .Width = CentimetersToPoints(7.36)
        
        Else
        .LockAspectRatio = False
        .Height = CentimetersToPoints(7.36)
        .Width = CentimetersToPoints(5.5)
        End If
    End With
Next

For Each inlineShape In ActiveDocument.InlineShapes
    With inlineShape
        If .Height <= .Width Then  'landscape
        .LockAspectRatio = False
        .Height = CentimetersToPoints(5.5)
        .Width = CentimetersToPoints(7.36)
        Else
        .LockAspectRatio = False
        .Height = CentimetersToPoints(7.36)
        .Width = CentimetersToPoints(5.5)
        End If
    End With
Next
End Sub

Any ideas?!