OVH Cloud OVH Cloud

Figer un Graphe !!!!

13 réponses
Avatar
Mario
Bonjour,

J'aimerai savoir s'il est possible de figer un graphique=20
sous Excel et ensuit, pouvoir supprimer ses donn=E9es=20
sources sans que les graphiques ne changent... Merci

3 réponses

1 2
Avatar
merci pour tout je vais inscrire ton site dans mes
favoris..

-----Message d'origine-----
Re,

Toujours sur le site de Frédéric, tu trouveras toutes
les questions que tu

te poses. Un exemple ci-dessous, mais il y en a d'autres.

Cordialement.


Attribute VB_Name = "ExcelEtLesImages3"


'insérer une image et adapter sa taille à celle de la
cellule active


Sub InsertPicture()
'J Walkenbach, mpep
Dim MyCell As Range
Dim MyPicture As Picture
Dim image$

image = "c:windowshlpglobe.gif"
Set MyCell = ActiveCell
MyCell.Select
Set MyPicture = ActiveSheet.Pictures.Insert(image)
With MyPicture.ShapeRange
.LockAspectRatio = msoFalse
.Height = MyCell.Height
.Width = MyCell.Width
End With
MyCell.Select
End


"Mario" a écrit
dans le message de

news: 556201c42cfc$8499cff0$
Merci beaucoup eric. j'avais pensé à cette solution, mais
après je veux récupérer mes graphes et les mettre dans un
autre fichier Excel, et comme j'ai pas mal de graphes,
j'avais peur que cela prenne trop de place.
ceci dit, je ne connaissais pas le code pour le faire,
maintenant oui, donc, je vais malgré tout essayer par
là..

Merci.

Ah, peut etre sais tu comment importer des gif sur un
fichier.

Bonne journée.


-----Message d'origine-----
Salut Mario,

Pour information au cas où ton besoin serait uniquement
de conserver la

forme de tes graphes à un instant T. J'utilise
régulièrement la méthode

consistant à faire une photographie du graphe.

Ci-dessous, deux modèles issus du site de Frédéric
SIGONNEAU dont une

procédure écrite par LAURENT LONGRE.
http://perso.wanadoo.fr/frederic.sigonneau/code/Excel/Gr
a


phiqueEnGIF.txt

Attribute VB_Name = "GraphiqueEnGIF"

'enregistrer un graphique comme une image au format .gif

Sub SaveAsGIF()
Dim graphique As Chart

Set graphique = Worksheets("Feuil1").ChartObjects
(1).Chart

graphique.Export Filename:="D:Graph1.gif",
filtername:="GIF"


End Sub


Sub AllGraphsAsGIF()
'Laurent Longre
Dim Graph As ChartObject

For Each Graph In Worksheets("Feuil1").ChartObjects
Graph.Chart.Export "D:" & Graph.Name
& ".gif", "GIF"


Next Graph

End Sub

Tu peux également faire du JPEG.

Cordialement.




"Mario" a écrit
dans le message de

news: 546901c42cf0$1a29d9a0$
Bonjour,

J'aimerai savoir s'il est possible de figer un graphique
sous Excel et ensuit, pouvoir supprimer ses données
sources sans que les graphiques ne changent... Merci


.




.




Avatar
xavier
salut des que tu as la reponse tu peux donner la reponse ca m'interesse
xav


"Mario" a écrit dans le message de news:
561001c42d01$cba6cce0$
Bon, je clique, directos sur la courbe, qui est
sélectionnée, je clique droit dessus et je demande source
data, j'arrive sur l'onglet séries sur lequel je
sélectionne toute la formule contenue dans Values et je
clique F9, puis je sélectionne toute la formule contenue
dans category (X)... et je clique sur F9.
Ensuite, pour tester, je change les valeurs de la colonne
G de l'onglet période (donc de mon ordonnée) et cela
modifie mon graphe qui n'est donc pas figé.
Si tu as le temps, je peux t'envoyer le fichier pour que
tu essaies de le figer et que tu me décrives précisément
ce que tu as fait ou prendre ton numéro pour t'appeler et
que tu me guides précisément.
Si tu ne veux pas, je le comprends tout à fait.
En tout cas, merci pour ton aide.

-----Message d'origine-----
En cliquant directement sur la(les) courbe(s) ou histo
(s) ou.... et en répétant

la manip décrite ton graphe utilisera comme données une
(des) matrice(s) de

constantes donc ça devrait faire

AV


.



Avatar
AV
salut des que tu as la reponse tu peux donner la reponse ca m'interesse


Le problème dans le cas de Mario est que la transformation de la formuleen
matrice de constante donne une formule avec plus de 1024 caractères donc XL ne
veux pas !
Une alternative :
clic droit sur le graphe --> copier --> coller ailleurs
Résultat une image non liée donc figée "ad vitam aeternam" !

AV

1 2