Convert equation objects to inline objects

sumjoh · #1 01-05-2013, 10:12 AM

Hi, I'm using the following macro to convert floating equation objects that appear as display equations (not run on with text) to inline objects

Code:

Sub ConvertToInline()
Dim i As Integer
For i = ActiveDocument.Shapes.Count To 1 Step -1
  Select Case ActiveDocument.Shapes(i).Type
    Case msoEmbeddedOLEObject, msoLinkedOLEObject, msoLinkedPicture, msoOLEControlObject, msoPicture, _
      wdInlineShapePicture, wdInlineShapeLinkedPicture: ActiveDocument.Shapes(i).ConvertToInlineShape
  End Select
Next i
End Sub

The macro seems to work fine, but after conversion the text that precedes some of the equations are run on at the end of the equations, which is not what I want. I need the equations to remain on separate lines by themselves (i.e. as display equations).

Can someone help with this?

macropod · #2 01-29-2013, 08:38 PM

Hi sumjoh,

When a floating shape is converted to in-line, its position on the page is determined by the position of the shape's anchor prior to conversion. Thus, if the anchor is at the start of a paragraph (which is the default), the in-line shape will be positioned at the start of that paragraph. Accordingly, you'll need to move the anchor before converting, or the in-line shape after converting.

Also, since wdInlineShapePicture and wdInlineShapeLinkedPicture are already in-line, you can't convert them to that wrap format. Those references may as well be deleted.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Can't Shift Objects Off Sheet - What is that?	namedujour	Excel	5	05-13-2011 06:30 AM
Shrinking objects in powerpoint	lrae	PowerPoint	0	03-01-2011 10:36 AM
Shape Objects	Space Cowboy	PowerPoint	4	10-04-2010 07:14 PM
NOprintable objects	shadowbat	Drawing and Graphics	0	07-05-2010 10:13 PM
Group objects in Office	Alfie	Drawing and Graphics	3	04-16-2009 10:24 AM