Hi Babydoc,

There's no way to do this with the macro recorder, or much else to do
with floating graphics. You have to write the macro directly in the
editor.

If you just want to convert the picture to text-wrapped (floating),
all you need is this:

   If Selection.InlineShapes.Count > 0 Then
       Selection.InlineShapes(1).ConvertToShape
   End If

If you also want to change the size, position, or other
characteristics of the picture once it's floating, you need to assign
the result of the ConvertToShape method to a Shape object so you can
apply the changes to that object, for example:

   Dim oShp As Shape
   If Selection.InlineShapes.Count > 0 Then
       Set oShp = Selection.InlineShapes(1).ConvertToShape
       With oShp
           .LockAspectRatio = msoTrue
           .Width = InchesToPoints(1)
           .WrapFormat.Type = wdWrapSquare
           .RelativeVerticalPosition = _
               wdRelativeVerticalPositionParagraph
           .Top = 6 ' points
       End With
   End If

--
Regards,
Jay Freedman
Microsoft Word MVP         FAQ: http://word.mvps.org