how to insert microsoft equation 3.0 with vba

[fer555]

I am trying to insert a microsoft equation 3.0 by using vba. Is it possible
to do that?
Please give me some hints.

Thanks

 

[Gary''s Student]

Straight from the Recorder:

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 11/8/2008 by James Ravenswood
'

'
ActiveSheet.OLEObjects.Add(ClassType:="Equation.3", Link:=False, _
DisplayAsIcon:=False).Activate
Range("A1").Select
End Sub