Need to resize all equations in a document

[G.R. Toro]

Hi,

I need to resize all equations in a large document and I am trying to
automate the process with vba. I guess this could be done by scaling the
entire graphic by 80% or by emulating the Size|Define dialog one gets within
equation editor, although I prefer the latter because it provides more
flexibility.

Any suggestions?

Thanks,

Gabriel

 

[Helmut Weber]

Hi "G.R. Toro",

I don't think you can access
an equation editor object programmatically,
because, as far as I know, it is a stripped off version
of a third party product (MathType).

Things may be different if you buy a full version.

If your equation is a shape, then

Dim oShp As Shape
For Each oShp In ActiveDocument.Shapes
If oShp.OLEFormat.ClassType = "Equation.3" Then
' oshp.Height = whatever
End If
Next


--
Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"