Insertion et suppression image excel VBA
Résolu/Fermé
aurelie76
eriiic
- Messages postés
- 88
- Date d'inscription
- samedi 19 avril 2008
- Statut
- Membre
- Dernière intervention
- 13 mai 2017
eriiic
- Messages postés
- 24408
- Date d'inscription
- mardi 11 septembre 2007
- Statut
- Contributeur
- Dernière intervention
- 23 juin 2022
A voir également:
- Activesheet.pictures.insert
- Activesheet.pictures.insert vba - Meilleures réponses
- Vba pictures.insert - Meilleures réponses
- Insertion et suppression image excel VBA ✓ - Forum - VB / VBA
- Activesheet.pictures.insert vba ✓ - Forum - VB / VBA
- Activesheet.shapes.range(array( picture 1 )).select ✓ - Forum - VB / VBA
- Cleanup pictures - Guide
- No bootable device insert boot disk and press any key ✓ - Forum - Windows
4 réponses
eriiic
1 mai 2008 à 14:22
- Messages postés
- 24408
- Date d'inscription
- mardi 11 septembre 2007
- Statut
- Contributeur
- Dernière intervention
- 23 juin 2022
1 mai 2008 à 14:22
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
LePierre
30 avril 2008 à 09:55
- Messages postés
- 249
- Date d'inscription
- samedi 8 mars 2008
- Statut
- Membre
- Dernière intervention
- 2 août 2012
30 avril 2008 à 09:55
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
aurelie76
30 avril 2008 à 22:45
- Messages postés
- 88
- Date d'inscription
- samedi 19 avril 2008
- Statut
- Membre
- Dernière intervention
- 13 mai 2017
30 avril 2008 à 22:45
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.
eriiic
6 mai 2008 à 10:11
- Messages postés
- 24408
- Date d'inscription
- mardi 11 septembre 2007
- Statut
- Contributeur
- Dernière intervention
- 23 juin 2022
6 mai 2008 à 10:11
de rien...
tu peux mettre en résolu alors.
eric
tu peux mettre en résolu alors.
eric
1 mai 2008 à 17:43
Ton code pourrait être par exemple :
à plus
4 mai 2008 à 08:30
bonne journée, et merci encore 1000 fois, bisous. Aurelie