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
JB
Bonjour,
http://cjoint.com/?fDsTWbOiAz
Sub ExportFormeGif() For Each s In ActiveSheet.Shapes If s.Type = 13 Then s.Copy With ActiveSheet .ChartObjects.Add(0, 0, s.Width, s.Height * 1.15).Chart.Paste .ChartObjects(1).Border.LineStyle = 0 .ChartObjects(1).Chart.Export Filename:=s.Name & ".jpg", FilterName:="jpg" .Shapes(ActiveSheet.Shapes.Count).Delete End With End If Next End Sub
JB
On 29 mai, 18:17, "garnote" wrote:
Bonjour,
J'ai copié sur une feuille Excel une image provenant du oueb. Comment faire pour l'enregistrer dans un dossier ?
Merci
Serge
Bonjour,
http://cjoint.com/?fDsTWbOiAz
Sub ExportFormeGif()
For Each s In ActiveSheet.Shapes
If s.Type = 13 Then
s.Copy
With ActiveSheet
.ChartObjects.Add(0, 0, s.Width, s.Height * 1.15).Chart.Paste
.ChartObjects(1).Border.LineStyle = 0
.ChartObjects(1).Chart.Export Filename:=s.Name & ".jpg",
FilterName:="jpg"
.Shapes(ActiveSheet.Shapes.Count).Delete
End With
End If
Next
End Sub
JB
On 29 mai, 18:17, "garnote" <garno...@ENLEVER.videotron.ca> wrote:
Bonjour,
J'ai copié sur une feuille Excel une image provenant du oueb.
Comment faire pour l'enregistrer dans un dossier ?
Sub ExportFormeGif() For Each s In ActiveSheet.Shapes If s.Type = 13 Then s.Copy With ActiveSheet .ChartObjects.Add(0, 0, s.Width, s.Height * 1.15).Chart.Paste .ChartObjects(1).Border.LineStyle = 0 .ChartObjects(1).Chart.Export Filename:=s.Name & ".jpg", FilterName:="jpg" .Shapes(ActiveSheet.Shapes.Count).Delete End With End If Next End Sub
JB
On 29 mai, 18:17, "garnote" wrote:
Bonjour,
J'ai copié sur une feuille Excel une image provenant du oueb. Comment faire pour l'enregistrer dans un dossier ?
Merci
Serge
ru-th
Salut Serge
vu son origine, je suppose qu'il s'agit de la tour de babel (désolé)
sinon, suivant ce que j'ai compris copié, ouvrir paint - collé - enregistrer sous (à mon avis, qu'il vaudrait mieux l'enregistrer directement depuis la toile) pas sur d'avoir compris la sus-dite problématique a+ rural thierry
Bonjour,
J'ai copié sur une feuille Excel une image provenant du oueb. Comment faire pour l'enregistrer dans un dossier ?
Merci
Serge
Salut Serge
vu son origine, je suppose qu'il s'agit de la tour de babel (désolé)
sinon, suivant ce que j'ai compris
copié, ouvrir paint - collé - enregistrer sous
(à mon avis, qu'il vaudrait mieux l'enregistrer directement depuis la toile)
pas sur d'avoir compris la sus-dite problématique
a+
rural thierry
Bonjour,
J'ai copié sur une feuille Excel une image provenant du oueb.
Comment faire pour l'enregistrer dans un dossier ?
vu son origine, je suppose qu'il s'agit de la tour de babel (désolé)
sinon, suivant ce que j'ai compris copié, ouvrir paint - collé - enregistrer sous (à mon avis, qu'il vaudrait mieux l'enregistrer directement depuis la toile) pas sur d'avoir compris la sus-dite problématique a+ rural thierry
Bonjour,
J'ai copié sur une feuille Excel une image provenant du oueb. Comment faire pour l'enregistrer dans un dossier ?
Merci
Serge
JB
Pour enreg à partir du Web: Clic-droit/Enregistrer. Si JavaScript anti-copie: Fichier/Enregistrer puis récupérer image.
JB On 29 mai, 18:17, "garnote" wrote:
Bonjour,
J'ai copié sur une feuille Excel une image provenant du oueb. Comment faire pour l'enregistrer dans un dossier ?
Merci
Serge
Pour enreg à partir du Web: Clic-droit/Enregistrer.
Si JavaScript anti-copie: Fichier/Enregistrer puis récupérer image.
JB
On 29 mai, 18:17, "garnote" <garno...@ENLEVER.videotron.ca> wrote:
Bonjour,
J'ai copié sur une feuille Excel une image provenant du oueb.
Comment faire pour l'enregistrer dans un dossier ?
Pour enreg à partir du Web: Clic-droit/Enregistrer. Si JavaScript anti-copie: Fichier/Enregistrer puis récupérer image.
JB On 29 mai, 18:17, "garnote" wrote:
Bonjour,
J'ai copié sur une feuille Excel une image provenant du oueb. Comment faire pour l'enregistrer dans un dossier ?
Merci
Serge
garnote
Impeccable, comme d'habitude. Pour mon besoin, je l'ai modifié ainsi :
Sub ExportFormeGif() Set s = Selection s.Copy With ActiveSheet .ChartObjects.Add(0, 0, s.Width, s.Height * 1.15).Chart.Paste .ChartObjects(1).Border.LineStyle = 0 .ChartObjects(1).Chart.Export Filename:=s.Name & ".jpg", FilterName:="jpg" .Shapes(ActiveSheet.Shapes.Count).Delete End With End Sub
Serge
"JB" a écrit dans le message de news: Bonjour,
http://cjoint.com/?fDsTWbOiAz
Sub ExportFormeGif() For Each s In ActiveSheet.Shapes If s.Type = 13 Then s.Copy With ActiveSheet .ChartObjects.Add(0, 0, s.Width, s.Height * 1.15).Chart.Paste .ChartObjects(1).Border.LineStyle = 0 .ChartObjects(1).Chart.Export Filename:=s.Name & ".jpg", FilterName:="jpg" .Shapes(ActiveSheet.Shapes.Count).Delete End With End If Next End Sub
JB
On 29 mai, 18:17, "garnote" wrote:
Bonjour,
J'ai copié sur une feuille Excel une image provenant du oueb. Comment faire pour l'enregistrer dans un dossier ?
Merci
Serge
Impeccable, comme d'habitude.
Pour mon besoin, je l'ai modifié ainsi :
Sub ExportFormeGif()
Set s = Selection
s.Copy
With ActiveSheet
.ChartObjects.Add(0, 0, s.Width, s.Height * 1.15).Chart.Paste
.ChartObjects(1).Border.LineStyle = 0
.ChartObjects(1).Chart.Export Filename:=s.Name & ".jpg", FilterName:="jpg"
.Shapes(ActiveSheet.Shapes.Count).Delete
End With
End Sub
Serge
"JB" <boisgontier@hotmail.com> a écrit dans le message de news: 1180457172.498575.249820@w5g2000hsg.googlegroups.com...
Bonjour,
http://cjoint.com/?fDsTWbOiAz
Sub ExportFormeGif()
For Each s In ActiveSheet.Shapes
If s.Type = 13 Then
s.Copy
With ActiveSheet
.ChartObjects.Add(0, 0, s.Width, s.Height * 1.15).Chart.Paste
.ChartObjects(1).Border.LineStyle = 0
.ChartObjects(1).Chart.Export Filename:=s.Name & ".jpg",
FilterName:="jpg"
.Shapes(ActiveSheet.Shapes.Count).Delete
End With
End If
Next
End Sub
JB
On 29 mai, 18:17, "garnote" <garno...@ENLEVER.videotron.ca> wrote:
Bonjour,
J'ai copié sur une feuille Excel une image provenant du oueb.
Comment faire pour l'enregistrer dans un dossier ?
Impeccable, comme d'habitude. Pour mon besoin, je l'ai modifié ainsi :
Sub ExportFormeGif() Set s = Selection s.Copy With ActiveSheet .ChartObjects.Add(0, 0, s.Width, s.Height * 1.15).Chart.Paste .ChartObjects(1).Border.LineStyle = 0 .ChartObjects(1).Chart.Export Filename:=s.Name & ".jpg", FilterName:="jpg" .Shapes(ActiveSheet.Shapes.Count).Delete End With End Sub
Serge
"JB" a écrit dans le message de news: Bonjour,
http://cjoint.com/?fDsTWbOiAz
Sub ExportFormeGif() For Each s In ActiveSheet.Shapes If s.Type = 13 Then s.Copy With ActiveSheet .ChartObjects.Add(0, 0, s.Width, s.Height * 1.15).Chart.Paste .ChartObjects(1).Border.LineStyle = 0 .ChartObjects(1).Chart.Export Filename:=s.Name & ".jpg", FilterName:="jpg" .Shapes(ActiveSheet.Shapes.Count).Delete End With End If Next End Sub
JB
On 29 mai, 18:17, "garnote" wrote:
Bonjour,
J'ai copié sur une feuille Excel une image provenant du oueb. Comment faire pour l'enregistrer dans un dossier ?