Suppression d'une textbox
Bonjour,
le code suivant - réalisé sous [EXCEL - 2003] - supprime une textbox qui contient le mot "region".
Je cherche à savoir pourquoi ce code ne marche pas sous [EXCEL 2007]. Lorsque j'exécute le code, rien ne se passe. :cry:
Merci d'avance à ceux qui me répondront.
RM
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
| Dim aaShape As Shape
For Each aaShape In ActiveSheet.ChartObject("chart_head").chart.Shapes
' si la "shape" trouvée est une "textbox"
If aaShape.Type = msoTextBox Then
'si la "textbox" contient le mot "région"
If InStr(1, aaShape.AlternativeText, "region", vbTextCompare) _
> 0 Then aaShape.Delete
End If
Next |
