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
Bonjour,

1-Dans son SECOND post, Assurancetourix écrit très exactement:

'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... '

2- Pour effectuer du copier/Coller avec Word, il n'y a pas besoin
d'appareil photo.
L'appareil photo ne fait qu'agrandir le graphique (Il suffit de tirer
sur les poignées du graphique pour l'agrandir)

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
Re, re et re
Nous sommes d'accord.
Suite à son premier message, j'ai proposé la solution app photo
et suite à sa première réponse, donc second message dont tu parles,
j'ai continué sur la première partie de celui-ci pour compléter ma réponse
précédente.
Quant à la 2ème partie ( publipostage et VBA ) étant totalement naïf sur le
sujet du publipostage,
je n'ai rien proposé en VBA.
Et, je te confirme que je mets au chaud la procédure que tu proposes, au cas
où .....
Bon dimanche
--
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,

1-Dans son SECOND post, Assurancetourix écrit très exactement:

'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... '

2- Pour effectuer du copier/Coller avec Word, il n'y a pas besoin
d'appareil photo.
L'appareil photo ne fait qu'agrandir le graphique (Il suffit de tirer
sur les poignées du graphique pour l'agrandir)

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
JièL Goubert
Bonjoir(c) Assurancetourix

j'ajoute mon grain de sel...
sélectionnez le graphique, maintenez la touche Shift et cliquez sur le
menu "Edition". Reste à choisir "copier une image"...

--
JièL / Jean-Louis GOUBERT
La FAQ Outlook est la : http://faq.outlook.free.fr/

Le 10/12/2005 21:19 vous avez écrit ceci :
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


Avatar
JB
Bonjour,

Ok, je ne connaissais pas cette solution.

ActiveSheet.Shapes("Chart 1").CopyPicture Appearance:=xlScreen,
Format:=xlPicture

Question:
Avec Windows XP j'envoi des mails par OLE automation. La sécurité
envoie le message 'voulez vous continuer...'.
Peut-on paramétrer OutLook 10 pour supprimer ce message?

Merci JB
Avatar
Misange
Bonjour,

bien que tu sembles avoir obtenu une slution satisfaisante, je t'invite
à prendre connaissance sur excelabo des autres solutions apportées à ce
pb par des Laurent Longre, Alain Vallon, John Walkenbach.... Notamment
celles ci
http://www.excelabo.net/xl/graph.php#creergraphsansliaison
http://www.excelabo.net/xl/graph.php#graphsanslien

Tu sélectionnes la(les) séries de ton graphique >> tu cliques dans la
barre de formule >> puis F9, ce qui a pour effet de remplacer par des
valeurs les références à des cellules donc plus de liaison avec le
classeur d'origine mais contrepartie : ton graphique n'est plus qu'une
"image" !

ainsi que celles ci
http://www.excelabo.net/xl/graph.php#exportgif
http://www.excelabo.net/xl/graph.php#exportgif2
http://www.excelabo.net/xl/graph.php#exportperso

Misange migrateuse http://www.excelabo.net
mail : http://cerbermail.com/?k5Q8Dh2mta

Le 10/12/2005 21:19, :
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


Avatar
JB
Bonjour Misange,

Pour le pb posé, la solution Objet.CopyPicture me semble la +
légante(elle figure parmi les liens que tu as mis)
Dans le classeur ci joint, il y a un onglet qui te concerne.

http://cjoint.com/?mlqwK3ok5n

Bonne soirée JB
Avatar
R1
"JB" a écrit dans le message de
news:
Bonjour Misange,

Pour le pb posé, la solution Objet.CopyPicture me semble la +
légante(elle figure parmi les liens que tu as mis)
Dans le classeur ci joint, il y a un onglet qui te concerne.

http://cjoint.com/?mlqwK3ok5n

Bonne soirée JB

****
Bonsoir,
En utilisant le fichier de cjoint, j'ai une erreur car la majeure partie des
variables n'est pas déclarée (par exemple
x, w, temp dans Worksheet_Activate et répertoireAppli dans envoimail).
Est-ce une question de configuration de mon poste Excel 2000 ou autre chose?
De même la donnée Outlook.Application n'est pas reconnue, bien que Outlook
soit installé (avec Office).

R1
Avatar
DanC
OK, ça fonctionne
Mais une feuille qui ne contient qu'un graphique, alors comment fait-on?
C'est un graphique créé par la commande graphique, sur une nouvelle
feuille....
Merci d'alimenter ma lanterne!
Bonne fin de journée!
--
(___) 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:
ON1CLqh$
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
Assurancetourix
Bon, me voilà de retour du boulot et je m'apercois que j'ai tout un tas
de solutions à tester.

Un grand merci à tous. Je teste çà dès que j'ai plus de 30s au bureau...
mais avec tout ça je suis largement armé pour faire face à mon problème.

Un grand merci à toutes et tous.



"JB" a écrit dans le message de
news:
Bonjour Misange,

Pour le pb posé, la solution Objet.CopyPicture me semble la +
légante(elle figure parmi les liens que tu as mis)
Dans le classeur ci joint, il y a un onglet qui te concerne.

http://cjoint.com/?mlqwK3ok5n

Bonne soirée JB

****
Bonsoir,
En utilisant le fichier de cjoint, j'ai une erreur car la majeure partie des
variables n'est pas déclarée (par exemple
x, w, temp dans Worksheet_Activate et répertoireAppli dans envoimail).
Est-ce une question de configuration de mon poste Excel 2000 ou autre chose?
De même la donnée Outlook.Application n'est pas reconnue, bien que Outlook
soit installé (avec Office).

R1




Avatar
JB
Bonsoir,

Ce pgm a été développé en Excel 2002 et OutLook 10

http://cjoint.com/?mmv5ZVDmn3

Cordialement JB
1 2 3