Mega Code Archive

 

Categories / VisualBasic Script / Data Type

 

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