Sub Demo()
Application.ScreenUpdating = False
Dim iShp As InlineShape
For Each iShp In ActiveDocument.InlineShapes
  With iShp
    .LockAspectRatio = True
    If .Range.Information(wdWithInTable) = True Then
      If .Range.Cells(1).PreferredWidthType = wdPreferredWidthPoints Then
        .Width = .Range.Cells(1).Width
        If .Range.Cells(1).HeightRule = wdRowHeightExactly Then
          If .Height > .Range.Cells(1).Height Then
            .Height = .Range.Cells(1).Height
          End If
        End If
      End If
    End If
  End With
Next
Application.ScreenUpdating = True
End Sub