Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

The OLEObjects Collection

Public Sub AddCommandButton()     ActiveSheet.Shapes.AddOLEObject(ClassType:="Forms.CommandButton.1").name = "cmdTest"     With ActiveSheet.OLEObjects("cmdTest")         .Left = range("C1").Left         .Top = range("C4").Top     End With     ActiveSheet.OLEObjects("cmdTest").Object.Caption = "Click Me" End Sub