c'est l'histoire d'un type ....

[Basu]

bonjour à tous !!

petite question bête surement...

Dans ma macro je supprime actuellement mes photos insérer, pour pas quelle se superpose, avec cette macro

Sub minivue()
For Each s In ActiveSheet.Shapes
        If s.Type = msoPicture Then s.Delete
    Next s

ma question et simple je cherche à supprimer que les photos *.JPG

ou alors une ligne qui me supprimerai que la photos déjà présente, avant de la remettre voici mon code pour inserer mes photos

'feuille 1
fich = [C36].Value 'recup nom fichier
ligne = [C36].Row 'en quelle ligne ?
ActiveSheet.Pictures.Insert(fich).Select 'ouverture image
ligne = 2
Selection.Name = "monimage1"
 With ActiveSheet.Shapes("monimage1")
    .LockAspectRatio = msoTrue 'conserver les proportion
    .Top = Range("C27").Top
    .Left = Range("C27").Left
    .Height = Range("C27:C48").Height

  End With

Grand merci pour toutes vos réponses

 

[Papou-net]

Re : c'est l'histoire d'un type ....

Bonsoir Basu,

Peut-être en modifiant ta ligne comme suit :

Sub minivue()
For Each s In ActiveSheet.Shapes
        If s.Type = msoPicture And LCase(Right(s.Name, 3)) = "jpg" Then s.Delete
    Next s

Sinon, essaie de joindre une copie de ton fichier.

Espérant avoir répondu.

Cordialement.

 

[Basu]

Re : c'est l'histoire d'un type ....

désole de répondre tardivement mais avec les fêtes pas trop le temps !! juste le temps de tester et ça fonctionne merci bien