Bonjour, et bon dimanche à tous...
la macro ci dessous fonctionne très bien à un détail près:
elle me reproduit une image avec un cadre noir autour!
Comment adapter la macro pour enlever ce cadre?
merci, a+
claudy
Sub exporter_en_Gif()
Dim Plage As Range
Dim zaza As Variant
Set Plage = ActiveSheet.Range("B3:K10")
zaza = ActiveSheet.Name
Application.ScreenUpdating = False
Workbooks.Add: Plage.CopyPicture: ActiveSheet.Paste
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
'<<<<<en exécutant jusqu'ici, il n'y a pas de cadre noir<<<<<<
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width,
Selection.Height).Chart
.Paste
.Export "C:\SiteVolley\" & zaza & ".gif", "GIF"
End With
ActiveWorkbook.Close False
End Sub
--
\\\ ////
( O O )
------oOOo-(_)-oOOo-----------------
Visitez mon site:
http://users.skynet.be/classementsrhisnes/
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
gb
Bonjour.
Après .Paste, ajoute
.ChartArea.Border.LineStyle = 0
gb
"claudy" a écrit:
Bonjour, et bon dimanche à tous... la macro ci dessous fonctionne très bien à un détail près: elle me reproduit une image avec un cadre noir autour! Comment adapter la macro pour enlever ce cadre? merci, a+ claudy
Sub exporter_en_Gif()
Dim Plage As Range Dim zaza As Variant Set Plage = ActiveSheet.Range("B3:K10") zaza = ActiveSheet.Name Application.ScreenUpdating = False Workbooks.Add: Plage.CopyPicture: ActiveSheet.Paste '>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '<<<<<en exécutant jusqu'ici, il n'y a pas de cadre noir<<<<<< '>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart .Paste .Export "C:SiteVolley" & zaza & ".gif", "GIF" End With ActiveWorkbook.Close False End Sub
-- //// ( O O ) ------oOOo-(_)-oOOo----------------- Visitez mon site: http://users.skynet.be/classementsrhisnes/
Bonjour, et bon dimanche à tous...
la macro ci dessous fonctionne très bien à un détail près:
elle me reproduit une image avec un cadre noir autour!
Comment adapter la macro pour enlever ce cadre?
merci, a+
claudy
Sub exporter_en_Gif()
Dim Plage As Range
Dim zaza As Variant
Set Plage = ActiveSheet.Range("B3:K10")
zaza = ActiveSheet.Name
Application.ScreenUpdating = False
Workbooks.Add: Plage.CopyPicture: ActiveSheet.Paste
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
'<<<<<en exécutant jusqu'ici, il n'y a pas de cadre noir<<<<<<
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width,
Selection.Height).Chart
.Paste
.Export "C:SiteVolley" & zaza & ".gif", "GIF"
End With
ActiveWorkbook.Close False
End Sub
--
\ ////
( O O )
------oOOo-(_)-oOOo-----------------
Visitez mon site:
http://users.skynet.be/classementsrhisnes/
Bonjour, et bon dimanche à tous... la macro ci dessous fonctionne très bien à un détail près: elle me reproduit une image avec un cadre noir autour! Comment adapter la macro pour enlever ce cadre? merci, a+ claudy
Sub exporter_en_Gif()
Dim Plage As Range Dim zaza As Variant Set Plage = ActiveSheet.Range("B3:K10") zaza = ActiveSheet.Name Application.ScreenUpdating = False Workbooks.Add: Plage.CopyPicture: ActiveSheet.Paste '>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '<<<<<en exécutant jusqu'ici, il n'y a pas de cadre noir<<<<<< '>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart .Paste .Export "C:SiteVolley" & zaza & ".gif", "GIF" End With ActiveWorkbook.Close False End Sub
-- //// ( O O ) ------oOOo-(_)-oOOo----------------- Visitez mon site: http://users.skynet.be/classementsrhisnes/
merci gb ...je commençais à désespérer... bonne soirée Claudy
"gb" a écrit dans le message de news:
Bonjour.
Après .Paste, ajoute
.ChartArea.Border.LineStyle = 0
gb
"claudy" a écrit:
Bonjour, et bon dimanche à tous... la macro ci dessous fonctionne très bien à un détail près: elle me reproduit une image avec un cadre noir autour! Comment adapter la macro pour enlever ce cadre? merci, a+ claudy
Sub exporter_en_Gif()
Dim Plage As Range Dim zaza As Variant Set Plage = ActiveSheet.Range("B3:K10") zaza = ActiveSheet.Name Application.ScreenUpdating = False Workbooks.Add: Plage.CopyPicture: ActiveSheet.Paste '>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '<<<<<en exécutant jusqu'ici, il n'y a pas de cadre noir<<<<<< '>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart .Paste .Export "C:SiteVolley" & zaza & ".gif", "GIF" End With ActiveWorkbook.Close False End Sub
-- //// ( O O ) ------oOOo-(_)-oOOo----------------- Visitez mon site: http://users.skynet.be/classementsrhisnes/
merci gb ...je commençais à désespérer...
bonne soirée
Claudy
"gb" <anonyme@hotmail.net> a écrit dans le message de
news:efSJawFrDHA.976@tk2msftngp13.phx.gbl...
Bonjour.
Après .Paste, ajoute
.ChartArea.Border.LineStyle = 0
gb
"claudy" a écrit:
Bonjour, et bon dimanche à tous...
la macro ci dessous fonctionne très bien à un détail près:
elle me reproduit une image avec un cadre noir autour!
Comment adapter la macro pour enlever ce cadre?
merci, a+
claudy
Sub exporter_en_Gif()
Dim Plage As Range
Dim zaza As Variant
Set Plage = ActiveSheet.Range("B3:K10")
zaza = ActiveSheet.Name
Application.ScreenUpdating = False
Workbooks.Add: Plage.CopyPicture: ActiveSheet.Paste
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
'<<<<<en exécutant jusqu'ici, il n'y a pas de cadre noir<<<<<<
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width,
Selection.Height).Chart
.Paste
.Export "C:SiteVolley" & zaza & ".gif", "GIF"
End With
ActiveWorkbook.Close False
End Sub
--
\ ////
( O O )
------oOOo-(_)-oOOo-----------------
Visitez mon site:
http://users.skynet.be/classementsrhisnes/
merci gb ...je commençais à désespérer... bonne soirée Claudy
"gb" a écrit dans le message de news:
Bonjour.
Après .Paste, ajoute
.ChartArea.Border.LineStyle = 0
gb
"claudy" a écrit:
Bonjour, et bon dimanche à tous... la macro ci dessous fonctionne très bien à un détail près: elle me reproduit une image avec un cadre noir autour! Comment adapter la macro pour enlever ce cadre? merci, a+ claudy
Sub exporter_en_Gif()
Dim Plage As Range Dim zaza As Variant Set Plage = ActiveSheet.Range("B3:K10") zaza = ActiveSheet.Name Application.ScreenUpdating = False Workbooks.Add: Plage.CopyPicture: ActiveSheet.Paste '>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '<<<<<en exécutant jusqu'ici, il n'y a pas de cadre noir<<<<<< '>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart .Paste .Export "C:SiteVolley" & zaza & ".gif", "GIF" End With ActiveWorkbook.Close False End Sub
-- //// ( O O ) ------oOOo-(_)-oOOo----------------- Visitez mon site: http://users.skynet.be/classementsrhisnes/