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
Garette
Bonsoir,
Je propose de sauvegarder le fichier au format HTML dans un dossier. Il va etre créé autant d'images que de formes présentes dans le fichier, du type image00x.gif.
Si c'est une opération à répeter, passer par une macro. Copier l'image souhaitée dans un nouveau doc pour l'isoler et enregistrer au format HTML dans un dossier. recupérer ensuite image001.gif.
Bonsoir,
Je propose de sauvegarder le fichier au format HTML dans un dossier.
Il va etre créé autant d'images que de formes présentes dans le fichier, du
type image00x.gif.
Si c'est une opération à répeter, passer par une macro. Copier l'image
souhaitée dans un nouveau doc pour l'isoler et enregistrer au format HTML
dans un dossier.
recupérer ensuite image001.gif.
Je propose de sauvegarder le fichier au format HTML dans un dossier. Il va etre créé autant d'images que de formes présentes dans le fichier, du type image00x.gif.
Si c'est une opération à répeter, passer par une macro. Copier l'image souhaitée dans un nouveau doc pour l'isoler et enregistrer au format HTML dans un dossier. recupérer ensuite image001.gif.
JB
Bonjour,
Sub ExportFormeGif() Set s = ActiveSheet.Shapes(1) 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:="monimage.gif", FilterName:="gif" .Shapes(ActiveSheet.Shapes.Count).Delete End With End Sub
http://cjoint.com/?mBg4rbNwGN
Cordialement JB
bonsoir, je voudrais enregistrer une forme automatique en tant qu'image pour pouvo ir l'exporter sur un site web; comment faire svp??
Bonjour,
Sub ExportFormeGif()
Set s = ActiveSheet.Shapes(1)
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:="monimage.gif",
FilterName:="gif"
.Shapes(ActiveSheet.Shapes.Count).Delete
End With
End Sub
http://cjoint.com/?mBg4rbNwGN
Cordialement JB
bonsoir,
je voudrais enregistrer une forme automatique en tant qu'image pour pouvo ir
l'exporter sur un site web;
comment faire svp??
Sub ExportFormeGif() Set s = ActiveSheet.Shapes(1) 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:="monimage.gif", FilterName:="gif" .Shapes(ActiveSheet.Shapes.Count).Delete End With End Sub
http://cjoint.com/?mBg4rbNwGN
Cordialement JB
bonsoir, je voudrais enregistrer une forme automatique en tant qu'image pour pouvo ir l'exporter sur un site web; comment faire svp??
caracola
merci, j'y arrive tjs pas mais je continue a essayer;
Bonsoir,
Je propose de sauvegarder le fichier au format HTML dans un dossier. Il va etre créé autant d'images que de formes présentes dans le fichier, du type image00x.gif.
Si c'est une opération à répeter, passer par une macro. Copier l'image souhaitée dans un nouveau doc pour l'isoler et enregistrer au format HTML dans un dossier. recupérer ensuite image001.gif.
merci, j'y arrive tjs pas mais je continue a essayer;
Bonsoir,
Je propose de sauvegarder le fichier au format HTML dans un dossier.
Il va etre créé autant d'images que de formes présentes dans le fichier, du
type image00x.gif.
Si c'est une opération à répeter, passer par une macro. Copier l'image
souhaitée dans un nouveau doc pour l'isoler et enregistrer au format HTML
dans un dossier.
recupérer ensuite image001.gif.
merci, j'y arrive tjs pas mais je continue a essayer;
Bonsoir,
Je propose de sauvegarder le fichier au format HTML dans un dossier. Il va etre créé autant d'images que de formes présentes dans le fichier, du type image00x.gif.
Si c'est une opération à répeter, passer par une macro. Copier l'image souhaitée dans un nouveau doc pour l'isoler et enregistrer au format HTML dans un dossier. recupérer ensuite image001.gif.
