Insertion et suppression image excel VBA
Résolu
aurelie76
Messages postés
88
Statut
Membre
-
eriiic Messages postés 25847 Statut Contributeur -
eriiic Messages postés 25847 Statut Contributeur -
Bonjour,
je cherche à insérer une icone (.gif) dans une feuille excel (pour en faire un lien ensuite) et pouvoir la supprimer quand je ferme ma feuille, je ne parviens pas à trouver un code me permettant d'avancer, je précise que je suis sous excel97, merci à tous ceux qui voudront bien m'aider,
Aurelie
je cherche à insérer une icone (.gif) dans une feuille excel (pour en faire un lien ensuite) et pouvoir la supprimer quand je ferme ma feuille, je ne parviens pas à trouver un code me permettant d'avancer, je précise que je suis sous excel97, merci à tous ceux qui voudront bien m'aider,
Aurelie
A voir également:
- Vba pictures insert
- Touche insert - Guide
- Disk boot failure insert system disk and press enter - Guide
- Excel compter cellule couleur sans vba - Guide
- Accéder à la fonction secondaire "insert" de ma touche "Delete" - Forum PC portable
- 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