Modifier le texte d'un bouton (Caption) dans une document [FAQ]

[ouskel'n'or]

Utiliser la propriété caption de l'objet OLEFormat

Code :

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