VBA : ShapeRange

[dionys0s]

Bonsoir, bonjour,

J'essaie de créer un add-in de gestion d'images (au sens les Shapes). Ainsi j'essaie de connaitre la méthode de "détection" des images sélectionnées. J'y arrive bien avec ShapeRange avec un code du style

Sub SelShp()

  Dim Sel As Variant

  On Error Resume Next: Set Sel = Excel.Selection.ShapeRange
  If VBA.Err.Number <> 0 Then VBA.MsgBox ("Aucune image n'est sélectionnée.")

End Sub

Seul soucis, lorsqu'une seule Shape est sélectionnée, mon MsgBox s'affiche... Comment devrais-je procéder ?
D'avance merci pour votre aide 🙂

 

[dionys0s]

Re : VBA : ShapeRange

Re,

je m'aperçois d'une chose : dans mon classeur test, j'ai mis deux shapes, qui sont deux graphiques.
Quand je fais le test une image (google image au pif), la sélection d'une seule image fonctionne correctement.
Ce sont donc les graphiques visiblement qui posent problème ?

 

[tototiti2008]

Re : VBA : ShapeRange

Bonjour Dionysos,

En testant TypeName(Selection) tu devrais pouvoir savoir si un shape est sélectionné

 

[dionys0s]

Re : VBA : ShapeRange

Bonjour tototiti2008,

Merci pour cette piste. Mais dans ce cas, comment connaître tous les typenames susceptibles de rentrer dans la case Shape (Là j'ai identifié ChartArea et Picture, quand une seule Shape est sélectionnée, DrawingObjects quand plusieurs sont sélectionnées).

 

[tototiti2008]

Re : VBA : ShapeRange

Re,

Si tu t'intéresse à tous les Shapes sans exception, il suffit de tester si Typename(Selection)<>"Range", je crois...

 

[dionys0s]

Re : VBA : ShapeRange

Re,

Rha pas bête !!! Merci beaucoup !!