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

Add OLE-Equation

 
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