Macro qui crée et renomme un controle

**k-eisti** · 04/06/2007, 13h21

Bonjour a tous ,

je suis entrain de créer une fonction " Workbook_Open()" qui lance mes macro a l'ouverture du classeur , et comme je doit créer des controles sur mes feuilles j'ai crée cette Macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Sub bouton()
'    ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
        , DisplayAsIcon:=False, Left:=546.75, Top:=14.25, Width:=72, Height:= _
        24).Select
    Selection.ShapeRange.IncrementLeft -28.5
    Selection.ShapeRange.IncrementTop -9.75
End Sub

cette Macro fonctionne bien mais je veux renemmer le boutton crée et je ne sais pas commen le faire
Merci de m'aider a trouver la soulution

**Maxence HUBICHE** · 04/06/2007, 13h30

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Sub bouton()
dim obj as OleObject
set obj=    ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False _
        , DisplayAsIcon:=False, Left:=546.75, Top:=14.25, Width:=72, Height:= _
        24)
obj.Select
obj.name="toto"
    Selection.ShapeRange.IncrementLeft -28.5
    Selection.ShapeRange.IncrementTop -9.75
End Sub

**k-eisti** · 04/06/2007, 13h39

Merci Maxence HUBICHE

J'ai rajouté

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
obj.Select
obj.name="toto"

mais sa ne marche toujours pas

**Maxence HUBICHE** · 04/06/2007, 13h51

Ca veut dire quoi
"Ca marche pas ?"

**k-eisti** · 04/06/2007, 15h48

désolé j'été pas claire dans ma dernière réponse , cette macro fonctionne mais elle change le nom dans la propriété (Name) , et moi je veut changer la nom dans le propriété (Caption) pour qu'il soit visible a l'utilisateur

jai met

Code :

Sélectionner tout - Visualiser dans une fenêtre à part