Créer à partir d'un bouton

Sub MyButton()
Dim Bouton As OLEObject
Dim Target As Range
Dim MyWidth As Integer, MyHeight As Integer

MyWidth = 150
MyHeight = 25

Set Target = ActiveCell

        Set Bouton = ActiveSheet.OLEObjects.Add(ClassType:='Forms.CommandButton.1', Left:=Target.Left, Top:=Target.Top, Width:=MyWidth, Height:=MyHeight)
        With Bouton
        .Name = 'MyButton'
            With .Object
                With .Font
                  .Name = 'Arial'
                  .Size = 8
                End With
              .Caption = 'Hello XLD'
            End With
        End With
End Sub

Cliquez pour agrandir...