Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Graphique Excel en temps qu'image

Graphique Excel en temps qu'image

30 réponses
Avatar
Assurancetourix
Bonsoir à toutes et tous,

j'ai une petite question à laquelle je ne trouve pas la réponse pour le
moment.

Je souhaiterais "transformer" un graphique dans un classeur Excel afin
que celui-ci soit considéré comme une image et n'ai donc plus aucun lien
avec les données sources.

Est ce qu'une telle manoeuvre est possible? Si oui, quelle est la marche
à suivre?

Je vous remercie d'avance d'éclairer ma lanterne.

Très bonne soirée.

Assurancetourix
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3
Avatar
JB
Je pourrais vous l'envoyer demain

JB
Avatar
Pounet95
Bonsoir,

D'abord sélectionner la zone à photographier,
un clic sur l'appareil photo provoque un encadré en pointillé de la dite
zone
le curseur est devenu une petite croix
se déplacer à l'endroit ou l'on veut coller l'image.
Quand celle-ci est collée, la traiter comme une image (agrandir/rétrécir)
avec les poignées
la déplacer, etc ....


--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"DanC" a écrit dans le message de news:
%231V8E$c$
Bonjour
excusez moi de m'imiscer dans cette conversation, mais vous m'avez fait
découvrir la "photo"

J'essaye de "photographier" un groupe de cellule ou un bout de graphique,
et ça ne fait que me mettre dans une zone encadrée des poignées UNE
cellule.
J'ai loupé quelque chose?
Merci d'ajouter un "flash" à ma "photo"!


--
(___) Danielle
(oo) "... A quoi bon la charrue
/------- et la voile, la terre et
|| || la vie sans la liberté?"
||---W|| * - Ralph Waldo Emerson
^^ ^^
"Pounet95" a écrit dans le message de news:
OGrfZ2c$
Re bonsoir,
Pour info :

Menu Outils Sous menu Personnaliser
Dans la boîte qui s'ouvre sélectionner l'onglet Commandes
Dans la liste Catégories, sélectionner Outils,
Ensuite dans la liste déroulante de droite chercher l'appareil photo
Via un glisser/déplacer l'amener dans la barre de menus

Ensuite, dans la feuille, sélectionner la zone à photgraphier
et la coller là où il faut ( on peut donc faire des photos de parties de
feuilles ! )

.... mais la solution proposée par JB me semble quand même très aboutie
et fonctionnelle immédiatement.

Bonne soirée

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"Assurancetourix" a écrit dans le
message de news: eSRpduc$
Bonsoir,
Peut-être qu'en utilisant l'outil 'Appareil photo" ?????
accessible via le menu Outils/Personnaliser Outil et choisir l'appareil
photo

Bonsoir,


je n'arrive pas à trouver l'outil "appareil photo" dont vous parlez. il
n'est dans la liste du menu Outils/Personnalisé.

Est ce composant additionnel d'Excel qui n'est pas installé en standard?

En fait l'objectif est de faire un envoi automatique via un publipostage
donc il faudrait que cela soit suffisament simple pour etre envisageable
en VBA...

En espérant avoir été complet cette fois.

Grand merci pour cette première pste.

Assurancetourix










Avatar
DanC
D'abord sélectionner la zone à photographier,


ça fonctionne pour des cellules, mais pas pour un graphique... normal?
Je sélectionne le graphique et l'icone de photo est grisé....
manque encore un flash....

Merci d'avance et bonne soirée !
un clic sur l'appareil photo provoque un encadré en pointillé de la dite
zone
le curseur est devenu une petite croix
se déplacer à l'endroit ou l'on veut coller l'image.
Quand celle-ci est collée, la traiter comme une image (agrandir/rétrécir)
avec les poignées
la déplacer, etc ....


--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"DanC" a écrit dans le message de news:
%231V8E$c$
Bonjour
excusez moi de m'imiscer dans cette conversation, mais vous m'avez fait
découvrir la "photo"

J'essaye de "photographier" un groupe de cellule ou un bout de graphique,
et ça ne fait que me mettre dans une zone encadrée des poignées UNE
cellule.
J'ai loupé quelque chose?
Merci d'ajouter un "flash" à ma "photo"!


--
(___) Danielle
(oo) "... A quoi bon la charrue
/------- et la voile, la terre et
|| || la vie sans la liberté?"
||---W|| * - Ralph Waldo Emerson
^^ ^^
"Pounet95" a écrit dans le message de news:
OGrfZ2c$
Re bonsoir,
Pour info :

Menu Outils Sous menu Personnaliser
Dans la boîte qui s'ouvre sélectionner l'onglet Commandes
Dans la liste Catégories, sélectionner Outils,
Ensuite dans la liste déroulante de droite chercher l'appareil photo
Via un glisser/déplacer l'amener dans la barre de menus

