Sometimes, the sizes of the Mathtype objects will change randomly. It is very troublesome to adjust each object back to 100%. The following is the VBA for rescaling all Mathtype objects back to 100%.
(Caution: The macro was built and tested many times by myself. However, I cannot assure it works well in all situations. Please save a copy before running this macro.)
Sub EqMathtype_100()
'
' EqMathtype_100 Macro
'
'
Dim i As Integer
Dim total As Integer
total = ActiveDocument.InlineShapes.Count
i = 0
For Each s In ActiveDocument.InlineShapes
i = i + 1
On Error Resume Next
Application.StatusBar = "Progress: " & i & " of " & total
If s.Type = msoAutoShape Then
If s.OLEFormat.ClassType = "Equation.DSMT4" Then
With s
.ScaleHeight = 100
.ScaleWidth = 100
End With
End If
End If
Next
End Sub
To use this macro, you need
When you need to use this macro next time, just press Alt+F8, find the name of this macro and run it. (Do not need to repeat Step 1 to 4)
By the way, if you are still using Equation 3.0, just replace "Equation.DSMT4" by "Equation.3".