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
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
Code:
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