Changing selected Inline Shape into a Shape with Wrap Format(wdWrapFront)

[andreas]

Word 2007, VBA

Dear Experts:

How can I change a selected Inline Shape into a Shape with Wrap Type
'wdWrapFront' using VBA?

Help is much appreciated. Thank you very much in advance. Regards,
Andreas

 

[Jay Freedman]

Word 2007, VBA

Dear Experts:

How can I change a selected Inline Shape into a Shape with Wrap Type
'wdWrapFront' using VBA?

Help is much appreciated. Thank you very much in advance. Regards,
Andreas

Sub x()
Dim oShp As Shape

If Selection.InlineShapes.Count > 0 Then
Set oShp = Selection.InlineShapes(1).ConvertToShape
oShp.WrapFormat.Type = wdWrapFront
End If
End Sub

--
Regards,
Jay Freedman
Microsoft Word MVP
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

 

[andreas]

Sub x()
    Dim oShp As Shape

    If Selection.InlineShapes.Count > 0 Then
        Set oShp = Selection.InlineShapes(1).ConvertToShape
        oShp.WrapFormat.Type = wdWrapFront
    End If
End Sub

--
Regards,
Jay Freedman
Microsoft Word MVP        FAQ:http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroupso
all may benefit.

Hi Jay,

that's it. Thank you very much for your professional help. Regards,
Andreas