[excel][vba] selection zone de texte

Question

Bonjour

Dans un fichier Excel, j'ai crée un graph qui comporte des zones de textes disposés à plusieurs endroits de la zone graphique

J'aimerais au debut d'une macro effacer toutes ses zones.

J'ai essayé de faire :

For i=1 to 100 (100 au hasard )
    ActiveChart.Shapes("Text Box " & i & "" ).Select
  Selection.Delete
next

Mais je me suis rendu compte que dans ce graphique là, les indices de TextBox ne commencaient pas à 1.

Je ne connais pas l'indice initial, ni le final.

Y a t'il un une commande qui permette de faire une selection globale.

Merci

bouzinac · Answer

je cherche également une solution à ce même problème

mika · Answer

Feuil1.Shapes.SelectAll

sandraros · Answer

dim oneshape as shape
For each oneshape in ActiveChart.Shapes
  oneshape.delete 
next

sandraros · Answer

pardon, le code ci-dessus supprime toutes les shapes du chart. Ce script ci-après ne supprime que ceux dont les noms commencent par Text Box:
Sub delete_textbox()

Dim oneshape As Shape
For Each oneshape In ActiveSheet.Shapes
  If Left(oneshape.Name, 8) = "Text Box" Then
    oneshape.Select
    Selection.Delete
    End If
Next

End Sub

sandraros · Answer

pardon, le code ci-dessus supprime toutes les shapes du chart. Ce script ci-après ne supprime que ceux dont les noms commencent par Text Box:

Sub delete_textbox()

Dim oneshape As Shape
For Each oneshape In ActiveSheet.Shapes
  If Left(oneshape.Name, 8) = "Text Box" Then
    oneshape.Select
    Selection.Delete
  End If
Next

End Sub

[excel][vba] selection zone de texte

5 réponses

Votre réponse

Discussions similaires

Newsletters