Autres besoins de vous toutes versions confondues pour une verif

[patricktoulon]

Bonjour a tous
j'aurais besoins de votre aide pas bien compliquée
j'aurais besoin de votre participations et cela sur toutes versions d'excel

1. prenez un classeur vierge
2. mettez lui une shapes(n'importe la quelle des formes automatique nommez la "toto" par exemple)
3. mettez une vrai image (n'importe quelle image)
4. dans un module vous mettez

Sub test()
ActiveSheet.DrawingObjects("toto").Copy
ActiveSheet.Pictures.Paste
End Sub

5. lancez la macro
6. enregistrze votre fichier tel quel et envoyez le moi comme tel
merci d'avance pour votre participation

 

[Jacky67]

Bonjour a tous
j'aurais besoins de votre aide pas bien compliquée
j'aurais besoin de votre participations et cela sur toutes versions d'excel

1. prenez un classeur vierge
2. mettez lui une shapes(n'importe la quelle des formes automatique nommez la "toto" par exemple)
3. mettez une vrai image (n'importe quelle image)
4. dans un module vous mettez

Sub test()
ActiveSheet.DrawingObjects("toto").Copy
ActiveSheet.Pictures.Paste
End Sub

5. lancez la macro
6. enregistrze votre fichier tel quel et envoyez le moi comme tel
merci d'avance pour votre participation

Hello
Voici Win 10 Excel 2007
V2 macro exécutée

 

[goube]

Bonjour à tous,
Microsoft® Excel® 2021 MSO (Version 2202 Build 16.0.14931.20648) 32 bits
Cordialement

 

[dysorthographie]

Salut Patrick!
Win 11 Excel 2007

 

[Eric C]

Bonjour le forum
Bonjour à tous

W10 - XL 2010
Bonne fin d'après-midi à toutes & à tous
@+ Eric c

 

[Jacky67]

Bonjour a tous
j'aurais besoins de votre aide pas bien compliquée
j'aurais besoin de votre participations et cela sur toutes versions d'excel

1. prenez un classeur vierge
2. mettez lui une shapes(n'importe la quelle des formes automatique nommez la "toto" par exemple)
3. mettez une vrai image (n'importe quelle image)
4. dans un module vous mettez

Sub test()
ActiveSheet.DrawingObjects("toto").Copy
ActiveSheet.Pictures.Paste
End Sub

5. lancez la macro
6. enregistrze votre fichier tel quel et envoyez le moi comme tel
merci d'avance pour votre participation

Re
Que cherches-tu a vérifier ?

 

[patricktoulon]

re
@Jacky67 , @goube , @dysorthographie ,@Eric C
merci ,pour votre participation
a vous 4 vous confirmez dans vos differentes versions d'excel que le dossier \xl\media se trouve au meme endroit

merci à tous
mon but etait de voir si ma macro de recupération d'image au format PNG!! avec transparence et jpg d'un fichier xl etait valable pour toute les versions
le but etant de remplacer les fonction bien connues avec le chart qui n'a pas de transparence

me reste encore a pofiner mais voila ce qui pourra etre fait
a savoir :
recuperer les shapes et pictures se trouvant a l'interieur du périmètre d'une plage de cellules

 

[ChTi160]

Bonjour Patrick
Bonjour le Fil, le Forum
En retard avec W11 et Office 365
(j'espère avoir compris Lol)
Bonne journée
Jean marie

 

[patricktoulon]

Bonjour jean-Marie
oui c'est ça une shape puis copie de la shape et pictures.paste
bien que toi tu m'ai copié une picture en fait
et toi aussi c'est bon bien que j'y ai trouvé un svg (quy est inutile dans mon projet)dans ton classeur (il va falloir que je prenne cela en compte et l'eliminer de l'equation

donc on peut penser que c'est vrai pareil pour tout le monde
les images( et je dis bien les images (png ou jpg ou gif))
sont bien dans le dossier "xl\media" du fichier xl quand on le scrute comme une archive ZIP

je pense que cette question peut etre considérée comme résolu
merci a tous