fonction CopyPicture trop courte?

[_RV]

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é.

 

[@Christophe@]

Bonjour,

Modifie par la ligne suivante, cela devrait marcher:

Sheets('résultats').ChartObjects(1).CopyPicture Appearance:=xlScreen, Size:=xlScreen, Format:=xlPicture

Bonne journée

Message édité par: @Christophe@, à: 29/03/2005 17:20

 

[_RV]

Salut @Christophe@, le forum,

j'étais déjà tout heureux d'essayer ton code (et penaud de pas y avoir pensé), étant certain qu'il allait marcher...


et ben non, et je situe absolument pas l'erreur... tout ce qu'excel arrive à me dire, c'est 'selection ambigue' (c'est ma préférée celle-là)

qqun aurait une idée?

 

[_RV]

re-bonjour @christophe@, le forum,

christophe, est-ce que la ligne de code que tu me proposes fonctionne chez toi?

 

[_RV]

heeeeeeelp...

quand je tape ce code:

ActiveSheet.ChartObjects(1).CopyPicture xlScreen, xlPicture

ca marche (mais ca change pas grand chose vu que c'est les valeurs par défauts), et si je tape:

ActiveSheet.ChartObjects(1).CopyPicture xlScreen, xlPicture, xlScreen


là il veut plus, qqun comprend-il pourquoi? qu'est-ce qui fait que l'argument size n'est pas accepté??



merci beaucoup