Ensuite, dans la feuille, sélectionner la zone à photgraphier
et la coller là où il faut ( on peut donc faire des photos de parties de
feuilles ! )

.... mais la solution proposée par JB me semble quand même très aboutie
et fonctionnelle immédiatement.

Bonne soirée

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"Assurancetourix" a écrit dans le
message de news: eSRpduc$
Bonsoir,
Peut-être qu'en utilisant l'outil 'Appareil photo" ?????
accessible via le menu Outils/Personnaliser Outil et choisir
l'appareil photo

Bonsoir,


je n'arrive pas à trouver l'outil "appareil photo" dont vous parlez. il
n'est dans la liste du menu Outils/Personnalisé.

Est ce composant additionnel d'Excel qui n'est pas installé en
standard?

En fait l'objectif est de faire un envoi automatique via un
publipostage donc il faudrait que cela soit suffisament simple pour
etre envisageable en VBA...

En espérant avoir été complet cette fois.

Grand merci pour cette première pste.

Assurancetourix













Avatar
JB
Bonjour,

Voici la réponse en PJ

http://cjoint.com/?mlhfzMb7DJ

On crée le GIf puis on l'importe:

Sub CreeGifImporte()
Set g = Sheets("Graphe").ChartObjects(1).Chart
fichier = ActiveWorkbook.Path & "" & "graphe.gif"
g.Export Filename:=fichier, FilterName:="GIF"
Sheets("GrapheGif").Select
Range("B3").Select
For Each i In ActiveSheet.Shapes
ActiveSheet.Shapes(i.Name).Delete
Next i
Set monimage = ActiveSheet.Pictures.Insert("graphe.gif")
End Sub

Crée un classeur puis l'envoie par Mail:

Sub envoimail()
répertoireAppli = ActiveWorkbook.Path
Sheets("GrapheGif").Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs répertoireAppli & "GrapheGif.xls"
ActiveWindow.Close
'--- Envoi par mail
Dim olapp As Outlook.Application
Dim msg As MailItem
Set olapp = New Outlook.Application
Set msg = olapp.CreateItem(olMailItem)
msg.To = Range("B2")
msg.Subject = Range("A2").Value
msg.Body = Range("C2")
msg.Attachments.Add Source:=répertoireAppli & "GrapheGif.xls"
msg.Send
End Sub

Cordialement JB
Avatar
Pounet95
Bonjour,

En fait, dans ce cas, il faut sélectionner les cellules sous le graphique
après l'avoir
éventuellement adapté à la taille de celles-ci afin qu'a minima le graphique
soit inclus
dans la zone sélectionnée et qu'au maxima il en fasse la même taille

Bonne journée

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"DanC" a écrit dans le message de news:
edMV$Rf$
D'abord sélectionner la zone à photographier,


ça fonctionne pour des cellules, mais pas pour un graphique... normal?
Je sélectionne le graphique et l'icone de photo est grisé....
manque encore un flash....

Merci d'avance et bonne soirée !
un clic sur l'appareil photo provoque un encadré en pointillé de la dite
zone
le curseur est devenu une petite croix
se déplacer à l'endroit ou l'on veut coller l'image.
Quand celle-ci est collée, la traiter comme une image (agrandir/rétrécir)
avec les poignées
la déplacer, etc ....


--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"DanC" a écrit dans le message de news:
%231V8E$c$
Bonjour
excusez moi de m'imiscer dans cette conversation, mais vous m'avez fait
découvrir la "photo"

J'essaye de "photographier" un groupe de cellule ou un bout de
graphique, et ça ne fait que me mettre dans une zone encadrée des
poignées UNE cellule.
J'ai loupé quelque chose?
Merci d'ajouter un "flash" à ma "photo"!


--
(___) Danielle
(oo) "... A quoi bon la charrue
/------- et la voile, la terre et
|| || la vie sans la liberté?"
||---W|| * - Ralph Waldo Emerson
^^ ^^
"Pounet95" a écrit dans le message de news:
OGrfZ2c$
Re bonsoir,
Pour info :

Menu Outils Sous menu Personnaliser
Dans la boîte qui s'ouvre sélectionner l'onglet Commandes
Dans la liste Catégories, sélectionner Outils,
Ensuite dans la liste déroulante de droite chercher l'appareil photo
Via un glisser/déplacer l'amener dans la barre de menus

Ensuite, dans la feuille, sélectionner la zone à photgraphier
et la coller là où il faut ( on peut donc faire des photos de parties
de feuilles ! )

.... mais la solution proposée par JB me semble quand même très aboutie
et fonctionnelle immédiatement.

Bonne soirée

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"Assurancetourix" a écrit dans le
message de news: eSRpduc$
Bonsoir,
Peut-être qu'en utilisant l'outil 'Appareil photo" ?????
accessible via le menu Outils/Personnaliser Outil et choisir
l'appareil photo

