On peut créer des images avec Excel, par exemple
Copy Image et collage spécial
Est-il possible d'enregistrer cette image dans un fichier image
par exemple MonImage.jpg
en utilisant UNIQUEMENT Excel/VBA
(ou uniquement un autre logiciel qui saurait aller puiser les images dans
Excel)
Je veux dire que je sais faire en utilisant à la main un copier/coller
avec Excel + un logicel d'image (par Ex; Paint.)
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
garnote
Bonsoir,
Cette macro (qui n'est pas de moi, mais de qui ?) semble répondre à ta question.
Sub Enregistrer_Image() 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
"Papy Jean" a écrit dans le message de news: c9ns07$676$
Bonsoir !
On peut créer des images avec Excel, par exemple Copy Image et collage spécial
Est-il possible d'enregistrer cette image dans un fichier image par exemple MonImage.jpg en utilisant UNIQUEMENT Excel/VBA (ou uniquement un autre logiciel qui saurait aller puiser les images dans Excel)
Je veux dire que je sais faire en utilisant à la main un copier/coller avec Excel + un logicel d'image (par Ex; Paint.)
Mais je cherche à le faire automatiquement,
Merci d'avance Salutations Papy Jean
Bonsoir,
Cette macro (qui n'est pas de moi, mais de qui ?)
semble répondre à ta question.
Sub Enregistrer_Image()
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
"Papy Jean" <aj.azerty@wanadoo.fr> a écrit dans le message de news:
c9ns07$676$1@news-reader1.wanadoo.fr...
Bonsoir !
On peut créer des images avec Excel, par exemple
Copy Image et collage spécial
Est-il possible d'enregistrer cette image dans un fichier image
par exemple MonImage.jpg
en utilisant UNIQUEMENT Excel/VBA
(ou uniquement un autre logiciel qui saurait aller puiser les images dans
Excel)
Je veux dire que je sais faire en utilisant à la main un copier/coller
avec Excel + un logicel d'image (par Ex; Paint.)
Cette macro (qui n'est pas de moi, mais de qui ?) semble répondre à ta question.
Sub Enregistrer_Image() 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
"Papy Jean" a écrit dans le message de news: c9ns07$676$
Bonsoir !
On peut créer des images avec Excel, par exemple Copy Image et collage spécial
Est-il possible d'enregistrer cette image dans un fichier image par exemple MonImage.jpg en utilisant UNIQUEMENT Excel/VBA (ou uniquement un autre logiciel qui saurait aller puiser les images dans Excel)
Je veux dire que je sais faire en utilisant à la main un copier/coller avec Excel + un logicel d'image (par Ex; Paint.)
Mais je cherche à le faire automatiquement,
Merci d'avance Salutations Papy Jean
michdenis
Bonjour Garnote,
La macro est de Popi que je salue en passant ...
Salutations!
"garnote" a écrit dans le message de news:_xKvc.3019$
Bonsoir,
Cette macro (qui n'est pas de moi, mais de qui ?) semble répondre à ta question.
Sub Enregistrer_Image() 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
"Papy Jean" a écrit dans le message de news: c9ns07$676$
Bonsoir !
On peut créer des images avec Excel, par exemple Copy Image et collage spécial
Est-il possible d'enregistrer cette image dans un fichier image par exemple MonImage.jpg en utilisant UNIQUEMENT Excel/VBA (ou uniquement un autre logiciel qui saurait aller puiser les images dans Excel)
Je veux dire que je sais faire en utilisant à la main un copier/coller avec Excel + un logicel d'image (par Ex; Paint.)
Mais je cherche à le faire automatiquement,
Merci d'avance Salutations Papy Jean
Bonjour Garnote,
La macro est de Popi que je salue en passant ...
Salutations!
"garnote" <rien@absent.net> a écrit dans le message de news:_xKvc.3019$jl6.2405@edtnps89...
Bonsoir,
Cette macro (qui n'est pas de moi, mais de qui ?)
semble répondre à ta question.
Sub Enregistrer_Image()
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
"Papy Jean" <aj.azerty@wanadoo.fr> a écrit dans le message de news:
c9ns07$676$1@news-reader1.wanadoo.fr...
Bonsoir !
On peut créer des images avec Excel, par exemple
Copy Image et collage spécial
Est-il possible d'enregistrer cette image dans un fichier image
par exemple MonImage.jpg
en utilisant UNIQUEMENT Excel/VBA
(ou uniquement un autre logiciel qui saurait aller puiser les images dans
Excel)
Je veux dire que je sais faire en utilisant à la main un copier/coller
avec Excel + un logicel d'image (par Ex; Paint.)
"garnote" a écrit dans le message de news:_xKvc.3019$
Bonsoir,
Cette macro (qui n'est pas de moi, mais de qui ?) semble répondre à ta question.
Sub Enregistrer_Image() 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
"Papy Jean" a écrit dans le message de news: c9ns07$676$
Bonsoir !
On peut créer des images avec Excel, par exemple Copy Image et collage spécial
Est-il possible d'enregistrer cette image dans un fichier image par exemple MonImage.jpg en utilisant UNIQUEMENT Excel/VBA (ou uniquement un autre logiciel qui saurait aller puiser les images dans Excel)
Je veux dire que je sais faire en utilisant à la main un copier/coller avec Excel + un logicel d'image (par Ex; Paint.)
Mais je cherche à le faire automatiquement,
Merci d'avance Salutations Papy Jean
Papy Jean
RE-Bonsoir !
Un grand merci à tous
Vous êtes vraiment très forts Et ce forum est exceptionnel
Salutations Papy Jean
"Papy Jean" a écrit dans le message de news:c9ns07$676$
Bonsoir !
On peut créer des images avec Excel, par exemple Copy Image et collage spécial
RE-Bonsoir !
Un grand merci à tous
Vous êtes vraiment très forts
Et ce forum est exceptionnel
Salutations
Papy Jean
"Papy Jean" <aj.azerty@wanadoo.fr> a écrit dans le message de
news:c9ns07$676$1@news-reader1.wanadoo.fr...
Bonsoir !
On peut créer des images avec Excel, par exemple
Copy Image et collage spécial
