F
fudô
Guest
Bonjour à tous,
L'autre jour je me demandais comment effacer des dessins sans effacer les boutons de commandes. J'ai trouvé ce code :
Sub EffaceShapes()
Dim Shp As Shape
With Feuil1
For Each Shp In .Shapes
If Not Shp.Type = msoOLEControlObject Then Shp.Delete
Next Shp
End With
End Sub
Il permet d'effacer tout ce qui est formes automatiques en laissant les outils de controles.
Bonne journée.
L'autre jour je me demandais comment effacer des dessins sans effacer les boutons de commandes. J'ai trouvé ce code :
Sub EffaceShapes()
Dim Shp As Shape
With Feuil1
For Each Shp In .Shapes
If Not Shp.Type = msoOLEControlObject Then Shp.Delete
Next Shp
End With
End Sub
Il permet d'effacer tout ce qui est formes automatiques en laissant les outils de controles.
Bonne journée.