Re: Macro for converting in-line pictures to floating pictures?

[Stuart Gibbons <stugib -at- gmail -dot- com>]

On 17/01/06, Bruce_Giddens -at- toyota -dot- com <Bruce_Giddens -at- toyota -dot- com> wrote:
> Does anybody have a Word VBA macro for converting in-line pictures to
> floating pictures?
> Thanks!
>

Haven't got time to test it out, but a pointer to the right place -
this is my macro to do the other way round - floating to inline (also
resizes to 100%) - to the image selected:

Sub PS_InlineShape()
    On Error Resume Next
    If Selection.ShapeRange.Count <> 1 Then
        MsgBox "This macro only works on single floating images you
have selected", vbOKOnly + vbInformation, "Image reset"
    Else
        On Error GoTo 0
        Selection.ShapeRange.ScaleWidth 1, True
        Selection.ShapeRange.ScaleHeight 1, True
        Selection.ShapeRange.ConvertToInlineShape
    End If
End Sub

The other way uses .ConvertToShape and applies to an InlineShape object.

Stuart
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

Now Shipping -- WebWorks ePublisher Pro for Word! Easily create online
Help. And online anything else. Redesigned interface with a new
project-based workflow. Try it today! http://www.webworks.com/techwr-l

Doc-To-Help 2005 now has RoboHelp Converter and HTML Source: Author
content and configure Help in MS Word or any HTML editor. No
proprietary editor! *August release. http://www.componentone.com/TECHWRL/DocToHelp2005

---
You are currently subscribed to TECHWR-L as archive -at- infoinfocus -dot- com -dot- 

To unsubscribe send a blank email to
techwr-l-unsubscribe -at- lists -dot- techwr-l -dot- com
or visit http://lists.techwr-l.com/mailman/options/techwr-l/archive%40infoinfocus.com

To subscribe, send a blank email to techwr-l-join -at- lists -dot- techwr-l -dot- com

Send administrative questions to lisa -at- techwr-l -dot- com -dot-  Visit
http://www.techwr-l.com/techwhirl/ for more resources and info.