Insertion d'image
Résolu
polobrazzo
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
polobrazzo Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
polobrazzo Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Activesheet.shapes.range(array("picture 1")).select
- Image iso - Guide
- Insertion sommaire word - Guide
- Touche insertion clavier - Guide
- Insertion filigrane word - Guide
- Insertion liste déroulante excel - Guide
2 réponses
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)
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
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