Bonsoir,


je n'arrive pas à trouver l'outil "appareil photo" dont vous parlez.
il n'est dans la liste du menu Outils/Personnalisé.

Est ce composant additionnel d'Excel qui n'est pas installé en
standard?

En fait l'objectif est de faire un envoi automatique via un
publipostage donc il faudrait que cela soit suffisament simple pour
etre envisageable en VBA...

En espérant avoir été complet cette fois.

Grand merci pour cette première pste.

Assurancetourix

















Avatar
JB
Bonjour,

L'appareil photo ne crée PAS une image indépendante comme le veut
AssurenceTourix.
Le graphique crée avec l'appareil photo reste DEPENDANT DES VALEURS.
Il faut donc exporter le graphique sous forme de GIF et l'importer dans
une feuille

http://cjoint.com/?mli41qn4tI

Cordialement JB
Avatar
CBR
Bonjour tlm
Comme Danc je viens de découvrir également "l'appareil photo"
grace à ce fil.
Après test, il faut effectivement choisir les cellules sous un graphique
pour photografier ce dernier.
Pour ce qui est de se servir de cette copie, je vous suggére de la
coller sur un document WORD, cela coupera tout lien avec
les données de base d'excel.
Après vous faites ce que voulez de ce doc. (imprime,envoie,etc)
C'est je pense la soluce la plus simple d'emploie. Non?

A vous relire, a+

CBR


"JB" a écrit dans le message de news:

Bonjour,

L'appareil photo ne crée PAS une image indépendante comme le veut
AssurenceTourix.
Le graphique crée avec l'appareil photo reste DEPENDANT DES VALEURS.
Il faut donc exporter le graphique sous forme de GIF et l'importer dans
une feuille

http://cjoint.com/?mli41qn4tI

Cordialement JB
Avatar
JB
Bonjour,

Ce n'est pas automatisable par macro!
La solution qui répond au pb posé, c'est celle ci.

Set g = Sheets("Graphe").ChartObjects(1).Chart
fichier = ActiveWorkbook.Path & "" & "graphe.gif"
g.Export Filename:=fichier, FilterName:="GIF"
Sheets("GrapheGif").Select
Range("B3").Select
For Each i In ActiveSheet.Shapes
ActiveSheet.Shapes(i.Name).Delete
Next i
Set monimage = ActiveSheet.Pictures.Insert("graphe.gif")

http://cjoint.com/?mli41qn4tI

Cordialement JB
Avatar
Pounet95
Bonjour JB,
Vrai si l'image reste à l'intérieur du classeur où elle a été créée.
Par contre fait un copier/coller de celle-ci dans un autre classeur ou
document Word
par exemple, toute modification de valeurs sur les données du graphique
n'impacte pas l'image copiée AILLEURS.


--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"JB" a écrit dans le message de news:

Bonjour,

L'appareil photo ne crée PAS une image indépendante comme le veut
AssurenceTourix.
Le graphique crée avec l'appareil photo reste DEPENDANT DES VALEURS.
Il faut donc exporter le graphique sous forme de GIF et l'importer dans
une feuille

http://cjoint.com/?mli41qn4tI

Cordialement JB
Avatar
Pounet95
Re,
.... le problème posé ne fait pas état de VBA !
Il est demandé:
<<Est ce qu'une telle manoeuvre est possible?
Si oui, quelle est la marche à suivre?>>

En fonction de ses besoins et connaissances, Assurancetourix optera
pour la solution qui lui convient le mieux.
Quant à moi, ton code, je le mets au chaud partant du principe
qui fait que nos caves et greniers sont hyper encombrés et qu'heureusement
maintenant les
disques sont de grande capacité : "" ça peut servir !"

Bonne journée

--
Pounet95
on trouve tout ( ou presque ) http://www.excelabo.net/
Conseillé :
http://dj.joss.free.fr/netiquet.htm
(charte, nétiquette, conseils, abréviations, souriettes...)
http://www.excelabo.net/mpfe/connexion.php
(connexion, conseils...)

"JB" a écrit dans le message de news:

Bonjour,

Ce n'est pas automatisable par macro!
La solution qui répond au pb posé, c'est celle ci.

Set g = Sheets("Graphe").ChartObjects(1).Chart
fichier = ActiveWorkbook.Path & "" & "graphe.gif"
g.Export Filename:=fichier, FilterName:="GIF"
Sheets("GrapheGif").Select
Range("B3").Select
For Each i In ActiveSheet.Shapes
ActiveSheet.Shapes(i.Name).Delete
Next i
Set monimage = ActiveSheet.Pictures.Insert("graphe.gif")

http://cjoint.com/?mli41qn4tI

Cordialement JB
1 2 3