Discussion :

[ritchie23]

Bonjour,

J'ai récupéré le code suivant me permettant de faire une capture d'écran de ma feuille (UserForm).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
' http://excel.developpez.com/faq/?page=PressePapier#Snapshot
keybd_event vbKeySnapshot, 1, 0&, 0&
DoEvents

Ca marche très bien !
J'ai utilisé ce même code pour faire une capture d'écran de mon graphe (inséré sur un onglet Excel). En fait je fais une capture d'écran de l'onglet.

malheuresement, je ne désire qu'une partie de cette capture d'écran. Tout le bord de cette image ne m'intéresse pas.

Je souhaite donc pouvoir récupérer une partie de ma capture d'écran.

Comment puis je faire SVP ??

Merci d'avance.
Ritchie.

[SilkyRoad]

bonsoir

Tu peux utiliser la méthode CopyPicture :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
'Copie le premier graphique de la feuille active
ActiveSheet.ChartObjects(1).CopyPicture

bonne soirée
michel

[ritchie23]

Bonjour,


Cela ne fonctionne pas (ou alors je n'ai pas compris la méthode à employer).

Je vais essayer de reformuler mon besoin.

Je fais une capture d'écran, je sélectionne un onglet de mon classeur Excel, sélectionne une cellule et copie la capture d'écran dans cette cellule;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
    keybd_event vbKeySnapshot, 1, 0&, 0&
    DoEvents
 
    Sheets(SHEET_CIBLE).Select
    Range("A25").Select
    ActiveSheet.Paste

Le problème est que c'est une capture d'écran général d'Excel.
Je ne souhaite obtenir qu'un élément de cette capture.
Je souhaite donc pouvoir me positionner sur un point de l'image et faire une nouvelle sélection d'image sur cette image.

Merci !
Ritchie.

[fring]

Bonjour,

Pour reprendre ce que te proposait Silkyroad, apparemment tu souhaites faire une copie image uniquement du graphique, tu peux donc faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub test()
Sheets("FeuilleSource").ChartObjects(1).CopyPicture
Sheets("FeuilleDestination").Range("A25").PasteSpecial
End Sub

[ritchie23]

Merci de la réponse, mais il ne s'agit pas du graphique.
Il s'agit de la boite à outil qui se trouve sur le graphique.

Comment puis je faire SVP ?
Ritchie.

[fring]

Il s'agit de la boite à outil qui se trouve sur le graphique.

Désolé mais je ne vois pas de quoi tu parles