Utiliser la propriété caption de l'objet OLEFormat
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Sub test()
Dim Ctr As Object
    Set Ctr = ActiveDocument.Shapes.AddOLEControl _
        (ClassType:="Forms.CommandButton.1")
    Ctr.OLEFormat.Object.Caption = "Ça, c'est mon bouton !"
End Sub