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 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 - 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
Frédéric cherche à faire le buzz sur les réseaux sociaux. il a ajouté une image de manchots sur une image de plage. retrouvez l'image originale de la plage. que cachent les manchots ? ✓ - Forum Windows
Liste déroulante excel - Guide
Si et excel - Guide
Forcer suppression fichier - Guide
Word et excel gratuit - Guide

4 réponses

Réponse 1 / 4

eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
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 337
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

Discussions similaires

insertion image en vba

telecharger le logiciel picture it 9

redimensionner une photo en 600*600 pixels

fontion pip sur philips

télécharger picture exe

OU TELECHARGER PICTURE IT

Discussions similaires

Newsletters