Add OLE-Equation : OLE Equation « Data Type « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Data Type
3. 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

 

Related examples in the same category