Macro Copie tableau et diagramme sous forme d'image

Résolu/Fermé
massimo888 Messages postés 203 Date d'inscription mercredi 11 juin 2014 Statut Membre Dernière intervention 7 avril 2017 - 23 juin 2014 à 08:58
massimo888 Messages postés 203 Date d'inscription mercredi 11 juin 2014 Statut Membre Dernière intervention 7 avril 2017 - 25 juin 2014 à 13:55
Bonjour,
Je cherche à faire une Macro en VBA pour pouvoir copier un tableau et le coller sous format image dans un autre classeur EXCEL.
Et la même action pour diagramme.
PS: Si cela est faisable, Peut-on également contrôler la taille de l'image?

Merci d'avance.





A voir également:

2 réponses

f894009 Messages postés 17192 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 16 juin 2024 1 708
24 juin 2014 à 08:52
2
massimo888 Messages postés 203 Date d'inscription mercredi 11 juin 2014 Statut Membre Dernière intervention 7 avril 2017
24 juin 2014 à 09:49
Merci beaucoup!!
Ça marche très bien!!
Juste est-ce que tu peux me dire si on peut faire en sorte pour régler la taille de l'image?
Merci encore
0
massimo888 Messages postés 203 Date d'inscription mercredi 11 juin 2014 Statut Membre Dernière intervention 7 avril 2017
24 juin 2014 à 09:52
Et aussi, si on pourrait la coller et que l'image ne soit pas figé
Merci
0
massimo888 Messages postés 203 Date d'inscription mercredi 11 juin 2014 Statut Membre Dernière intervention 7 avril 2017
24 juin 2014 à 10:03
En fait l'image n'est pas figé! Au temps pour moi
Juste, on peut demander à ce que l'image soit envoyer à une cellule précise?
0
f894009 Messages postés 17192 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 16 juin 2024 1 708
24 juin 2014 à 11:23
0
massimo888 Messages postés 203 Date d'inscription mercredi 11 juin 2014 Statut Membre Dernière intervention 7 avril 2017
24 juin 2014 à 15:47
Merci pour ton aide mais ça ne marche pas vraiment il me met toujours l'image tout au début de la feuille!!
Merci.
0
f894009 Messages postés 17192 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 16 juin 2024 1 708
24 juin 2014 à 16:59
Re,

marche tres bien

exemple
Sub pos_img()
Range("B8").Activate
ActiveSheet.Pictures.Insert("chemin\image.jpg").Select
With Selection
.ShapeRange.Left = ActiveCell.Left
.ShapeRange.Top = ActiveCell.Top
End With

End Sub
0