Need to resize all equations in a document

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

G.R. Toro - 01 Nov 2007 00:21 GMT

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

Reply to this Message

Helmut Weber - 01 Nov 2007 05:10 GMT

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

Signature

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

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

Reply to this Message