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
Partager