Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel exporter_en_Gif...sans cadre

exporter_en_Gif...sans cadre

2 réponses
Avatar
claudy
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/

Claudy

--------------Oooo------------------
oooO ( )
( ) ) /
\ ( (_/
\_)
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
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/

Claudy

--------------Oooo------------------
oooO ( )
( ) ) /
( (_/
_)




Avatar
claudy
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/

Claudy

--------------Oooo------------------
oooO ( )
( ) ) /
( (_/
_)