Sub demo()
'works fine
Application.ScreenUpdating = False
Dim iShp As InlineShape
For Each iShp In ActiveDocument.InlineShapes
  With iShp.Range
            If iShp.Height > 6 Then
              iShp.LockAspectRatio = True
              iShp.Height = InchesToPoints(6)
                  If .Hyperlinks.Count = 1 Then
                    .Hyperlinks(1).Delete
                  End If
            End If
            If iShp.Width > 4 Then
              iShp.LockAspectRatio = True
              iShp.Width = InchesToPoints(4)
              If .Hyperlinks.Count = 1 Then
                  .Hyperlinks(1).Delete
              End If
            End If
  End With
Next
Application.ScreenUpdating = False
End Sub