salut tout le monde, j'utilise un code du type
'récupération du graphe en tant qu'image
Sheets('résultats').ChartObjects(1).CopyPicture
ActiveSheet.ChartObjects(1).Delete
'Sélection de la cellule sous le dernier graphe
ActiveSheet.Shapes.SelectAll
Selection.Group.Select
Selection.BottomRightCell.End(xlToLeft).Offset(1, 1).Select
ActiveSheet.Paste
'dégrouper les images
ActiveSheet.Shapes.SelectAll
Selection.Ungroup.Select
qui marche absolument sans problème, en gros je créé un graphe (avant), et je le copie en tant qu'image, supprime la graphe, et recolle l'image du graphe (qui me permet de le figer), bref c'est exactement ce que je veux.
Vous allez me dire il est relou, c'est quoi son problème?!
et bien voilà, si j'ai trop de données dans mon graphe, il devient large, et s'il est trop large, la fonction CopyPicture me le tronque...
est-ce que qqun saurait d'où ca vient?? (du style excel ne sait pas copier en tant qu'image si celle ce dépasse la taille de l'écran...)
et surtout, est-ce que qqun saurait comment y remédier?
milles merci au puit de science qui saura me répondre...
Hervé.
'récupération du graphe en tant qu'image
Sheets('résultats').ChartObjects(1).CopyPicture
ActiveSheet.ChartObjects(1).Delete
'Sélection de la cellule sous le dernier graphe
ActiveSheet.Shapes.SelectAll
Selection.Group.Select
Selection.BottomRightCell.End(xlToLeft).Offset(1, 1).Select
ActiveSheet.Paste
'dégrouper les images
ActiveSheet.Shapes.SelectAll
Selection.Ungroup.Select
qui marche absolument sans problème, en gros je créé un graphe (avant), et je le copie en tant qu'image, supprime la graphe, et recolle l'image du graphe (qui me permet de le figer), bref c'est exactement ce que je veux.
Vous allez me dire il est relou, c'est quoi son problème?!
et bien voilà, si j'ai trop de données dans mon graphe, il devient large, et s'il est trop large, la fonction CopyPicture me le tronque...
est-ce que qqun saurait d'où ca vient?? (du style excel ne sait pas copier en tant qu'image si celle ce dépasse la taille de l'écran...)
et surtout, est-ce que qqun saurait comment y remédier?
milles merci au puit de science qui saura me répondre...
Hervé.