XL 2019 Supprimer toutes les images de la feuille

patricktoulon

XLDnaute Barbatruc

• 2 Septembre 2021

• #2

Bonsoir
supprimer toutes les images dans une feuille
ben c'est pas compliqué
j'attire ton attention sur le "s" a pictures qui désigne la collection d'image de la feuille active dans cet exemple ci dessous

VB:

Sub DeleteAllPicture()
ActiveSheet.Pictures.Delete
End Sub

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 2 Septembre 2021

• #3

Bonjour @netparty @patricktoulon

Je te propose ce fichier
*Clic sur le bouton "NE PAS EFFACER" 😄 😄 😄

@Phil69970

 

Pièces jointes

• Supprime Image V1.xlsm

  34.9 KB · Affichages: 12

Vote positif 0 Vote négatif

N

netparty

XLDnaute Occasionnel

• 3 Septembre 2021

• #4

Bonjour @Phil69970 @patricktoulon

Merci à vous pour votre aide

passer une bonne journée

 

Vote positif 0 Vote négatif

N

netparty

XLDnaute Occasionnel

• 10 Septembre 2021

• #5

Phil69970 à dit:

Bonjour @netparty @patricktoulon

Je te propose ce fichier
*Clic sur le bouton "NE PAS EFFACER" 😄 😄 😄

@Phil69970

Cliquez pour agrandir...

Bonjour @Phil69970

Je reviens sur ton fichier,

J'essaye de modifier la macro pour supprimer les images mais uniquement dans une plage données mais cela ne fonctionne pas j'ai essayé ceci :

VB:

Dim img As Object

For Each img In Worksheets("SHEMA_BLOC").Range("F5:R217").Shapes
    If img.Type = 13 Then img.Delete
Next

Aurais-tu une piste pour moi

Merci d'avance

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 10 Septembre 2021

• #6

Bonjour
deja essaie
Dim img As shape
et puis un range n'a pas de membre ".shapes"

VB:

Dim img 
With Worksheets("SHEMA_BLOC")
For Each img In .Shapes
    If not Intersect(img.TopLeftCell, .Range("F5:R217")) Is Nothing Then If img.Type = 13 Then img.Delete
Next
End With

 

Vote positif 0 Vote négatif

Solution

N

netparty

XLDnaute Occasionnel

• 10 Septembre 2021

• #7

patricktoulon à dit:

Bonjour
deja essaie
Dim img As shape
et puis un range n'a pas de membre ".shapes"

VB:

Dim img
With Worksheets("SHEMA_BLOC")
For Each img In .Shapes
    If not Intersect(img.TopLeftCell, .Range("F5:R217")) Is Nothing Then If img.Type = 13 Then img.Delete
Next
End With

Cliquez pour agrandir...

Bonjour @patricktoulon

C'est nickel

Un tout grand merci

Bonne soirée

 

Vote positif 0 Vote négatif