VBA/Excel/Access/Word/Data Type/OLE Equation

Add OLE-Equation

   <source lang="vb">

Option Explicit Private Sub CommandButton1_Click()

 Sheets(1).OLEObjects.Add("Equation.3").Name = "new"
 With Sheets(1).OLEObjects("new")
   .Left = 10   "size and position
   .Top = 10
   .Width = 50
   .Height = 50
   .Activate   "activate OLE objekt
 End With
 Sheets(1).[a1].Activate

End Sub

</source>