Bonjour à tous,
Je cherche à tester la présence d'une image dans un Range, afin d'optimiser le code est d'éviter de parcourir la collection des Shapes d'une sheet (code ci dessous) :
For Each xShape In ActiveSheet.Shapes
If xShape.TopLeftCell.Address = xRg.Address Then
xFlag = True
End If
Next
J'aimerais pouvoir tester directement un range:
Private Function Suppression_Image(c As Range) As Boolean
Dim xl As Shape
Dim sel As Range
Suppression_Image = False
Set sel = Range(c.Address).Resize(8, 8)
For Each xl In sel.Shapes
If xl.Type = msoPicture Then xl.Delete
Next xl
End Function
J'ai une erreur '438 propriété ou méthode non gérée par cet objet ', j'en déduis que Shapes n'est pas membre de la collection Range, j'ai essayé avec 'ListObject' mais guère mieux, avez vous une méthode pour tester la présence d'image dans un range spécifique ?