Insertion d'image Résolu/Fermé

Question

Bonjour,
je vous écris aujourd'hui car malgré mes recherches, soit je ne trouve pas de réponse à ma question, soit je ne la comprend pas...

Voila, je suis débutant sur VBA, et je travaille avec Excel 2013
Je veux pouvoir insérer dans une cellule (disons "N2") une forme ou une image déjà présente dans une autre cellule ("N3"). Comment faire? J'ai besoin que l'image soit strictement identique (taille, couleur, etc.) et à la même position dans la cellule.

Si tout cela est possible, peut-on intégrer ce code dans une boucle "For each C" ?

Je vous remercie d'avance pour vos réponses.

PlacageGranby · Answer

Bonjour,

J'ai fait : enregistrer macro,  et j'ai inséré une image,  je l'ai copié et collé, et voici ce que excel voit comme code :  (cette manipulation est réalisable par tout sans vraiment savoir programmer)

ActiveSheet.Shapes.Range(Array("Picture 1")).Select
Selection.Copy
Range("D9").Select
ActiveSheet.Paste

Donc une image fait parti de la collection SHAPES.

Ensuite, dans google, j'ai chercher   "EXCEL FOR EACH SHAPES", 
Et j'ai trouver ce petit bout de code 

Dim shp As Shape

For Each shp In ActiveSheet.Shapes
    blah blah
Next

Si vous avez différent type d'objet, vous pouvez travailler directement une image avec son nom

Dim image as integer
Image = 1
ActiveSheet.Shapes.Range(Array("Picture" & image)).Select

Ceci vous permet d'avoir l'objet  Image 1 de sélectionné.

J'imagine qu'il y a peut-être des manipulation plus élégante qu'un des dieux de la programmation pourrait donner,  mais voila l'aide que je pouvais vous apporter.

Avec l'enregistreur de macro et google,  on trouve presque tout.

Cordialement

polobrazzo · Answer

Ca marche ! Merci beaucoup!!!

Insertion d'image

2 réponses

Discussions similaires