VBA / récupérer une partie de ma capture d'écran keybd_event / vbKeySnapshot

Bonjour,

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

Code:

---

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.

bonsoir

Tu peux utiliser la méthode CopyPicture :

Code:

---

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

---

bonne soirée
michel

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:

---

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.

Bonjour,

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

Code:

---

1 2 3 4

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

---

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.

Citation:

---

Envoyé par ritchie23

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

---

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

Citation:

---

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

---

+1

Bonjour,
Je crois comprendre que :
1) il fait une capture d'écran
2) il ne veut garder qu'une partie de cette image (le rectangle correspondant à l'image de sa boite à outils)

Je ne sais pourquoi il veut faire celà, mais aurais tendance à répondre ceci :
Si cette manoeuvre n'est que destinée à la "présentation" d'un "tuto" ou d'un mode d'emploi : il est bien plus simple d'utiliser la capture d'écran dans un outil ad hoc (Paint, par exemple) et de la "raboter" à sa guise... puis d'enregistrer le résultat dans un fichier et de s'y référer dans un contrôle image de la feuille ou d'une UserForm !!!

Le faire par code VBA est possible, certes, mais en utilisant l'une des deux méthodes suivantes, assez complexes :
- méthode 1 (la plus complexe) : création d'un hdc et travail sur ce hdc.
- méthode 2 : limiter la capture à la seule fenêtre Windows correspondant à la boîte à outils, fenêtre qu'il va donc falloir identifier avec précision pour en extraire d'abord le hwnd, puis le hdc...
L'une comme l'autre de ces deux méthodes demande des connaissances approfondies de Windows et de l'utilisation des fonctions de son API....
Je me demande si l'enjeu vaut la chandelle !
Et souhaite qu'il nous soit exposé ici la raison exacte pour laquelle on veut vraiment inclure tout cela dans du code VBA !!!...

Bonjour à tous,

Merci de vos réponses.

Citation:

---

Bonjour,
Je crois comprendre que :
1) il fait une capture d'écran
2) il ne veut garder qu'une partie de cette image (le rectangle correspondant à l'image de sa boite à outils)

---

Effectivement, c'est la bonne raison (voir ma capture d'écran ci-jointe);

En fait, je désire réaliser automatiquement, la capture d'écran de toutes mes UserForm (et boîte d'outils) pour générer une documentation en automatique !

N'y a t'il pas un moyen détourné pour faire cà simplement ?

merci.
Ritchie.

Citation:

---

Envoyé par ritchie23

En fait, je désire réaliser automatiquement, la capture d'écran de toutes mes UserForm (et boîte d'outils) pour générer une documentation en automatique !

N'y a t'il pas un moyen détourné pour faire cà simplement ?

---

Je me doutais bien qu'il s'agissait d'une image à inclure dans une documentation ;)

Faire çà simplement ? Non : je ne connais personnellement pas de moyen "simple" d'y parvenir ...
Ce sera complexe à tous les coups ! Un peu moins difficile et complexe, toutefois, si tu pouvais extraire le hwnd de la fenêtre de la "boîte à outils" en cause.
Mais tu nous dis que tu as l'intention d' "automatiser" la documentation de toutes tes userforms ! Je crains alors que la fenêtre dont tu souhaites récupérer l'image isolée ne soit tout simplement pas toujours la même (donc pas toujours le même handle) !...
Très franchement : une documentation d'appli ne se fait qu'une fois (par appli) et il te reviendra sans aucun doute moins cher (en travail) de faire ce que je t'ai dit plus haut : traiter et raboter ta capture d'écran à ta guise avec un outil ad hoc (y compris Paint) et sauvegarder le résultat dans un fichier qui te servira à charger ton image. Tu pourrais même en profiter pour traiter la lumlinosité, le contraste etc... si tu possèdes un outil (tu en as des gratuits) pour ce genre de traitement. Le résultat, surtout pour une documentation, sera nettement plus agréable, crois-moi ! (c'est ce que je faisais personnellement lorsque j'en avais le besoin !)