comment enlever la bordure d'un graphe

[jf27]

bonjour le forum,

j'utilise un objet charte pour y copier une shape et la ssauvegarder en jpg

Cela fonctionne sauf que cela rajoute un cadre à ma shape.
Or comme j'ouvre plusieurs fois ce fichier image dans mon appli, ca rajoute ce cadre à chaque fois ce qui fait que pour une image j'ai 6 épaisseurs de cadre par exemple


voici commet je fais ainsi qu'un exemple de jpeg généré avece tous ces cadres en trop

Merci de votre aide

@+
jf27

With Sheets("file")
    Set co = ActiveSheet.ChartObjects.Add(50, 50, .Shapes("Car1").Width, .Shapes("Car1").Height)
    .Shapes("Car1").Copy
    With co.Chart
        .Paste
        .Export Filename:=ThisWorkbook.Path & "\temp.jpg"
    End With
       'co.Delete

 

[tototiti2008]

Re : comment enlever la bordure d'un graphe

Bonjour jf27,

à tester :

co.Chart.ChartArea.Border.LineStyle = 0

 

[jf27]

Re : comment enlever la bordure d'un graphe

merci de ta réponse
mais non, ca ne supprime pas la petite bordure qui se crée...


@+

 

[tototiti2008]

Re : comment enlever la bordure d'un graphe

Re,

moi je viens d'essayer ça et ça fonctionne :

With Sheets("file")
    Set co = ActiveSheet.ChartObjects.Add(50, 50, .Shapes("Car1").Width, .Shapes("Car1").Height)
    .Shapes("Car1").Copy
    With co.Chart
        .Paste
        .ChartArea.Border.LineStyle = 0
        .Export Filename:=ThisWorkbook.Path & "\temp.jpg"
    End With
    co.Delete
End With

enfin il reste un contour blanc et ça je ne sais pas le faire disparaître....

 

[jf27]

Re : comment enlever la bordure d'un graphe

en effet, la ligne disparait et le contour blanc reste. mais c mon pb car comme ces fiches sont ouvertes plusieurs fois à chaque ouverture un contour se rajoute et se cumule au précédent, ce qui fait qu'au bout d'un nombre important d'ouverture, le contour blanc est devenu plus grand que la photo...


en tout cas merci de ton aide
@+
jf27