Shape et incompatibilité de type
Bonjour,
J'ai une forme et un image qui portent le même nom.
Je cherche à sélectionner uniquement l'image. Il me semble que msoPicture permet de détecter si le shape est une image ?
Code:
1
2
3
4
5
6
7
8
9
10
| Sub image()
Dim myShape As Shape
For Each myShape In ActiveSheet.Shapes
If Not myShape.Name = "nomimage" And myShape.Type = msoPicture Is Nothing Then
myShape.Select
Exit For
Else
End If
Next myShape
End Sub |
Le code ci-dessus me renvoie une erreur "Incompatibilité de type" sur la ligne "If Not...."
Pourtant il faut bien que je déclare myShape en tant que shape non ?
