Insertion et suppression image excel VBA
Résolu
aurelie76
Messages postés
88
Date d'inscription
Statut
Membre
Dernière intervention
-
eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention -
A voir également:
- Vba pictures insert
- Touche insert - Guide
- Disk boot failure insert system disk and press enter - Guide
- Accéder à la fonction secondaire "insert" de ma touche "Delete" - Forum PC portable
- Excel compter cellule couleur sans vba - Guide
- Insert boot media in selected boot device and press a key ✓ - Forum Windows 10
4 réponses
Bonjour,
et pourquoi ne la renommes-tu pas dès l'ajout ?
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Name = "toto"
ou bien mémorise son index :
ind = ActiveSheet.Shapes.Count
ou son nom :
nom = ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Name
enfin si ça marche sur 97...
Ceci dit ta 1ère question était très mal formulée
eric
et pourquoi ne la renommes-tu pas dès l'ajout ?
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Name = "toto"
ou bien mémorise son index :
ind = ActiveSheet.Shapes.Count
ou son nom :
nom = ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Name
enfin si ça marche sur 97...
Ceci dit ta 1ère question était très mal formulée
eric
bonjour
essaye avec l'enregistreur de macro et tu devrais obtenir un code de ce style :
à plus
essaye avec l'enregistreur de macro et tu devrais obtenir un code de ce style :
ActiveSheet.Pictures.Insert("D:\Mes Documents\Mes images\Logo.gif").Select
à plus
bonjour Pierre et merci, ca n'est pas aussi simple malheureusement car à chaque ouverture du fichier, on ne connait pas la valeur de la "picture" ex: ActiveSheet.Shapes("Picture 53").Select et c'est bien là le soucis, merci encore pour ton aide et si d'autres ont une soluce car je rame la dessus depuis 4 jours
aurelie.
aurelie.
Ton code pourrait être par exemple :
Range("C4").Select ActiveSheet.Pictures.Insert("D:\Mes Documents\Mes images\Logo.gif").Select Selection.Name = "Logo" Range("C4").Select ' 'ton code ' ActiveSheet.Shapes("Logo").Select Selection.Delete Range("A3").Selectà plus
bonne journée, et merci encore 1000 fois, bisous. Aurelie