Discussion :

[Thierry360]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[joe.levrai]

Bonjour,

la propriété Type ne renvoie pas un objet mais une valeur.

donc enlève "Is Nothing", ça devrait aller mieux