Bonjour à tous
avec le code suivant je récupère pleins de machins en tout genre, ce qui me
permet de toiletter ma feuille.
Cependant je souhaiterais un code du même tonneau pour récupérer les objets
(traits, flèches, parenthèse, et tutti quanti)qui ont été glissées dans un
graphique de la feuille.
Quelqu'un pourrait m'aider?
merci
@+
J@@
Sub TousObjets()
ActiveSheet.DrawingObjects.Select
Selection.ShapeRange.Line.ForeColor.SchemeColor = 4
' Selection.Delete
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonjour,
ActiveSheet.ChartObjects(1).Select For Each c In ActiveChart.Shapes MsgBox c.Name c.Delete Next c
ou
ActiveSheet.ChartObjects(1).Select For i = 1 To ActiveChart.Shapes.Count MsgBox ActiveChart.Shapes(i).Name ActiveChart.Shapes(i).Delete Next i
JB
Bonjour à tous avec le code suivant je récupère pleins de machins en tout genre, ce qui me permet de toiletter ma feuille. Cependant je souhaiterais un code du même tonneau pour récupérer le s objets (traits, flèches, parenthèse, et tutti quanti)qui ont été gliss ées dans un graphique de la feuille. Quelqu'un pourrait m'aider? merci @+ J@@
Sub TousObjets() ActiveSheet.DrawingObjects.Select Selection.ShapeRange.Line.ForeColor.SchemeColor = 4 ' Selection.Delete End Sub
Bonjour,
ActiveSheet.ChartObjects(1).Select
For Each c In ActiveChart.Shapes
MsgBox c.Name
c.Delete
Next c
ou
ActiveSheet.ChartObjects(1).Select
For i = 1 To ActiveChart.Shapes.Count
MsgBox ActiveChart.Shapes(i).Name
ActiveChart.Shapes(i).Delete
Next i
JB
Bonjour à tous
avec le code suivant je récupère pleins de machins en tout genre, ce qui me
permet de toiletter ma feuille.
Cependant je souhaiterais un code du même tonneau pour récupérer le s objets
(traits, flèches, parenthèse, et tutti quanti)qui ont été gliss ées dans un
graphique de la feuille.
Quelqu'un pourrait m'aider?
merci
@+
J@@
Sub TousObjets()
ActiveSheet.DrawingObjects.Select
Selection.ShapeRange.Line.ForeColor.SchemeColor = 4
' Selection.Delete
End Sub
ActiveSheet.ChartObjects(1).Select For Each c In ActiveChart.Shapes MsgBox c.Name c.Delete Next c
ou
ActiveSheet.ChartObjects(1).Select For i = 1 To ActiveChart.Shapes.Count MsgBox ActiveChart.Shapes(i).Name ActiveChart.Shapes(i).Delete Next i
JB
Bonjour à tous avec le code suivant je récupère pleins de machins en tout genre, ce qui me permet de toiletter ma feuille. Cependant je souhaiterais un code du même tonneau pour récupérer le s objets (traits, flèches, parenthèse, et tutti quanti)qui ont été gliss ées dans un graphique de la feuille. Quelqu'un pourrait m'aider? merci @+ J@@
Sub TousObjets() ActiveSheet.DrawingObjects.Select Selection.ShapeRange.Line.ForeColor.SchemeColor = 4 ' Selection.Delete End Sub
J
Bonjour JB et merci pour ton aide
la solution 1 "For Each c ..." marche au poil la solution 2 plante après la suppression d'un élément avec le message "l'indice de cette collection est en dehors des limites"
Autre question, comment avoir l'option de supprimer ou non chaque objet identifié?
Encore merci @+ J@@
JB wrote:
Bonjour,
ActiveSheet.ChartObjects(1).Select For Each c In ActiveChart.Shapes MsgBox c.Name c.Delete Next c
ou
ActiveSheet.ChartObjects(1).Select For i = 1 To ActiveChart.Shapes.Count MsgBox ActiveChart.Shapes(i).Name ActiveChart.Shapes(i).Delete Next i
JB
Bonjour à tous avec le code suivant je récupère pleins de machins en tout genre, ce qui me permet de toiletter ma feuille. Cependant je souhaiterais un code du même tonneau pour récupérer les objets (traits, flèches, parenthèse, et tutti quanti)qui ont été glissées dans un graphique de la feuille.
Sub TousObjets() ActiveSheet.DrawingObjects.Select Selection.ShapeRange.Line.ForeColor.SchemeColor = 4 ' Selection.Delete End Sub
Bonjour JB et merci pour ton aide
la solution 1 "For Each c ..." marche au poil
la solution 2 plante après la suppression d'un élément avec le message "l'indice
de cette collection est en dehors des limites"
Autre question, comment avoir l'option de supprimer ou non chaque objet identifié?
Encore merci
@+
J@@
JB wrote:
Bonjour,
ActiveSheet.ChartObjects(1).Select
For Each c In ActiveChart.Shapes
MsgBox c.Name
c.Delete
Next c
ou
ActiveSheet.ChartObjects(1).Select
For i = 1 To ActiveChart.Shapes.Count
MsgBox ActiveChart.Shapes(i).Name
ActiveChart.Shapes(i).Delete
Next i
JB
Bonjour à tous
avec le code suivant je récupère pleins de machins en tout genre, ce qui me
permet de toiletter ma feuille.
Cependant je souhaiterais un code du même tonneau pour récupérer les objets
(traits, flèches, parenthèse, et tutti quanti)qui ont été glissées dans un
graphique de la feuille.
Sub TousObjets()
ActiveSheet.DrawingObjects.Select
Selection.ShapeRange.Line.ForeColor.SchemeColor = 4
' Selection.Delete
End Sub
la solution 1 "For Each c ..." marche au poil la solution 2 plante après la suppression d'un élément avec le message "l'indice de cette collection est en dehors des limites"
Autre question, comment avoir l'option de supprimer ou non chaque objet identifié?
Encore merci @+ J@@
JB wrote:
Bonjour,
ActiveSheet.ChartObjects(1).Select For Each c In ActiveChart.Shapes MsgBox c.Name c.Delete Next c
ou
ActiveSheet.ChartObjects(1).Select For i = 1 To ActiveChart.Shapes.Count MsgBox ActiveChart.Shapes(i).Name ActiveChart.Shapes(i).Delete Next i
JB
Bonjour à tous avec le code suivant je récupère pleins de machins en tout genre, ce qui me permet de toiletter ma feuille. Cependant je souhaiterais un code du même tonneau pour récupérer les objets (traits, flèches, parenthèse, et tutti quanti)qui ont été glissées dans un graphique de la feuille.
Sub TousObjets() ActiveSheet.DrawingObjects.Select Selection.ShapeRange.Line.ForeColor.SchemeColor = 4 ' Selection.Delete End Sub
JB
Bonjour,
http://cjoint.com/?mjgz3n3fFi
Sub SupShapesGraphe() ' lancer à partir de VBA ActiveSheet.ChartObjects(1).Activate For Each c In ActiveChart.Shapes ActiveChart.Shapes(c.Name).Select couleur = Selection.ShapeRange.Line.ForeColor.SchemeColor ' ancienne couleur Selection.ShapeRange.Line.ForeColor.SchemeColor = 10 If MsgBox("on supprime " & c.Name & " ?", vbYesNo) = vbYes Then c.Delete Else Selection.ShapeRange.Line.ForeColor.SchemeColor = couleur End If Next c End Sub
JB
Bonjour JB et merci pour ton aide
la solution 1 "For Each c ..." marche au poil la solution 2 plante après la suppression d'un élément avec le mess age "l'indice de cette collection est en dehors des limites"
Autre question, comment avoir l'option de supprimer ou non chaque objet i dentifié?
Encore merci @+ J@@
JB wrote:
Bonjour,
ActiveSheet.ChartObjects(1).Select For Each c In ActiveChart.Shapes MsgBox c.Name c.Delete Next c
ou
ActiveSheet.ChartObjects(1).Select For i = 1 To ActiveChart.Shapes.Count MsgBox ActiveChart.Shapes(i).Name ActiveChart.Shapes(i).Delete Next i
JB
Bonjour à tous avec le code suivant je récupère pleins de machins en tout genre, ce qui me permet de toiletter ma feuille. Cependant je souhaiterais un code du même tonneau pour récupérer les objets (traits, flèches, parenthèse, et tutti quanti)qui ont été glis sées dans un graphique de la feuille.
Sub TousObjets() ActiveSheet.DrawingObjects.Select Selection.ShapeRange.Line.ForeColor.SchemeColor = 4 ' Selection.Delete End Sub
Bonjour,
http://cjoint.com/?mjgz3n3fFi
Sub SupShapesGraphe()
' lancer à partir de VBA
ActiveSheet.ChartObjects(1).Activate
For Each c In ActiveChart.Shapes
ActiveChart.Shapes(c.Name).Select
couleur = Selection.ShapeRange.Line.ForeColor.SchemeColor '
ancienne couleur
Selection.ShapeRange.Line.ForeColor.SchemeColor = 10
If MsgBox("on supprime " & c.Name & " ?", vbYesNo) = vbYes Then
c.Delete
Else
Selection.ShapeRange.Line.ForeColor.SchemeColor = couleur
End If
Next c
End Sub
JB
Bonjour JB et merci pour ton aide
la solution 1 "For Each c ..." marche au poil
la solution 2 plante après la suppression d'un élément avec le mess age "l'indice
de cette collection est en dehors des limites"
Autre question, comment avoir l'option de supprimer ou non chaque objet i dentifié?
Encore merci
@+
J@@
JB wrote:
Bonjour,
ActiveSheet.ChartObjects(1).Select
For Each c In ActiveChart.Shapes
MsgBox c.Name
c.Delete
Next c
ou
ActiveSheet.ChartObjects(1).Select
For i = 1 To ActiveChart.Shapes.Count
MsgBox ActiveChart.Shapes(i).Name
ActiveChart.Shapes(i).Delete
Next i
JB
Bonjour à tous
avec le code suivant je récupère pleins de machins en tout genre, ce qui me
permet de toiletter ma feuille.
Cependant je souhaiterais un code du même tonneau pour récupérer les objets
(traits, flèches, parenthèse, et tutti quanti)qui ont été glis sées dans un
graphique de la feuille.
Sub TousObjets()
ActiveSheet.DrawingObjects.Select
Selection.ShapeRange.Line.ForeColor.SchemeColor = 4
' Selection.Delete
End Sub
Sub SupShapesGraphe() ' lancer à partir de VBA ActiveSheet.ChartObjects(1).Activate For Each c In ActiveChart.Shapes ActiveChart.Shapes(c.Name).Select couleur = Selection.ShapeRange.Line.ForeColor.SchemeColor ' ancienne couleur Selection.ShapeRange.Line.ForeColor.SchemeColor = 10 If MsgBox("on supprime " & c.Name & " ?", vbYesNo) = vbYes Then c.Delete Else Selection.ShapeRange.Line.ForeColor.SchemeColor = couleur End If Next c End Sub
JB
Bonjour JB et merci pour ton aide
la solution 1 "For Each c ..." marche au poil la solution 2 plante après la suppression d'un élément avec le mess age "l'indice de cette collection est en dehors des limites"
Autre question, comment avoir l'option de supprimer ou non chaque objet i dentifié?
Encore merci @+ J@@
JB wrote:
Bonjour,
ActiveSheet.ChartObjects(1).Select For Each c In ActiveChart.Shapes MsgBox c.Name c.Delete Next c
ou
ActiveSheet.ChartObjects(1).Select For i = 1 To ActiveChart.Shapes.Count MsgBox ActiveChart.Shapes(i).Name ActiveChart.Shapes(i).Delete Next i
JB
Bonjour à tous avec le code suivant je récupère pleins de machins en tout genre, ce qui me permet de toiletter ma feuille. Cependant je souhaiterais un code du même tonneau pour récupérer les objets (traits, flèches, parenthèse, et tutti quanti)qui ont été glis sées dans un graphique de la feuille.
Sub TousObjets() ActiveSheet.DrawingObjects.Select Selection.ShapeRange.Line.ForeColor.SchemeColor = 4 ' Selection.Delete End Sub