PPT2000: Equation Editor Objects Printed Incorrectly on Handouts (222021)

WORKAROUND

To work around this problem, you can convert the object from an Equation Editor or MathType object to a PowerPoint drawing object. To do this, use one of the following methods.

Method 1: If You Have One or a Few Objects

Copy the original Equation Editor or MathType object and ungroup it to convert it to a PowerPoint drawing objects. To do this, follow these steps:

1. 
   
2. Select the Equation Editor object.
3. On the Edit menu, click Copy.
4. Drag the Equation Editor object off the slide.
5. On the Edit menu, click Paste.
6. Select the new object and click Ungroup on the Draw menu.
7. On the Draw menu, click Group.
8. Repeat these steps for each Equation Editor object in your presentation.

Method 2: If You Have Many Objects

Microsoft provides programming examples for illustration only, without warranty either expressed or implied. This includes, but is not limited to, the implied warranties of merchantability or fitness for a particular purpose. This article assumes that you are familiar with the programming language that is being demonstrated and with the tools that are used to create and to debug procedures. Microsoft support engineers can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific requirements. The following sample Visual Basic for Applications macro automates the procedure outlined in Method 1, making it easier to convert many Equation Editor objects in a presentation.

Sub Fix_Equations()
   Dim sld As Slide
   Dim sha As Shape
   Dim sha2 As Shape
   Dim tmr, tmr2 As Date
   Dim i, cnt As Long

   For Each sld In ActivePresentation.Slides
      ' Change to the next slide.
      ActiveWindow.View.Slide = sld

      ' Get the count.
      cnt = sld.Shapes.Count
      tmr = 0

      For i = 1 To cnt

         ' Get the next shape.
         Set sha = sld.Shapes(i)

         ' Is the shape an OLE object (EQNEDIT)?
         If sha.Type = msoEmbeddedOLEObject Then

            ' Copy the shape.
            sha.Select
            sha.Copy

            ' Move the original off the slide.
            sha.IncrementLeft 700

            ' Paste the shape.
            sld.Shapes.Paste

            ' Wait for the shape to be copied...1 second
            tmr = Now
            Do Until Now > (tmr + 0.00001)
            Loop

            ' Ungroup.
            sld.Shapes(cnt + 1).Ungroup.Select

            ' Group.
            ActiveWindow.Selection.ShapeRange.Group.Select
         End If
      Next i
   Next sld
End Sub