Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

fonction CopyPicture trop courte?

_RV

XLDnaute Nouveau
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@

XLDnaute Occasionnel
Bonjour,

Modifie par la ligne suivante, cela devrait marcher:

Code:
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

XLDnaute Nouveau
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

XLDnaute Nouveau
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
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…