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
Pierre CFI [mvp]
bonjour soit tu fais une copie d'écran soit tu séléctionne ton graph touche shift enfoncée, clic menu edition et là tu as un menu de plus "copie d'image" puis tu colle cette image dans un logiciel de dessin
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
"lolo" a écrit dans le message de news:
A l'aaaaaaaide, je suis perdu.
Je m'explique, j'ai un graphique sur une feuille et je voudrais l'enregistrer en fichier image sur mon disque...
Eske kelkun peut m'aider
Merci d'avance
bonjour
soit tu fais une copie d'écran
soit tu séléctionne ton graph
touche shift enfoncée, clic menu edition et là tu as un menu de plus "copie d'image"
puis tu colle cette image dans un logiciel de dessin
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
"lolo" <anonymous@discussions.microsoft.com> a écrit dans le message de news: CF459C7C-FDC3-4B1D-8D69-5BE2DB53FCFE@microsoft.com...
A l'aaaaaaaide, je suis perdu.
Je m'explique, j'ai un graphique sur une feuille et je voudrais l'enregistrer en fichier image sur mon disque...
bonjour soit tu fais une copie d'écran soit tu séléctionne ton graph touche shift enfoncée, clic menu edition et là tu as un menu de plus "copie d'image" puis tu colle cette image dans un logiciel de dessin
-- Pierre CFI MVP Microsoft Access Mail : http://cerbermail.com/?z0SN8cN53B
"lolo" a écrit dans le message de news:
A l'aaaaaaaide, je suis perdu.
Je m'explique, j'ai un graphique sur une feuille et je voudrais l'enregistrer en fichier image sur mon disque...
Eske kelkun peut m'aider
Merci d'avance
garnote
Allo lolo,
Voici un tite macro qui fait ça. J'ai modifié deux ou trois mots de la macro de ???? , éminent membre du MPFE.
Sub CréerImage() Application.ScreenUpdating = False nom = InputBox("Nom de la nouvelle image") Selection.CopyPicture Workbooks.Add ActiveSheet.Paste With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, _ Selection.Height).Chart .ChartArea.Border.LineStyle = 0 .Paste .Export "D:Mes documentsMes images" & nom & " .jpg", "JPG" End With ActiveWorkbook.Close False End Sub
Serge
"lolo" a écrit dans le message de news:
A l'aaaaaaaide, je suis perdu.
Je m'explique, j'ai un graphique sur une feuille et je voudrais l'enregistrer en fichier image sur mon disque...
Eske kelkun peut m'aider
Merci d'avance
Allo lolo,
Voici un tite macro qui fait ça. J'ai modifié deux
ou trois mots de la macro de ???? , éminent
membre du MPFE.
Sub CréerImage()
Application.ScreenUpdating = False
nom = InputBox("Nom de la nouvelle image")
Selection.CopyPicture
Workbooks.Add
ActiveSheet.Paste
With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, _
Selection.Height).Chart
.ChartArea.Border.LineStyle = 0
.Paste
.Export "D:Mes documentsMes images" & nom & " .jpg", "JPG"
End With
ActiveWorkbook.Close False
End Sub
Serge
"lolo" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: CF459C7C-FDC3-4B1D-8D69-5BE2DB53FCFE@microsoft.com...
A l'aaaaaaaide, je suis perdu.
Je m'explique, j'ai un graphique sur une feuille et je voudrais
l'enregistrer en fichier image sur mon disque...
Voici un tite macro qui fait ça. J'ai modifié deux ou trois mots de la macro de ???? , éminent membre du MPFE.
Sub CréerImage() Application.ScreenUpdating = False nom = InputBox("Nom de la nouvelle image") Selection.CopyPicture Workbooks.Add ActiveSheet.Paste With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, _ Selection.Height).Chart .ChartArea.Border.LineStyle = 0 .Paste .Export "D:Mes documentsMes images" & nom & " .jpg", "JPG" End With ActiveWorkbook.Close False End Sub
Serge
"lolo" a écrit dans le message de news:
A l'aaaaaaaide, je suis perdu.
Je m'explique, j'ai un graphique sur une feuille et je voudrais l'enregistrer en fichier image sur mon disque...
