Insertion et suppression image excel VBA

Résolu/Fermé

aurelie76

Messages postés: 88
Date d'inscription: samedi 19 avril 2008
Statut: Membre
Dernière intervention: 13 mai 2017

- 29 avril 2008 à 22:09
eriiic

Messages postés: 24408
Date d'inscription: mardi 11 septembre 2007
Statut: Contributeur
Dernière intervention: 23 juin 2022

- 6 mai 2008 à 10:11

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

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

Réponse 1 / 4

eriiic

Messages postés: 24408
Date d'inscription: mardi 11 septembre 2007
Statut: Contributeur
Dernière intervention: 23 juin 2022

7 089
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

LePierre

Messages postés: 249
Date d'inscription: samedi 8 mars 2008
Statut: Membre
Dernière intervention: 2 août 2012

335
1 mai 2008 à 17:43

tou à fait d'accord !
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

aurelie76

Messages postés: 88
Date d'inscription: samedi 19 avril 2008
Statut: Membre
Dernière intervention: 13 mai 2017

3 > LePierre

Messages postés: 249
Date d'inscription: samedi 8 mars 2008
Statut: Membre
Dernière intervention: 2 août 2012

4 mai 2008 à 08:30

Merci Pierre et Eriiic pour votre aide précieuse, ca fonctionne à merveille, sans vous, j'étais perdu .....

bonne journée, et merci encore 1000 fois, bisous. Aurelie

Réponse 2 / 4

LePierre

Messages postés: 249
Date d'inscription: samedi 8 mars 2008
Statut: Membre
Dernière intervention: 2 août 2012

335
30 avril 2008 à 09:55

bonjour

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

Réponse 3 / 4

aurelie76

Messages postés: 88
Date d'inscription: samedi 19 avril 2008
Statut: Membre
Dernière intervention: 13 mai 2017

3
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.

Réponse 4 / 4

eriiic

Messages postés: 24408
Date d'inscription: mardi 11 septembre 2007
Statut: Contributeur
Dernière intervention: 23 juin 2022

7 089
6 mai 2008 à 10:11

de rien...
tu peux mettre en résolu alors.
eric

Newsletters