Suppression, effacer boutons....
Le
tip.tiptop
Bonjour,
aujourd'hui j'aimerai pouvoir par du code "une macro" effacer tous les
boutons de commande se trouvant sur une feuille Excel.
Es ce possible?
par avance merci
aujourd'hui j'aimerai pouvoir par du code "une macro" effacer tous les
boutons de commande se trouvant sur une feuille Excel.
Es ce possible?
par avance merci
Sheets(1).DrawingObjects.Delete
JB
On 27 mai, 16:27, "tip.tiptop"
Faut il avoir encore oter la protection sur la feuille en question.
merci beaucoup
"tip.tiptop" 4659955d$0$12223$
tu veuilles spécifiquement enlever les boutons de commandes
issus de la barre d'outils formulaire ou contrôle, il y a ceci :
'-------------------------------
Sub test()
'Pour boutons de commande issus de
'la barre d'outils Contrôle
Dim Obj As OLEObject
With Worksheets("Feuil1")
For Each Obj In .OLEObjects
If TypeName(Obj.Object) = "CommandButton" Then
Obj.Delete
End If
Next
End With
End Sub
'-------------------------------
Sub test1()
'Pour boutons de commande issus de
'la barre d'outils Formulaire
Dim Obj As Shape
With Worksheets("Feuil1")
For Each Obj In .Shapes
If TypeName(Obj.OLEFormat.Object) = "Button" Then
Obj.Delete
End If
Next
End With
End Sub
'-------------------------------
Sub test2()
'Pour boutons de commande issus de la barre
'd'outils Formulaire ou Contrôle
Dim Obj As Shape
With Worksheets("Feuil1")
For Each Obj In .Shapes
If TypeName(Obj.OLEFormat.Object) = "Button" Then
Obj.Delete
ElseIf TypeName(Obj.OLEFormat.Object.Object) = "CommandButton" Then
Obj.Delete
End If
Next
End With
End Sub
'-------------------------------
"tip.tiptop" 4659955d$0$12223$
Bonjour,
aujourd'hui j'aimerai pouvoir par du code "une macro" effacer tous les
boutons de commande se trouvant sur une feuille Excel.
Es ce possible?
par avance merci
For Each i In ActiveSheet.Shapes
If i.Type = 8 Or i.Type = 12 Then
ActiveSheet.Shapes(i.Name).Delete
Next i
JB
On 27 mai, 16:52, "tip.tiptop"
Hum... m'est avis que tous les objets issus des 2 barres d'outils vont passer à
la casserole et pas seulement les boutons...!
AV