Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. 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