rss
Ils ont besoin de votre aide Tous les messages sans réponse
Rechercher : dans
Par : Pertinence Date Nom d'utilisateur
Statut : Non résolu

Excel VBA suppression images shapes

Posté par mimi, le dimanche 3 septembre 2006 à 11:43:02
Bonjour tout le monde :0)

Je voudrais supprimer par macro toutes les images importées dans une feuille
pour une image, l'instruction fonctionne
ActiveSheet.Shapes("Picture 37").Select
Selection.Delete

Mais je ne connais pas les noms des shapes (à chaque que j'importe une image, Excel incrémente le no dePicture)

je voudrais un truc du genre mais mon code ne fonctionne pas
For Each Shapes In Sheets
Selection.Delete
Next

Merci d'avance pour vos suggestions :0)

Mimi
Répondre à mimi  Signaler ce message aux modérateurs Aller au dernier message

1


  • 1    Ce message vous semble utile, votez !
  • Ce message ne vous semble pas utile, votez !
  • Signaler ce message aux modérateurs
lami20j, le dimanche 3 septembre 2006 à 12:05:14
Salut,
Sub efface()
    Dim img As Object
        
    For Each img In Worksheets(1).Shapes 'ou Worksheets("nom").Shapes
     img.Delete
    Next
    
End Sub
lami20j
   
Répondre à lami20j

2


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Mimi, le dimanche 3 septembre 2006 à 13:03:12
Merci beaucoup pour la solution : elle fonctionne impécablement
:0)

personnalisé à mon onglet, cela donne :

Dim img As Object

For Each img In Sheets("travail").Shapes
img.Delete
Next

longue vie au forum !!

Mimi
   
Répondre à Mimi

3


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
lami20j, le dimanche 3 septembre 2006 à 13:08:01
Re,

Utilise plutôt celui là
Option Explicit
Option Compare Text 'insensible à la casse de caractères

Sub efface()
    Dim img As Shape
        
    For Each img In Worksheets("a").Shapes
     If img.Name Like "PICTURE*" Then
        img.Delete
     End If
    Next
    
End Sub
lami20j
   
Répondre à lami20j

4


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
titi, le mercredi 20 juin 2007 à 11:08:57
activesheet.Shapes.SelectAll
selection.delete

;)
   
Répondre à titi

5


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
 Jeflehardi, le mardi 16 octobre 2007 à 13:00:54
Merci pour la (les solutions) ! c'est exactement ce que je recherchais !
Amicalement !
   
Répondre à Jeflehardi
Posez votre question Répondre
Logiciels pertinents trouvés dans les téléchargements
Télécharger GANTT Project 2.0.7GANTT Project - GanttProject est un outil de gestion de projet libre, permettant de réaliser des diagrammes de GANTT afin de planifier un...Catégorie: Gestion de projet
Licence: Open Source
Télécharger TMPGEnc 2.521TMPGEnc - TMPGEnc est un encodeur, c'est-à-dire qu'il convertit un fichier vidéo, en général de type AVI en fichier de type MPEG ...Catégorie: Copie/Extraction
Licence: Open Source
Télécharger VSO Image Resizer 2.0.1.9VSO Image Resizer - Le logiciel VSO Image Resizer organise vos photos en réduisant leur résolution et en les déplaçant facilement au sein de...Catégorie: Graphisme
Licence: Freeware/gratuit
Télécharger Excel Viewer 2003Excel Viewer - Avec Microsoft Office Excel Viewer 2003, vous pouvez ouvrir, afficher et imprimer des classeurs Excel (fichiers XLS ), même...Catégorie: Tableur
Licence: Freeware/gratuit
Plus de logiciels gratuits sur « Excel VBA suppression images shapes »