Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2008 12 03 09:42:12

ÇA AURAIT éTé COOL SI çA AVAIT éTé VRAI! par Miiitch

ADOBE MAX à MILAN => JOUR -1 par pegase31

SQL SERVER : LE FUTUR DES MOTEURS DE RECHERCHE CHEZ MICROSOFT par christian

TOFINO : LE PLUGIN FLEX POUR VISUAL STUDIO par Nix

FLEX INTéGRé DANS VISUAL STUDIO ! par Nix

RE : RéCUPéRER LES DONNéES D'UNE AUTRE FORM par jrivet

RE : RéCUPéRER LES DONNéES D'UNE AUTRE FORM par beet2che

RE : DANS UNE FEUILLE FORM, REMPLACER UNE FRAME PAR UNE AUTRE DE TAILLE IDENTIQUE. par 2eio

RE : PROPERTY DANS DLL par candyraton

RE : RéCUPéRER LES DONNéES D'UNE AUTRE FORM par jrivet

+ de logiciels à télécharger

1 302 133 membres
88 nouveaux aujourd'hui
14 554 membres club

Trouver une ressource

Trouvez une ressource parmi 39 077 codes, 1 208 460 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

ENREGISTREMENT D'UN GRAPHIQUE EXCEL SOUS FORME D'IMAGE JPG

Information sur la source

Catégorie :Graphique Niveau : Débutant Date de création : 18/01/2005 Date de mise à jour : 08/03/2005 16:22:50 Vu : 9 497

Auteur : Draconagi

Ecrire un message privé

Note :

3,25 / 10

Commentaire sur cette source (4)

Ajouter un commentaire et/ou une note

Description

Voilà un petit code qui permet d'extraire un graphique pour en faire une image JPG.

Source

Dim NomGraph As String 'On récupére le nom graphique
Fich As String ' Adresse de reception du graphique
NomGraph = ActiveChart.Name
Fich = c:/...... ' l'endroit où vous voulez mettre votre graphique
ActiveChart.Export ActiveChart.Export Filename:= Fich & NomGraph & ".jpg", FilterName:="JPEG"
end sub

Dim NomGraph As String                                      'On récupére le nom graphique
Fich As String                                                       ' Adresse de reception du graphique
                                                
NomGraph = ActiveChart.Name
Fich = c:/......       ' l'endroit où vous voulez mettre votre graphique

ActiveChart.Export ActiveChart.Export Filename:= Fich & NomGraph & ".jpg", FilterName:="JPEG"


end sub

Conclusion

Si vous avez des problèmes. N'hésitez pas.

Bon courage à tous.

Historique

08 mars 2005 16:22:55 :: J'ai trouvé un moyen simple d'extraire le graphique et de l'enregister du même coup.

Sources du même auteur

MOT DE PASSE POUR RENTRER DANS UNE APPLICATION ACCESS

Toutes les sources de Draconagi

Sources de la même categorie

BMP VERS ICO par jl315

STATION MÉTÉO (GRAPHIQUE TEMPS RÉEL) par JFrancoisB

DIAGRAMME CAMEMBERT par lesdis

INITIALISER LA COULEUR PAR DEFAUT D'UNE BOITE DE DIALOGUE CO... par medkarim

DIAGRAMME BATON par lesdis

Toutes les sources de la catégorie Graphique

Commentaires et avis

Commentaire de joeletigre le 26/01/2006 13:41:32

L'idée est très bonne et très pratique mais pour un débutant je pense qu'il faut mettre la procédure complète et correcte.

' Procédure permettant enregistrer un graphique sélectionné dans un fichier jpeg
Sub EnregistreGraphique()
Dim NomGraph As String 'On récupére le nom graphique sélectionné
Dim Fich As String ' Adresse de reception du graphique
NomGraph = ActiveChart.Name
Fich = "c:/......"' l'endroit où vous voulez mettre votre graphique
ActiveChart.Export Filename:= Fich & NomGraph & ".jpg", FilterName:="JPEG"
end sub

Commentaire de zeunz le 18/05/2006 11:29:52

aucune explication....

Commentaire de mathieugamin le 08/12/2006 14:42:27

Super ce code !

Y'a-t-il un moyen de faire des gif transprents?
GIF tout seul ça marche, mais comme il faut sélectionner le graphique, l'arrière plan blanc réapparaît (alors qu'il est transparent dans le format graphs que j'ai configurés)...

Merci !